从工作表名称创建图表标题

Question

我希望使用 VBA 修改我的图表

我使用公式创建了一个命名范围，将其命名为 SheetNames

=REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),"")

然后在 VBA 中，我试图更改图表标题：

ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Text = Range("SheetNames").Value

但没有成功。我尝试使用公式在单元格 B1 中调用工作表名称并且它有效

=SheetNames

然后在 VBA 中使用以下并运行良好：

ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Text = Range("B1")

我该怎么做才能使第一位工作？

Answer 1

为什么要使用公式来获取工作表的名称：

ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Text = ActiveSheet.Name