【VBA】図形（オートシェイプ）やシェイプ内文字の色を操作する

こんにちは、Ryoです。
先日の記事でVBAによるシート内に図形を作成する内容を書きましたが、実際使用する上では作成した図形に色を塗りたい、枠線も塗りつぶした色に合わせたい、図形内に表示した文字の色を変えたい・・・等々思うことがありますよね。
なので、今回はその指定方法について書いてみたいと思います。

前回記事「シート内に図形を追加する」は以下になりますので、よろしければ参照ください。

【VBA】図形（オートシェイプ）を作成し文字列表示する

こんにちは、Ryoです。 Excel VBAで処理する中で私がいつも大変だなぁと思うのは、何と言ってもUI（ユーザーインターフェイス）で、ただ処理結果をアウトプットするだけでは使い難いことこの上ないものになりますから、視覚的にわかりやすくす...

1.サンプル概要
2.サンプルコード
3.まとめ

1.サンプル概要

以前の記事で使用したサンプルをベースに書いてみたいと思います。
先ず「爆発型」の図形を使い、図形内に「文字！」を表示しますが、図形と図形枠線は「赤」に塗りつぶして「文字！」を白色、そして文字配置を図形内中央とします。

実行結果はこのような画像になります。
ではサンプルコードを以下に記載しますので、ご確認ください。

2.サンプルコード

Sub Sample1()

　With ActiveSheet.Shapes.AddShape _
 　(msoShapeExplosion1, 120, 50, 100, 70)
  　'表示文字の指定
  　.TextFrame.Characters.Text = "文字！"
  　'図形内テキストのフォントカラーを指定する
  　.TextFrame.Characters.Font.Color = RGB(255, 255, 255)
  　'図形内のテキスト水平方向を中央位置にする
  　.TextFrame.HorizontalAlignment = xlHAlignCenter
  　'図形内のテキスト縦方向を中央位置にする
  　.TextFrame.VerticalAlignment = xlVAlignCenter
  　'図形の枠線の色を指定する
  　.Line.ForeColor.RGB = RGB(255, 0, 0)
  　'図形の塗りつぶし色を指定する
  　.Fill.ForeColor.RGB = RGB(255, 0, 0)
　End With

End Sub

図形をシートに挿入する、文字列指定は前回記事でご説明している通りなので割愛します。