OfficeType
  1. ホーム
  2. Excel VBA
  3. その他
  4. コメントの枠の形を変更しよう

VBA～コメントの枠の形を変更しよう～Excel

コメント枠の形状

VBAでコメントの枠の形を変更したい場合はCommentオブジェクトのShape.AutoShapeTypeプロパティを設定します。

下のコードを実行するとコメントの形状が楕円になります。 

Sub test1()

Range("A1").AddComment "挿入したいコメント"
Range("A1").Comment.Shape.AutoShapeType = msoShapeOval

End Sub

image-01

image-02

コメントのフォントサイズ

VBAでコメントのフォントサイズを設定したい場合はTextFrame.CharactersメソッドのFont.Sizeプロパティを設定します。

下のコードを実行するとコメントのフォントサイズが12に設定されます。 

Sub test2()

Range("A1").AddComment "挿入したいコメント"
Range("A1").Comment.Shape.TextFrame.Characters.Font.Size = 12

End Sub

image-03

コメント枠の背景色

VBAでコメント枠の背景色を設定したい場合はShapeオブジェクトのFillFormat.ForeColorプロパティを設定します。

下のコードを実行するとコメント枠の背景色が赤に設定されます。 

Sub test3()

Range("A1").AddComment "挿入したいコメント"
Range("A1").Comment.Shape.Fill.ForeColor.RGB = RGB(255, 0, 0)

End Sub

image-04