VBAでセルにコメントを付ける

VBA

微妙に面倒だったのでメモっておく。

Option Explicit

Sub MakeComment()

    Dim cmnt As Comment
    
    '予めコメントを付けるセルのコメントを消しておく
    ActiveSheet.Range("C3").ClearComments
    'コメントオブジェクトを変数に格納
    Set cmnt = ActiveSheet.Range("C3").AddComment
    
    With cmnt
        .Shape.Fill.ForeColor.SchemeColor = 45        'コメントの背景色をピンクにする
        With .Shape.TextFrame
            .AutoSize = True                          'サイズを自動サイズ調整
            .Characters.Font.Name = "ＭＳ ゴシック"    'フォントをＭＳ ゴシックに変更
            .Characters.Font.Size = 12                'フォントサイズを12に変更
        End With
        .Text Text:="ほげふが"                        'コメントのテキストをセット
        .Visible = True                               'コメントを表示させる
    End With

    Set cmnt = Nothing

End Sub

コードから察するに、結局はコメントもShapeと同様に扱えって事ですね。