Excel VBAにおけるChart.HasTitle プロパティの詳細な解説

Chart.HasTitle プロパティは、Chartオブジェクトに対してタイトルが存在するか否かを示す真偽値（Boolean）を取得または設定するためのプロパティです。値がTrueであればチャートにはタイトルが存在し、Falseであれば存在しません。

使用方法

HasTitle プロパティは、次のようにしてChartオブジェクトに対して使用します。

ActiveSheet.ChartObjects(1).Chart.HasTitle

サンプルコード

以下に、Chart.HasTitle プロパティを使った簡単なサンプルコードを示します。

Sub ToggleChartTitle()
    Dim chrt As Chart
    Set chrt = ActiveSheet.ChartObjects(1).Chart
    
    ' チャートのタイトルの有無を切り替える
    If chrt.HasTitle Then
        ' タイトルがある場合はタイトルを削除
        chrt.HasTitle = False
    Else
        ' タイトルがない場合はタイトルを追加し、タイトルテキストを設定
        chrt.HasTitle = True
        chrt.ChartTitle.Text = "Sample Chart Title"
    End If
End Sub

このサンプルコードでは、「ToggleChartTitle」サブプロシージャは、ActiveSheet上の最初のChartObject（チャート）のタイトルの有無を切り替えます。タイトルが存在していればタイトルを削除し、存在していなければ新たにタイトルを追加して「Sample Chart Title」というテキストを設定します。

注意点

このHasTitle プロパティは、存在するチャートに対してのみ適用可能であり、チャートが存在しない場合や、指定したチャートが存在しない場合にはエラーとなります。したがって、実際のコード作成時には、存在チェックなどのエラーハンドリングを適切に行う必要があります。