動作検証バージョン:Windows 11 Home + 64bit Excel バージョン 2412(ビルド18324.20012クイック実行)ベータチャネル
PowerPoint VBAで蛍光ペンを設定するコードをご紹介しました。
ほとんど同じコードでExcelでも図形内の文字列に蛍光ペンを設定できます。
[スポンサードリンク]
図形内文字列に蛍光ペンを設定するサンプルマクロ
1枚目のシートの1つ目の図形に文字列が入力されているときに、以下のExcelマクロを実行すると、図形の1文字目に緑色の蛍光ペンが設定されます。
Sub 図形内の文字列に蛍光ペンを設定する()
Sheets(1).Shapes(1) _
.TextFrame2.TextRange.Characters(1, 1) _
.Font.Highlight.RGB = RGB(0, 255, 0)
End Sub
Sheets(1).Shapes(1) _
.TextFrame2.TextRange.Characters(1, 1) _
.Font.Highlight.RGB = RGB(0, 255, 0)
End Sub
サンプルマクロで行っている処理について
PowerPoint VBAで
ActivePresentation.Slides(1).Shapes(1) __
となっていたコードが、
Sheets(1).Shapes(1) _
になっていることだけが違い、このコードにつづく
.TextFrame2.TextRange.Characters(1, 1) _ .Font.Highlight.RGB = RGB(0, 255, 0)
は同じです。
ShapeオブジェクトのTextFrame2プロパティでTextFrame2オブジェクトを取得した以降は、Officeで共通だからです。
[スポンサードリンク]
Home » エクセルマクロ・Excel VBAの使い方 » 図形内文字列 » Excel VBAで図形内文字列に蛍光ペンを設定する