[解決済み] VBA チャートのタイトルを追加する

質問

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

解決方法は？

これを試してみてください。

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