OLE.Add pdf显示了strangley

Question

我有一个宏，当我按下按钮时，我可以将文件添加到文档中。它适用于大多数文件，但PDF行为扼杀它没有显示图标和文件名，它的大小只是一个点，你可以调整大小后，但它只有一个空白的白色方块。

这是我的代码：

Sub ChangeImage1()

Dim file As Office.FileDialog

Set file = Application.FileDialog(msoFileDialogFilePicker)
With file
    .AllowMultiSelect = False
    .ButtonName = "Izberi"
    .Title = "Izberi risbo"
    .Filters.Clear
    .Filters.Add "All Files", "*.*"

    Cells(23, "J").Select

    If .Show = -1 Then
        ActiveSheet.OLEObjects.Add(Filename:=file.SelectedItems(1), Link:=False, IconFileName:=file.SelectedItems(1), DisplayAsIcon:=True, IconLabel:=file.SelectedItems(1)).Select
    Else

    End If
End With
End Sub