「excel vba charttitle 2007 このオブジェクトにはタイトルがありません」
といった検索でのアクセスが時折あります。
グラフタイトルを操作・設定するExcelマクロを実行したときに、
上図のようなエラーが発生することがあります。
このエラーの原因と回避方法を探していらしたのでしょう。
グラフタイトルを設定するサンプルマクロ
アクティブシートに埋め込みグラフが存在しているときに、以下のSubプロシージャを実行すると1つ目の埋め込みグラフのタイトルが、
「グラフタイトルの設定」
に変更されます。
Dim cht As Chart
Set cht = ActiveSheet.ChartObjects(1).Chart
cht.ChartTitle.Text = "グラフタイトルの設定"
End Sub
しかし場合によっては「このオブジェクトにはタイトルがありません。」実行時エラーが発生することがあります。
このオブジェクトにはタイトルがありません。エラーの発生する原因と対策
グラフタイトルが存在していないグラフに対していきなり、
cht.ChartTitle.Text = "グラフタイトルの設定"
のような操作をしようとすると「このオブジェクトにはタイトルがありません。」実行時エラーが発生します。
ですからChartTitleオブジェクトへの操作を行う前に、グラフタイトルが表示されている状態にすればOKです。
Dim cht As Chart
Set cht = ActiveSheet.ChartObjects(1).Chart
cht.HasTitle = True
cht.ChartTitle.Text = "グラフタイトルの設定"
End Sub
ChartオブジェクトのHasTitleプロパティにTrueを設定すれば、
グラフタイトルが表示されるので、その後ChartTitleオブジェクトへの操作を行うということです。
最終更新日時:2023-03-17 15:08
Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » ChartTitleで、このオブジェクトにはタイトルがありません。とは