复制命名范围并将其粘贴到另一个工作表中的另一个命名范围作为图片

Question

我编写了一个代码来复制图表数据（命名范围）并将其作为图片粘贴到另一个工作表中，该工作表位于由命名范围指定的位置。代码不能始终工作，有时它会显示一条错误消息，指出工作表粘贴方法失败。如果有人能就此事给我一些指导，我将不胜感激。提前谢谢。

Sub CopyChartScen1Data()

    Set ResultRange = Worksheets("EquityValue").[cEquityValue.PrintChart1]
    Set datacopied = Sheets("Chart1.NewFin").[ChartNewFin1Data]

    'Copy and paste picture of chartdata
    [datacopied].CopyPicture

    Worksheets("EquityValue").Paste Destination:=Worksheets("EquityValue").Range("cEquityValue.PrintChart1")

End Sub