EXCELのセルコメントを一括で書式設定するマクロ備忘録

EXCELでセルのコメント書式が何故か勝手に変更になる。
とにかく見づらいため、マクロで一括書式設定をすることにしたので、その備忘録。

セルを複数選択し下記のマクロを実行

Sub ReformComment()
Dim cl As Range
For Each cl In Selection
If Not cl.Comment Is Nothing Then
With cl.Comment.Shape
' サイズ自動設定
.TextFrame.AutoSize = True
' 形状を角丸四角形に変更
.AutoShapeType = msoShapeRoundedRectangle
' 塗り色・線色 変更
.Line.ForeColor.RGB = RGB(128, 128, 128)
.Fill.ForeColor.RGB = RGB(240, 240, 240)
' 影 透過率 30%、オフセット量 x:1px,y:1px
.Shadow.Transparency = 0.3
.Shadow.OffsetX = 1
.Shadow.OffsetY = 1
' 太字解除、中央揃え
.TextFrame.Characters.Font.Bold = False
.TextFrame.HorizontalAlignment = xlHAlignCenter
' セルに合わせて移動する
.Placement = xlMove
End With
End If
Next cl
End Sub


This entry was posted in テクニック and tagged , . Bookmark the permalink.

One Response to EXCELのセルコメントを一括で書式設定するマクロ備忘録

コメントを残す

メールアドレスが公開されることはありません。

次のHTML タグと属性が使えます: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>