VBA添加图表标题

Question

我只是想使用vba向我的图表添加图表标题。我实际上想对每个工作表中的每个图表进行递归操作，但是我什至无法获得一张图表。这是我的代码：

Dim chnam
chnam = Left(ActiveSheet.Name, (Len(ActiveSheet.Name) - 9))
With ActiveWorkbook.ActiveSheet.ActiveChart
    .HasTitle = True
    .ChartTitle = chnam
End With

这是我的图表：

运行代码时，我得到：

Object does not support this property or method

Answer 1

尝试这个：

Dim chnam as string
chnam = Left(ActiveSheet.Name, (Len(ActiveSheet.Name) - 9))
With ActiveWorkbook.ActiveSheet.ActiveChart
    .HasTitle = True
    .ChartTitle.Select
    .ChartTitle.Text = chnam
End With