увеличение

[edmar07]

Можно так (примечания добавятся в диапазон А1:А15):

Спасибо, Сергей!! с примечаниями разобрался, не могу поменять цвет фона примечания (их у меня аж 1700)
понимаю что там 3 строчки но не спец в этом(((

[Prist]

Можно "копировать" формат примечания из указанного. Делал на другом форуме - см. вложение.

[edmar07]

Можно "копировать" формат примечания из указанного. Делал на другом форуме - см. вложение.

Пишет ошибку 438 (объект не поддерживает эти свойства или метод)
и тормозит на: 
          rCell.Comment.Shape.TextEffect = rCommentCell.Shape.TextEffect

[RAN]

Лупа

[edmar07]

Лупа

спасибо! не очень подходит

[edmar07]

Можно так (примечания добавятся в диапазон А1:А15):

Спасибо, Сергей!! с примечаниями разобрался, не могу поменять цвет фона примечания (их у меня аж 1700)
понимаю что там 3 строчки но не спец в этом(((

вот так у меня получилось, по аналогии можно во всех примечаниях менять ВСЕ ))))

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

Sub ChangeCommentColor()
   ' Автоматическое изменение цвета комментариев
   Dim comment As comment
   For Each comment In ActiveSheet.Comments
      ' Задаем цвета заливки и шрифта комментариев
      comment.Shape.Fill.ForeColor.SchemeColor = Int(33)
      comment.Shape.Fill.Transparency = 0.1
      comment.Shape.TextFrame.Characters.Font.ColorIndex = Int(16)
      comment.Shape.TextFrame.Characters.Font.Size = 72
      comment.Shape.TextFrame.Characters.Font.Name = "Times New Roman"
      comment.Shape.Line.Weight = 3#
      comment.Shape.Line.ForeColor.SchemeColor = Int(40)
   Next
End Sub


спасибо Сергею за поиски решений и на других форумах!