エクセル：オブジェクト(PDF)の挿入で選択ファイル一覧をPDFのみ表示したい。

Question

エクセル2013で、以下のようにオブジェクト（PDF）を挿入しようとしました。

↓

↓
ここで「OK」をクリックすると、以下のファイル選択一覧画面が開くのですが、PDF以外のファイルも沢山表示されます。
これを、PDFのみ表示選択することは可能なのでしょうか？
エクセルのマクロやVBAを組むことで可能なのでしょうか？
ちなみにこの処理のマクロを見るとは、次のとおりでした。
このどこかを修正すれば可能なのでしょうか？
ActiveSheet.OLEObjects.Add(ClassType:="AcroExch.Document.DC", Link:=False, _
DisplayAsIcon:=False)

Answer 1

Filenameでフィルターをかけてやればできるかと思います。

参照URL:stackoverflow

例）

    Dim vFile       As Variant
    Dim attachment  As OLEObject
    
    vFile = Application.GetOpenFilename("PDFファイル,*.pdf", Title:="PDFオブジェクト挿入")
    If LCase(vFile) = "false" Then Exit Sub
    
    Set attachment = ActiveSheet.OLEObjects.Add( _
        Filename:=vFile, _
        Link:=False, _
        DisplayAsIcon:=True)
        
    ' 指定位置へ挿入
    With attachment
        .Top = ActiveSheet.Range("A1").Top
        .Left = ActiveSheet.Range("A1").Left
    End With