VBA PDFファイルの添付のやり方あるでしょうか？

Question

実現したいこと

エクセルにPDFファイルをVBAマクロを使用して、添付したい。

前提

プログラムは一度作成して、貼り付けれたのですが、PDFファイル特有？のエラーが出てしまします。

発生している問題・エラーメッセージ

この画像は表示できません。と表示エラー出てしまします。

該当のソースコード

Sub PDF_Paste_Rotate()

' フォルダー名を定義
Dim folderPath As String
folderPath = "フォルダパス"

' PDFファイルを読み込み、反時計回りに90度回転して貼り付け
Dim fileName As String
fileName = folderPath & "ファイル名.pdf"
With ThisWorkbook.ActiveSheet
    .Pictures.Insert(fileName).Select
    With Selection.ShapeRange
        .LockAspectRatio = msoTrue
        .Height = 710.25
        .IncrementRotation -90
        .Left = Range("B1").Left
        .Top = Range("B1").Top
    End With
End With

End Sub

試したこと

↑のプログラム試しました。
Excelでは、JPEG、PNG、BMP、GIFしか対応していないからでしょうか？

PDFファイルを添付するのは無理で、他やり方あるでしょうか？

お願い致します。

Answer 1

OLEObjects オブジェクトの Add メソッドか、Shapes オブジェクトの AddOLEObject メソッドを使用して下さい。

Comments

[taroooo]

できました。ありがとうございます。感謝しております。
ちなみに、なぜPDFはできないのでしょうか？
ワードに一度貼り付けて。。。という感じでしょうか？

[sk.exe]

Picturesオブジェクトは、端的に言えば「ワークシート上に挿入された図（静止画像）の集まり」です。
PDFは静止画像ではなく電子文書を保存するためのフォーマットですので、PicturesオブジェクトのAddメソッドでは追加できません。

ワークシート上に挿入されたPDFファイルやWordドキュメントは図形の分類上「OLEオブジェクト」として扱われます。

[taroooo]

ご丁寧にありがとうございました。
参考にさせていただきます。