Доброго времени суток! Есть такая проблемка - как автоматически примечания по выравниванию в окошке подогнать? А то часть по верхнему краю, часть по нижнему, часть по середине, а хотелось бы всё по середине... понимаю, что явно с помощью макроса, аналогично например макросу по редактированию размеров примечаний, но с макросами на очень "Вы", сам не справлюсь. Хелп.
Доброго времени суток! Есть такая проблемка - как автоматически примечания по выравниванию в окошке подогнать? А то часть по верхнему краю, часть по нижнему, часть по середине, а хотелось бы всё по середине... понимаю, что явно с помощью макроса, аналогично например макросу по редактированию размеров примечаний, но с макросами на очень "Вы", сам не справлюсь. Хелп.Skav_Shi
Взяв за основу макрос из закрытой темы, можно сделать вот так, например [vba]
Код
Sub CommentPoTsentru() Application.ScreenUpdating = False Dim x As Range, y As Long For Each x In Cells.SpecialCells(xlCellTypeComments) With x.Comment.Shape.TextFrame .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With Next x Application.ScreenUpdating = True End Sub
[/vba]
Взяв за основу макрос из закрытой темы, можно сделать вот так, например [vba]
Код
Sub CommentPoTsentru() Application.ScreenUpdating = False Dim x As Range, y As Long For Each x In Cells.SpecialCells(xlCellTypeComments) With x.Comment.Shape.TextFrame .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With Next x Application.ScreenUpdating = True End Sub
А у Вас на листе примечания есть? Файл свой приложите. вот так от ошибки избавляемся [vba]
Код
Sub CommentPoTsentru() Application.ScreenUpdating = False Dim x As Range, y As Long On Error Resume Next For Each x In Cells.SpecialCells(xlCellTypeComments) With x.Comment.Shape.TextFrame .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With Next x Application.ScreenUpdating = True End Sub
[/vba]
А у Вас на листе примечания есть? Файл свой приложите. вот так от ошибки избавляемся [vba]
Код
Sub CommentPoTsentru() Application.ScreenUpdating = False Dim x As Range, y As Long On Error Resume Next For Each x In Cells.SpecialCells(xlCellTypeComments) With x.Comment.Shape.TextFrame .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With Next x Application.ScreenUpdating = True End Sub
О! Сработало! А как этот макрос подредактировать, чтобы по горизонтали было выравнивание по левому краю? .HorizontalAlignment = xlCenter заменить на .HorizontalAlignment = xlLeft ?
О! Сработало! А как этот макрос подредактировать, чтобы по горизонтали было выравнивание по левому краю? .HorizontalAlignment = xlCenter заменить на .HorizontalAlignment = xlLeft ?Skav_Shi
Сообщение отредактировал Skav_Shi - Вторник, 20.09.2016, 16:55
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
