从sheetname创建图表标题

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