EXCEL VBA 複製圖片問題

我有上網爬文但無法找到相關文章，或許是我的關鍵字搜尋不對，請各位老師指導指導

我有兩個EXCEL檔，其中一個檔案(Arrange)有一張LOGO圖片及一顆執行程式按鈕，我想按執行按鈕以後能複製到另一個檔案(2311B_1)A1位置當LOGO，請問各位老師，我VBA語法該怎麼寫呢?

附上檔案連結
https://drive.google.com/drive/folders/1N-GwaVHwzZ27XMM273cFTUnUeb5LwfG-?usp=sharing

文章關鍵字

YS2000

63分

2樓

YS2000

個人積分：63分

文章編號：76727239

把想要的複製貼上這些動作用巨集錄製重複一遍最簡單
--


'目標檔要先打開才有用
Private Sub CommandButton1_Click()
    Dim Logo_Name As String, WB_Name As String
    Logo_Name = "logo"                 'Arrange檔上logo圖片的名字,選取圖片就看得到
    WB_Name = "2311B_1.xlsx"           '目標名字含副檔名
    ThisWorkbook.ActiveSheet.Shapes(Logo_Name).Copy            '複製
    Workbooks(WB_Name).ActiveSheet.Range("A1").PasteSpecial    '貼上
End Sub

--