vba - Excel VBA - 复制图表并粘贴为增强的图元文件

Question

我正在尝试复制作为 Book1 Sheet1 中的对象的 Chart1，并将其粘贴为 Book2 Sheet1 中的增强元文件图片。我从另一个站点获得了此代码，但它不起作用:

'Book1 and Book2 previously declared as Workbooks and set
Book1.Sheets(1).ChartObjects(1).CopyPicture
Book2.Sheets(1).Range("B3").Paste

我收到运行时错误 438:“对象不支持此属性或方法”

我会使用 something like this ，但他们的代码引用了图表位置，如果可能的话，我想使用图表编号。

更新:

我已将代码修改为以下内容:

'Sheet1 and Sheet2 declared and set as Worksheets
Sheet1.ChartObjects(1).Chart.CopyPicture
Sheet2.PasteSpecial Format:="Picture (Enhanced Metafile)", _
    Link:=False, DisplayAsIcon:=False
With Sheet2.Shapes(Sheet2.Shapes.Count)
    .Top = Sheet2.Range("B3").Top
    .Left = Sheet2.Range("B3").Left
End With

但是它现在返回运行时错误 1004:“对象 '_Worksheet' 的方法 'PasteSpecial' 失败”。

Answer 1

例如:

Sheet1.ChartObjects(1).CopyPicture
Sheet1.PasteSpecial _
         Format:="Picture (Enhanced Metafile)", _
         Link:=False, DisplayAsIcon:=False
With Sheet1.Shapes(Sheet1.Shapes.Count)
    .Top = Sheet1.Range("B3").Top
    .Left = Sheet1.Range("B3").Left
End With