Excel VBAで図形（シェイプ）の文字・位置・色・サイズを設定

TextFrameオブジェクトを使用し、図形の文字・位置・色・サイズの設定を設定するVBA

Excel VBA シートコード

作成したコマンドボタンクリックイベントの説明

Textプロパティで表示する文字列を設定
Colorプロパティで表示色を赤色に設定
ColorIndexプロパティでも表示色を設定できます。
Font.BoldプロパティをTrueにし太字に設定する
Font.Sizeプロパティでフォントサイズを16に設定する
VerticalAlignmentプロパティで、垂直方向の表示位置をxlVAlignBottom(下揃え)に設定
HorizontalAlignmentプロパティで、水平方向の表示位置をxlVAlignCenter(左右中央揃え)に設定

Private Sub CommandButton1_Click()
    '文字をセット
    ActiveSheet.Shapes("Rectangle 5").TextFrame.Characters.Text = "エクセル忍法"
    '文字色
    'ActiveSheet.Shapes("Rectangle 5").TextFrame.Characters.Font.Color = vbRed
    '文字色
    ActiveSheet.Shapes("Rectangle 5").TextFrame.Characters.Font.ColorIndex = 5
    '太字
    ActiveSheet.Shapes("Rectangle 5").TextFrame.Characters.Font.Bold = True
    'サイズ
    ActiveSheet.Shapes("Rectangle 5").TextFrame.Characters.Font.Size = 16


    '垂直方向の位置
    ActiveSheet.Shapes("Rectangle 5").TextFrame.VerticalAlignment = xlVAlignBottom
    '水平方向の位置
    ActiveSheet.Shapes("Rectangle 5").TextFrame.HorizontalAlignment = xlVAlignCenter
End Sub

Excel VBAの実行結果

開始前は何も表示されていない四角形の図形のみです。

実行結果

下揃え・左右中央揃えで文字列が表示されています。

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

Excel VBAで図形（シェイプ）の文字・位置・色・サイズを設定

Excel VBAで図形の文字・位置・色・サイズの設定には、TextFrameオブジェクトを使用します。

TextFrameオブジェクトを使用し、図形の文字・位置・色・サイズの設定を設定するVBA

Excel VBA シートコード

Excel VBAの実行結果