指定サイズのコメントを追加する

Sub prcAddCommentToCell()
    ' セルB2に指定された寸法のコメントを追加する
    Dim cmnExample As Comment
    Dim shpExample As Shape

    ' 既存のコメントがあれば削除
    On Error Resume Next
    Range("B2").Comment.Delete
    On Error GoTo 0

    ' B2にコメントを追加
    Set cmnExample = Range("B2").AddComment("あああ")

    ' コメントのサイズを調整
    Set shpExample = cmnExample.Shape
    With shpExample
        .Width = Application.CentimetersToPoints(1.5) ' 幅 15 mm
        .Height = Application.CentimetersToPoints(1) ' 高さ 10 mm
    End With
End Sub