Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

увеличение

Автор edmar07, 01.04.2013, 17:25

« назад - далее »

edmar07

Цитата: Serge 007 от 04.04.2013, 13:49

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

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

Prist

Можно "копировать" формат примечания из указанного. Делал на другом форуме - см. вложение.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
www.excel-vba.ru
Просто СПАСИБО [+оказать+]
Считаешь СПАСИБО мало? Яндекс.Деньги: 41001332272872; WM: R298726502453

edmar07

Цитата: Prist от 05.04.2013, 12:14
Можно "копировать" формат примечания из указанного. Делал на другом форуме - см. вложение.
Пишет ошибку 438 (объект не поддерживает эти свойства или метод)
и тормозит на: 
          rCell.Comment.Shape.TextEffect = rCommentCell.Shape.TextEffect

RAN

#18

edmar07


edmar07

#20
Цитата: edmar07 от 04.04.2013, 14:15
Цитата: Serge 007 от 04.04.2013, 13:49

Можно так (примечания добавятся в диапазон А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



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