如何在excel裡同時插入多個對象（PDF\WORD\EXCEL\圖片等）

在EXCEL裡可以插入多種對象，如PDF\WORD\EXCEL\圖片等，但一次性只能插入一個對象，並且要在excel裡顯示插入對象的表徵圖和原來名稱的話還需要繁瑣的步驟。因此，設計一個宏來解決這個問題。

以下是宏代碼：

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+m
'
 Dim lngCount As Long
 Dim myfilepath As String
 Dim myfilename As String

    With Application.FileDialog(msoFileDialogFilePicker)'excel宏開啟檔案頁面設計
        .AllowMultiSelect = True
        .Show
        For lngCount = 1 To .SelectedItems.Count
            'MsgBox .SelectedItems(lngCount)
            myfilepath = .SelectedItems(lngCount)'設定插入路徑
            myfilename = Right(myfilepath, Len(myfilepath) - InStrRev(myfilepath, "\"))'設定顯示名稱為原始插入檔案名稱
            'MsgBox (myfilepath)
            
            
   ActiveSheet.OLEObjects.Add(Filename:= _
        myfilepath, Link:=False, DisplayAsIcon:= _
        True, IconFileName:= _
        "C:\Windows\Installer\{AC76BA86-7AD7-1033-7B44-AB0000000001}\PDFFile_8.ico", _   '顯示應用軟體表徵圖
        IconIndex:=0, IconLabel:=myfilename).Select
        
        Next lngCount
    End With
End Sub

通過這個宏，可以在excel裡一次性插入上百個檔案，非常方便。