Excel VBA グラフのタイトルの背景色を変更・クリアする-Format.Fill

Excel VBAでグラフのタイトルの背景の色を変えたり、色なしに設定する記録です。

下図はExcel2016です。

< スポンサーリンク >

グラフタイトルの背景色を変更する例

アクティブシートの１つ目のグラフのタイトルの背景色を赤に設定します。

Sub test()
ActiveSheet.ChartObjects(1).Chart.ChartTitle.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
End Sub

VBAグラフタイトル背景色

アクティブシートの１つ目のグラフのタイトルの背景色を色なしに設定します。

Sub test()
ActiveSheet.ChartObjects(1).Chart.ChartTitle.Format.Fill.Visible = False
End Sub

VBAグラフタイトル背景色

アクティブシートの全てのグラフのタイトルの背景色を黄色、枠線を青で太さを３に設定します。

Sub test()
    Dim i As Long

    With ActiveSheet
        For i = 1 To .ChartObjects.Count
            With .ChartObjects(i).Chart.ChartTitle.Format
                ‘背景色
                With .Fill
                    .Visible = msoTrue
                    .ForeColor.RGB = RGB(255, 255, 0)
                End With
                ‘枠線
                With .Line
                    .Visible = msoTrue
                    .ForeColor.RGB = RGB(0, 0, 255)
                    .Weight = 3
                End With
            End With
        Next i
    End With
End Sub