excel - 复制粘贴图表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”(您在写有“节点 5”的“区域”中更改图表 ID在这张图片的红色矩形中 http://i.stack.imgur.com/hf2Nq.png )

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

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

HTH ;)