PDFのサムネイルをエクセルデータに貼り付けたい。

こちらのサイトを参考に、フォルダに保存されているPDFファイルののサムネイルを貼り付けるコードを作成しました。
[参考サイト]https://engi.cocolog-nifty.com/sirenai/2011/02/pdf-02a4.html

Sub 名刺サムネイル()
Dim path As String
Dim comp As String
Dim name As String

Dim A As Long
Dim EROW As Long

Dim i As Long
Dim Fname名 As String
Dim objWidth As Long
Dim objHeight As Long

path = ThisWorkbook.path
EROW = Cells(Rows.Count, 4).End(xlUp).Row

Range(Cells(11, 1), Cells(EROW, 6)).RowHeight = 100
Columns(2).ColumnWidth = 25


A = 11
name = "初期値"

Do While name <> ""
 comp = Cells(A, 3)
 name = Cells(A, 4)
 
 ppath = path & "\" & "工業" & "\" & "名刺ﾃﾞｰﾀ" & "\" & comp & "\" & name

 ActiveSheet.OLEObjects.Add Filename:=ppath’’’’’’’’’’’ここです！！

   For Each pic In ActiveSheet.OLEObjects
      With pic.TopLeftCell
       pic.Top = .Top
       pic.Left = .Left
       pic.Width = .MergeArea.Width
       pic.Height = .MergeArea.Height
      End With
   Next

    A = A + 1
 Loop

End Sub

所が、「 ActiveSheet.OLEObjects.Add Filename:=ppath」の部分で「実行時エラー　1004 オブジェクトを挿入できません」と表示され止まってしまいます。

パスが違っているのかとも思い何度も確認しましたが間違えてはいない様でいしたので質問致しました。
改善方法や原因を知っていましたらお願いします。
よろしくお願いします。

xail2222

2022/01/30 06:00

>パスが違っているのかとも思い何度も確認しましたが間違えてはいない様でいしたので質問致しました。とのことですが、パスが違っていると該当のメッセージが出るようですね。エクスプローラーからコピペでフォルダ名とかファイル名を書いてみるとか試しては如何でしょうか。尚、パスがあってるかは Debug.Print Dir(ppath) を実行してパスが表示されるかどうかで確認できますよ

ken3memo

2022/01/30 12:19

ppath = path & "\" & "工業" & "\" & "名刺ﾃﾞｰﾀ" & "\" & comp & "\" & name 気になったこと、 "名刺ﾃﾞｰﾀ" のフォルダ名もしかして実フォルダの方が \名刺データ\ と全角にしていたり、テストのプログラムと実際(環境)が違うのでは？フォルダ名(ファイル名)と実名称を xail2222 さんが書かれているように Debug.Print Dir(ppath) などで、表示されるか、確認してみてください。 Debug.Print ppath Debug.Print Dir(ppath) Dirの方で Debug.Printで　何も表示されなければ、ファイルが見つかっていない(ﾃﾞｰﾀとデータの違いなどで)と思います。