Профессиональные приемы работы в Microsoft Excel

Обмен опытом => Microsoft Excel => Тема начата: Оксана33 от 07.06.2015, 14:12

Название: Как написать макрос, чтобы Примечание всплывало в определенном месте
Отправлено: Оксана33 от 07.06.2015, 14:12
есть вот такой макрос, при котором появляется примечание, если ячейки выделена
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

но как сделать, чтобы это примечание появлялось там где мне нужно (над или под ячейкой)
и еще, можно ли изменить цвет примечания или/и его индикаторов?

Название: Re: Как написать макрос, чтобы Примечание всплывало в определенном месте
Отправлено: Serge 007 от 07.06.2015, 18:04
Запустите этот код:
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 приведена просто для примера
Название: Re: Как написать макрос, чтобы Примечание всплывало в определенном месте
Отправлено: Оксана33 от 16.06.2015, 16:35
Цитата: Serge 007 от 07.06.2015, 18:04
        .IncrementLeft -45#
        .IncrementTop 30#
не могли бы вы описать эти два параметра
Название: Re: Как написать макрос, чтобы Примечание всплывало в определенном месте
Отправлено: Serge 007 от 16.06.2015, 19:05
https://msdn.microsoft.com/en-us/library/office/ff821629.aspx