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