Как написать макрос, чтобы Примечание всплывало в определенном месте

[Оксана33]

есть вот такой макрос, при котором появляется примечание, если ячейки выделена

Код Выделить Развернуть

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Application.DisplayCommentIndicator = -1
   
    If Not Target.Comment Is Nothing Then Target.Comment.Visible = True
End Sub
но как сделать, чтобы это примечание появлялось там где мне нужно (над или под ячейкой)
и еще, можно ли изменить цвет примечания или/и его индикаторов?

[Serge 007]

Запустите этот код:

Код Выделить Развернуть

Sub Оксана33()

[c10].AddComment

    With Range("C10").Comment
        .Visible = True
        .Shape.Select True
    End With
   
    With Selection.ShapeRange
        .IncrementLeft -45#
        .IncrementTop 30#
        .Fill.ForeColor.RGB = RGB(255, 0, 0)
    End With
   
End Sub
В результате работы макроса Вы добавите примечание с красной заливкой ниже на две строки от ячейки С10 и посередине столбца С (если на листе до запуска макроса не изменяли ширины столбцов и высоту строк)

Естественно, ячейка С10 приведена просто для примера

[Оксана33]

        .IncrementLeft -45#
        .IncrementTop 30#

не могли бы вы описать эти два параметра

[Serge 007]

https://msdn.microsoft.com/en-us/library/office/ff821629.aspx