[ VBA ] シート上の図形内にテキストとフォントカラーを設定する

Tweet

Pocket

ここでは、VBA にてExcelのシート上に配置した図形の中にテキストを設定し、フォントの色を範囲指定で変更するサンプルスクリプトを掲載しています。

図形内にテキストとフォント色を設定する

エクセルシートには次の通り図形が配置してあるものとします。赤枠で囲んだ部分は図形の名前です。

ボタンクリック時のイベントハンドラ内でテキストおよび色を設定するサンプルスクリプトは次の通りです。詳細はサンプル内のコメントを参照ください。

Option Explicit

Private Sub CommandButton1_Click()

    With Shapes("図形内にテキストを追加")
        
        ' テキストを追加
        .TextFrame.Characters.Text = "いろはにほへと"
        
        ' フォントの色を設定(テキスト全体)
        .TextFrame.Characters.Font.Color = vbRed
        
        ' フォントの色を上書き設定(2文字目から3文字分の範囲指定)
        .TextFrame.Characters(2, 3).Font.Color = vbBlue

    End With
    
End Sub

Tweet

Pocket