运行时错误＆＃39;＆＃39;＆＃39;在VBA中引用图表时

Question

我想通过单击工作表上的命令按钮来操作现有图表来过滤数据系列并更改标题，但是在尝试为某些操作编写代码时，我收到运行时错误438。

首先，一条线 Worksheets("Report").ChartObjects("ChartVisitors").Visible=True（或错误）
工作得很好，但是当我尝试时：
Worksheets("Report").ChartObjects("ChartVisitors").ChartTitle.Text = "Test"或
Worksheets("Report").ChartObjects("ChartVisitors").FullSeriesCollection(25).IsFiltered = True (False)，我得到运行时错误438.这两个几乎是我想修改的唯一属性，我猜我的语法错了？ MSDN仅指定图表应将.HasTitle属性设置为True，它会执行此操作。

Answer 1

ChartObject用作Chart对象的容器。可以将其视为图表嵌入的窗口。您需要：

Worksheets("Report").ChartObjects("ChartVisitors").Chart.ChartTitle.Text = "Test"

而不是

Worksheets("Report").ChartObjects("ChartVisitors").ChartTitle.Text = "Test"

等