【VBA】コメントの図形(枠)を変更する

Excel・VBA

セルに追加されたコメントを表示した際の図形を操作する方法を紹介します。

コメントの図形を変更する

コメントの図形(下の図)を操作するには、Commentオブジェクトのshapeプロパティを操作します。

変更する図形

shapeプロパティは、次の書式に従い操作します。

対象のセル.Comment.Shape.AutoShapeType = 図形の名前 or 値

図形を変更するサンプルマクロ

Sub コメント図形変更()

    Cells(6, 4).Comment.Shape.AutoShapeType = msoShapeCloudCallout

End Sub

このマクロでは、コメントの図形を四角から、雲状の吹き出しに変えています。

コメント図形の変更

変更できる図形の種類

変更可能な図形の種類をいくつか紹介します。

雲状の吹き出し

名前:msoShapeCloudCallout
値 :108

丸型の吹き出し

名前:msoShapeOvalCallout
値 :107

吹き出し

名前:msoShapeBalloon
値 :137

角丸の四角

名前:msoShapeRoundedRectangle
値 :5

メモ

名前:msoShapeFoldedCorner
値 :16

爆発

名前:msoShapeExplosion1
値 :89

名前:msoShapeWave
値 :103

ハート

名前:msoShapeHeart
値 :21

名前:msoShapeSmileyFace
値 :17

禁止マーク

名前:msoShapeNoSymbol
値 :19

コメント

タイトルとURLをコピーしました