Excel 如何使用Shell应用程序复制/粘贴形状？

我正在尝试将单个图像导出到文件夹

我在工作簿中手动插入图像，并将形状重命名为“logo”

我以前也用过类似的东西，但也许它只适用于OLEObjects

ThisWorkbook.Sheets("Start Here").Shapes("logo").Copy
CreateObject("Shell.Application").Namespace(ThisWorkbook.Path & "\").Self.InvokeVerb "Paste"

代码运行，但对象未“粘贴”到目标目录

Sub test()
Dim chtObj As ChartObject

    With ThisWorkbook.Worksheets("Start Here")

        .Activate

        Set chtObj = .ChartObjects.Add(100, 30, 400, 250)
        chtObj.Name = "TemporaryPictureChart"

        'resize chart to picture size
        chtObj.Width = .Shapes("logo").Width
        chtObj.Height = .Shapes("logo").Height

        ActiveSheet.Shapes.Range(Array("logo")).Select
        Selection.Copy

        ActiveSheet.ChartObjects("TemporaryPictureChart").Activate
        ActiveChart.Paste

        ActiveChart.Export Filename:=ThisWorkbook.Path & "\image.jpg", FilterName:="jpg"

        chtObj.Delete

    End With

End Sub

更新代码自