エクセルのマクロ

エクセルのマクロを使用してグラフを複数作成しています。作成したグラフのタイトルに番号をつけたいのですがわかりません。番号は１つ目のグラフに１、2つ目のグラフに２といった感じです。
教えてください。

質問者からの補足コメント

• 回答ありがとうございます
  早速使ってみたのですがエラーが出てしまいました。
  subまたはfunctionが定義されていません。となってしまいました

  No.1の回答に寄せられた補足コメントです。 補足日時：2016/07/05 13:01

No.2 ベストアンサー 回答者： haijin1996 回答日時： 2016/07/05 21:46

すみません。

記述を間違えました。

Sub グラフタイトル連番()
Dim cht As ChartObject
Dim i As Long
　For Each cht In ActiveSheet.ChartObjects
　　i = i + 1
　　　With ActiveSheet.ChartObjects(i).Chart
　　　　.HasTitle = True
　　　　.ChartTitle.Text = i
　　　End With
　Next cht
End Sub

この回答へのお礼

ありがとうございます。
無事に番号をつけることができました。

お礼日時：2016/07/06 08:50

No.1 回答者： haijin1996 回答日時： 2016/07/05 12:14

Sub グラフタイトル連番()

Dim i As Long　
　For Each cht In ActiveSheet.ChartObjects
　　i = i + 1
　　　With ChartObjects(i).Chart
.HasTitle = True
.ChartTitle.Text = i
　 End With
　Next cht
End Sub
でどうでしょうか。