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

実現したいこと

エクセルに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ファイルを添付するのは無理で、他やり方あるでしょうか？

お願い致します。