需要使用VBA从数据透视表的报表文件管理器中为图表添加标题

Question

我正在尝试从数据透视表创建图表。在此数据透视表中，我在报表过滤器选项卡上有年份。每当我从过滤器选项中选择任何年份时，我都希望该年份反映在图表上。我的代码如下：

Range("B7:L7").Offset(i).Select
        Worksheets("Visual Dashboard").Select
        With ActiveSheet.Shapes.AddChart
            With .Chart
                .ChartType = xlColumnClustered
                .SetSourceData Source:=Range("Pivot!$A$1:$L$7").Offset(i)

                .ShowValueFieldButtons = False
                .HasTitle = True
                .ChartTitle.Text = "Consolidated "

现在在此行.ChartTitle.Text = "Consolidated "中要添加该年份过滤器选项，以便每当我选择任何特定年份时，该年份都会反映在图表标题上。

我不太了解如何解决此问题？