コメントの挿入

出張で、一週間近くブログを更新できなかった。
ということで、今日は軽めに。

セルのコメントを、マクロでこんな風に表示したい。

ということで、関数にしてみた。とりあえず戻り値は、Rangeにしてみよう。

Function コメント(target_range As Range, ParamArray comments()) As Range
    Dim CommentCharacter As String
        CommentCharacter = Join(comments, vbNewLine)

    ' コメントを追加すると同時に、書式を変更する。
    With target_range.AddComment(CommentCharacter).Shape.TextFrame
        ' コメントのサイズを、文字に合わせて自動的に変更。
        .AutoSize = True

        ' 以下、フォントに関する変更。
        .Characters.Font.Name = "メイリオ"
        .Characters.Font.Size = 10
        .Characters.Font.Bold = False
    End With
    
    Set コメント = target_range
End Function

テスト結果がこちら。

Sub Test()
    コメント Range("D5"), "正義超人", "95万パワー"
End Sub

リハビリ初日としては、こんなもんかな。

参考まで。