Excel VBA グラフのデータテーブルの文字サイズを変更する-Font.Size

Excel VBAでグラフのデータテーブルの文字サイズを変更する記録です。

下図はExcel2016です。

VBAグラフデータテーブル文字サイズ

 

< スポンサーリンク >

 

書き方

ChartObjects.Chart.DataTable.Format.TextFrame2.TextRange.Font.Size

フォントサイズを表すバリアント型 (Variant) の値を取得または設定します。

 

アクティブシートの1つ目のグラフのデータテーブルの文字サイズを12ポイントに設定にします。

Sub test()
    ActiveSheet.ChartObjects(1).Chart.DataTable.Format.TextFrame2.TextRange.Font.Size = 12
End Sub

VBAグラフデータテーブル文字サイズ

VBAグラフデータテーブル文字サイズ

 

アクティブシートの全てのグラフのデータテーブルの文字サイズを8ポイントに設定します。
「For...Next」と「For Each...Next」の2つの方法を書きます。

Sub test()
    Dim i As Long

    With ActiveSheet
        For i = 1 To .ChartObjects.Count
            If .ChartObjects(i).Chart.HasDataTable Then
                .ChartObjects(i).Chart.DataTable.Format.TextFrame2.TextRange.Font.Size = 8
            End If
        Next i
    End With
End Sub

VBAグラフデータテーブル文字サイズ

Sub test()
    Dim cho As ChartObject

    For Each cho In ActiveSheet.ChartObjects
        If cho.Chart.HasDataTable Then
            cho.Chart.DataTable.Format.TextFrame2.TextRange.Font.Size = 8
        End If
    Next cho
End Sub

VBAグラフデータテーブル文字サイズ

VBAグラフデータテーブル文字サイズ

 

< スポンサーリンク >



サブコンテンツ

このページの先頭へ