引用VBA中的图表时，运行时错误“438”

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

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

Answer 1

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

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

而不是

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

等等