Новичек в макросах, Решаю задачу с упорядочиванием больших объемов данных.
Стоит задача подогнать все комментарии в определенном столбце к одному размеру, вот что сейчас имею.
Код |
---|
Sub Размер_Комментария()
Dim iComment As Comment
For Each iComment In ActiveSheet.Comments
iComment.Shape.TextFrame.AutoSize = True
iComment.Shape.Height = 308
iComment.Shape.Width = 308
Next iComment
MsgBox "Размеры комментариев исправлены!", vbInformation, "Комментарии"
End Sub
|
Нашел что то похожее, немного сам поковырялся, работает как нужно, только два но...
1) понимаю, присутствуют лишние элементы в коде, поскольку изначально за основу брал то что нашел в сети, даже наверное на этом форуме, нужно бы убрать лишнее из кода
2) сейчас редактирование комментариев применяется ко всему листу, это перебор, нужно чтобы применялось к определенному столбцу, причем лучше чтобы не по букве столбца экселя а по названию столбца динамической таблицы, поскольку в дальнейшем количество столбцов будут добавляться и убавляться.
Вот как то так...