复制粘贴图表Excel VBA

Question

我的VBA代码在这里有问题。

这是我在VBA中编写的第一个代码。 基本上，我希望它检查条件（sheet2中单元格F7的值），并据此将其粘贴到sheet2中的两个图表之一。

    Private Sub CommandButton1_Click()


CommandButton1.Caption = "Stock Size Range"
CommandButton1.BackColor = 0
CommandButton1.ForeColor = 16777215

'Clear the chart area
 Charts("Chart41").ChartArea.Clear


If Sheets("sheet2").Range("F7") = 1 Then 'Aluminum Material


    Sheets("sheet3").ChartObjects("Chart666").Select
    Sheets("sheet3").ChartObjects("Chart666").Copy
    ChartObjects("Chart41").Paste

    Else

    Sheets("sheet4").ChartObjects("Chart888").Select
    Sheets("sheet4").ChartObjects("Chart888").Copy
    ChartObjects("Chart41").Paste

End If

End Sub

问题是，当我单击命令按钮时，它给我一个运行时错误“ 9”：下标超出范围，它指向该行（Charts（“ Chart41”）。ChartArea.Clear）

谢谢，

Answer 1

（对不起，但是我没有足够的声誉来发表评论并询问更多信息，所以我会尽力！）

你好！

也许您需要转到要粘贴图表的所需工作表，创建一个图表，然后将其关联一个ID，例如“ MyNewChart”（您可以在“区域”中更改图表ID，将其写为“节点5”。在此图片的红色矩形中http://i.stack.imgur.com/hf2Nq.png ）

然后在代码中，当需要粘贴图表时，可以编写：

Sheets("WriteSheetNameHere").ChartObjects("MyNewChart").Paste

HTH;）