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
