VBA添加图表标题

Question

我只想使用 vba 将图表标题添加到我的图表中。我实际上想对每张纸中的每个图表递归地执行此操作，但我什至无法让 1 个图表工作。这是我的代码:

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