Excel VBA – 复制图表并粘贴为增强型图元文件

我试图复制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：“对象不支持此属性或方法”

我会使用这样的东西 ，但他们的代码引用图表位置，如果可能的话，我想去图表编号。

更新：

我已经将我的代码修改为以下内容：

 '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