Макрос для примечаний в Excel

[kill-out]

Всем привет!

Существует ли макрос для изменения и дальнейшего сохранения границ примечаний в ячейках Excel ?
Сейчас можно изменить и сохранить границы примечаний только по одной штуке, а нужно сразу по всем. Их много.

С уважением, Павел

[cheshiki1]

в помощь

[kill-out]

в помощь

Для того, чтобы скопировать формат нужного примечания нужно использовать метод PickUp, а для того, чтобы применить его, необходимо использовать метод Apply
ActiveSheet.Comments(1).Shape.PickUp

ActiveSheet.Comments(5).Shape.Apply
Предполагается, что :
- в активном рабочем листе есть, как минимум, пять комментариев
- скопировать необходимо формат первого
- а вставить формат необходимо в пятый комментарий
Ответ : Актуально для MS Excel 97, 2000, XP

а для Excel 2010 что делать ?