Home » エクセルマクロ・Excel VBAの使い方 » グラフ・Chart » Excel VBAでグラフタイトルを選択する

Excel VBAでグラフタイトルを選択する

動作検証バージョン：Windows 10 Pro（64-bit）+ 64bit Excel（バージョン2302 ビルド16130.20218 キック実行）

「マクログラフタイトル選択」
という検索キーワードでアクセスがありました。

グラフタイトルを選択するサンプルマクロ

いずれかのグラフを選択した状態で、以下のExcelマクロを実行してください。

Sub アクティブグラフのグラフタイトルを選択する()
　Dim cht As Chart
　Set cht = ActiveChart
　If cht Is Nothing Then
　　MsgBox "このマクロはグラフを選択した状態で実行してください。"
　　Exit Sub
　End If

　If cht.HasTitle Then
　　cht.ChartTitle.Select
　　Application.ScreenUpdating = True
　　MsgBox "グラフタイトルを選択しました！"
　Else
　　MsgBox "アクティブなグラフにはグラフタイトルがありません。"
　End If
End Sub

サンプルマクロで行っている処理

グラフタイトルを選択するだけなら、ChartTitleオブジェクトのSelectメソッドだけでOKなのですが、

「マクログラフタイトル選択」
という検索キーワードでは、どのグラフのグラフタイトルを選択したいのかがわからないため、グラフが選択されている状態から開始する仕様にして、以下の処理を入れました。

　Dim cht As Chart
　Set cht = ActiveChart
　If cht Is Nothing Then
　　MsgBox "このマクロはグラフを選択した状態で実行してください。"
　　Exit Sub
　End If

グラフが選択されているかどうかをVBAで判定するには

また、そのグラフにグラフタイトルが存在しない場合もあるため、

　If cht.HasTitle Then
　　cht.ChartTitle.Select
　　Application.ScreenUpdating = True
　　MsgBox "グラフタイトルを選択しました！"
　Else
　　MsgBox "アクティブなグラフにはグラフタイトルがありません。"
　End If

と、ChartオブジェクトのHasTitleプロパティでグラフタイトルが存在するかどうかを調べてから、