- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：マクロでのグラフタイトルの存在確認および取得）
マクロでのグラフタイトルの存在確認および取得
このQ&Aのポイント
- マクロ初心者が作成したグラフタイトルの存在確認および取得のためのマクロで、「このオブジェクトにはタイトルがありません」というエラーが発生している。
- ループ内でチャートオブジェクトの数だけ処理を行い、グラフタイトルが設定されている場合はそのタイトルを、設定されていない場合は「タイトル無i」というテキストを返す。
- 改善方法として、グラフタイトルの存在確認には「If Not ActiveChart.HasTitle Then」を使用することができる。また、エラーメッセージ表示やデバッグモードの使用も検討する。
- cgkloop
- お礼率100% (2/2)
- Visual Basic
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
for i = 1 to ActiveSheet.ChartObjects.count で呼び出すとのことしたので 以下の応用編になると思います。 テストには2007を使用しています。 For i = 1 To ThisWorkbook.Charts.Count 'ActiveSheetでも、ThisWorkbookでも With ThisWorkbook.Charts(i) If .HasTitle = False Then '有無の判定はHasTitleを用いる .HasTitle = True .ChartTitle.Select '2003 対応(フォント設定に必要） .ChartTitle.Text = "noTitle" & i 'この部分を変数に変える End If End With Next i ポイントは上記のコメントを参照してください。
お礼
HasTitleを使うのは目からうろこでした！ 全然気づかなかったため、すごく感動しています。 本当にありがとうございました。