Excel VBA シート上の図形の文字の色を変更する-TextFrame.Characters.Font.Color、ColorIndex

Excel VBAでシート上にある図形の文字の色を変更する記録です。

文字の色を変更するには「Color」プロパティまたは「ColorIndex」プロパティを使います。

下図は、Excel2016です。

< スポンサーリンク >

例

図形に「あいうえお」という文字を表示し、フォントサイズを13ポイントに、色をRGB値で赤に設定します。

Sub test()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes(1)

    With shp.TextFrame.Characters
        .Text = “あいうえお”
        With .Font
            .Size = 13
            .Color = RGB(255, 0, 0)
        End With
    End With
End Sub

図形に「あいうえお」という文字を表示し、フォントサイズを13ポイントに、色をカラー定数で黄色に設定します。

Sub test()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes(1)

    With shp.TextFrame.Characters
        .Text = “あいうえお”
        With .Font
            .Size = 13
            .Color = vbYellow
        End With
    End With
End Sub

図形に「あいうえお」という文字を表示し、フォントサイズを13ポイントに、色をカラーインデックスで緑に設定します。

Sub test()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes(1)

    With shp.TextFrame.Characters
        .Text = “あいうえお”
        With .Font
            .Size = 13
            .ColorIndex = 4
        End With
    End With
End Sub