エクセルVBAでテキストボックスのフォントの色

質問

エクセル2016です。以下のコードで文字は赤になりますが、これをRGB方式ではなくColorindex＝3で指定するにはどう書き直せばよろしいでしょうか？

Sub TEST03()
With Sheets("Sheet1").Shapes("TextBox 3").TextFrame2
With .TextRange
.Text = "TEST/TEST/03"
.Font.Name = "Meiryo UI"
.Font.Bold = msoTrue
.Font.Size = 16
.Font.Fill.ForeColor.RGB = RGB(255, 0, 0)
.ParagraphFormat.Alignment = msoAlignCenter
End With
.VerticalAnchor = msoAnchorMiddle
End With
End Sub

別途、Sheets("Sheet1").Shapes("TextBox 1").TextFrame.Characters.Font.ColorIndex = 3　と書けば赤になりますが、Sub TEST03()のRGB = RGB(255, 0, 0)の代わりに指定する方法が知りたいのです。
よろしくお願いします。

回答No.2

misatoanna · ベストアンサー

TextFrame2オブジェクト ではなく TextFrame のほうでしたら、
-------
With Sheets("Sheet1").Shapes("TextBox 3").TextFrame
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
With .Characters
.Text = "TEST/TEST/03"
.Font.Name = "Meiryo UI"
.Font.Bold = msoTrue
.Font.Size = 16
.Font.ColorIndex = 3　'※
End With
End With
-------
のように記述できますが‥‥

お礼

>TextFrame2オブジェクト ではなく TextFrame のほう
ありがとうございます。
そうですね、何もTextFrame2にこだわる必要もないですね。
全部TextFrame で行けちゃうんですね。ありがとうございます。

回答No.1

kkkkkm

ColorIndexと数値が変わりますが
.Font.Fill.ForeColor.SchemeColor = 2
という方法もあるようです。
ただ、RGBの方がわかりやすいかもです。

お礼

.SchemeColor = 2 という方法もあるのですね。
勉強になりました。
ありがとうございます。