Developing.ru

VictorM, Хочу сразу сказать спасибо за подробный ответ. В моем случае AutoSize окна комментария желателен вообще везде... По совету Pavel55 я добавил строки

Dim iComment As Comment
For Each iComment In ActiveSheet.Comments
iComment.Shape.TextFrame.AutoSize = True
Next iComment

И все сразу стало выглядеть просто чудесно. Сылка в самом деле очень информативна - за нее особый сенькс.

Pavel55, Я удалил строки:

iComment.Shape.Height = iComment.Shape.Height + 10
iComment.Shape.Width = iComment.Shape.Width + 15

Без них смотрится приятней... Можно ли это все еще упростить сведя все к одной строке? В хелпе я нашел следующее:

This example adjusts the size of the text frame on shape one to fit its text.
Worksheets(1).Shapes(1).TextFrame.AutoSize = True

Но все мои варианты выдают эррор...

DID, код Pavel55 великолепно справляется со всеми комментами на листе. У Вас там в цикле и так осталась одна строка. Непонятно теперь, куда Вы хотите "пристроить" предложенную строку?

Свести к 1 строке можно только в одном случае - если хотите изменить рамку одного комментария. Для всех комментарий на листе нужно делать цикл, а цикл уже будет состоять из 3 строк (ну или писать операторы через двоеточие ( : ) )

Теперь все предельно понятно. Всем огромное спасибо за ответы!!!