Изменить формат примечания

[JaxTesla]

Здравствуйте.
Подскажите ПЖЛСТ , как можно поменять шрифт у сделанных уже примечаний, автоматически, т.к. примечаний много, вручную менять, это не вариант.
Заранее спасибо.
Очень нужно.

[EducatedFool]

Например, так:

Sub test_comment()
    Dim celll As Range, str As String: Set celll = Range("a1"): str = ""
    celll.ClearComments
    For i = 1 To 10: str = str & "Строка № " & i & vbLf: Next i
    celll.AddComment str
    
    With celll.Comment.Shape
        .Width = 200: .Height = 250
        .AutoShapeType = 16
        .Fill.ForeColor.SchemeColor = 11
        .Fill.TwoColorGradient msoGradientFromCenter, 2
    End With
    With celll.Comment.Shape.TextFrame
        For i = 1 To .Characters.Count
            letter = .Characters(Start:=i, Length:=1).Text
            .Characters(Start:=i, Length:=1).Font.Bold = IsNumeric(letter)
            .Characters(Start:=i, Length:=1).Font.Color = IIf(IsNumeric(letter), vbBlack, vbRed)
            If letter = "№" Then .Characters(Start:=i, Length:=1).Font.Size = 16
        Next
    End With
    celll.Comment.Visible = True
End Sub

Подробно о работе с примечаниями написано здесь


См. пример работы с комментариями во вложении.