Существует ли макрос для изменения и дальнейшего сохранения границ примечаний в ячейках Excel ? Сейчас можно изменить и сохранить границы примечаний только по одной штуке, а нужно сразу по всем. Их много.
С уважением, Павел
Всем привет!
Существует ли макрос для изменения и дальнейшего сохранения границ примечаний в ячейках Excel ? Сейчас можно изменить и сохранить границы примечаний только по одной штуке, а нужно сразу по всем. Их много.
Суть. Во вложении - в первой ячейке имеется комментарий с полями одного размера. Очень нужно, чтобы другие ячейки имели комментарий такого же размера
На другом форуме нашел такой совет, но он не подходит для Excel 2010: "Как скопировать формат одного примечания и применить его к другим примечаниям (тиражирование формата комментария) Для того, чтобы скопировать формат нужного примечания нужно использовать метод PickUp, а для того, чтобы применить его, необходимо использовать метод Apply
ActiveSheet.Comments(1).Shape.PickUp
ActiveSheet.Comments(5).Shape.Apply
Предполагается, что : - в активном рабочем листе есть, как минимум, пять комментариев - скопировать необходимо формат первого - а вставить формат необходимо в пятый комментарий"
Pelena, ивиняюсь !
Суть. Во вложении - в первой ячейке имеется комментарий с полями одного размера. Очень нужно, чтобы другие ячейки имели комментарий такого же размера
На другом форуме нашел такой совет, но он не подходит для Excel 2010: "Как скопировать формат одного примечания и применить его к другим примечаниям (тиражирование формата комментария) Для того, чтобы скопировать формат нужного примечания нужно использовать метод PickUp, а для того, чтобы применить его, необходимо использовать метод Apply
ActiveSheet.Comments(1).Shape.PickUp
ActiveSheet.Comments(5).Shape.Apply
Предполагается, что : - в активном рабочем листе есть, как минимум, пять комментариев - скопировать необходимо формат первого - а вставить формат необходимо в пятый комментарий"kill-out
Sub ertert() Dim i&, w#, h# With ActiveSheet.Comments(1).Shape w = .Width: h = .Height End With For i = 2 To ActiveSheet.Comments.Count With ActiveSheet.Comments(i).Shape .Width = w: .Height = h End With Next i End Sub
[/vba]
kill-out, попробуйте вот так: [vba]
Код
Sub ertert() Dim i&, w#, h# With ActiveSheet.Comments(1).Shape w = .Width: h = .Height End With For i = 2 To ActiveSheet.Comments.Count With ActiveSheet.Comments(i).Shape .Width = w: .Height = h End With Next i End Sub