Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Редактирование выравнивания примечаний - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Редактирование выравнивания примечаний (Формулы/Formulas)
Редактирование выравнивания примечаний
Skav_Shi Дата: Вторник, 20.09.2016, 15:13 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Доброго времени суток!
Есть такая проблемка - как автоматически примечания по выравниванию в окошке подогнать? А то часть по верхнему краю, часть по нижнему, часть по середине, а хотелось бы всё по середине... понимаю, что явно с помощью макроса, аналогично например макросу по редактированию размеров примечаний, но с макросами на очень "Вы", сам не справлюсь. Хелп.
 
Ответить
СообщениеДоброго времени суток!
Есть такая проблемка - как автоматически примечания по выравниванию в окошке подогнать? А то часть по верхнему краю, часть по нижнему, часть по середине, а хотелось бы всё по середине... понимаю, что явно с помощью макроса, аналогично например макросу по редактированию размеров примечаний, но с макросами на очень "Вы", сам не справлюсь. Хелп.

Автор - Skav_Shi
Дата добавления - 20.09.2016 в 15:13
_Boroda_ Дата: Вторник, 20.09.2016, 15:47 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 9374
Репутация: 3947 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Взяв за основу макрос из закрытой темы, можно сделать вот так, например
[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]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВзяв за основу макрос из закрытой темы, можно сделать вот так, например
[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]

Автор - _Boroda_
Дата добавления - 20.09.2016 в 15:47
Skav_Shi Дата: Вторник, 20.09.2016, 16:31 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Ругается на ошибку 91 и выделяет цветом строку - With x.Comment.Shape.TextFrame
 
Ответить
СообщениеРугается на ошибку 91 и выделяет цветом строку - With x.Comment.Shape.TextFrame

Автор - Skav_Shi
Дата добавления - 20.09.2016 в 16:31
_Boroda_ Дата: Вторник, 20.09.2016, 16:36 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 9374
Репутация: 3947 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
А у Вас на листе примечания есть? Файл свой приложите.
вот так от ошибки избавляемся
[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]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА у Вас на листе примечания есть? Файл свой приложите.
вот так от ошибки избавляемся
[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]

Автор - _Boroda_
Дата добавления - 20.09.2016 в 16:36
Skav_Shi Дата: Вторник, 20.09.2016, 16:46 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Да, есть примечания. Приложил.
К сообщению приложен файл: _10.2.xlsx(65Kb)


Сообщение отредактировал Skav_Shi - Вторник, 20.09.2016, 16:51
 
Ответить
СообщениеДа, есть примечания. Приложил.

Автор - Skav_Shi
Дата добавления - 20.09.2016 в 16:46
Skav_Shi Дата: Вторник, 20.09.2016, 16:49 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
О! Сработало! А как этот макрос подредактировать, чтобы по горизонтали было выравнивание по левому краю?
.HorizontalAlignment = xlCenter заменить на .HorizontalAlignment = xlLeft ?


Сообщение отредактировал Skav_Shi - Вторник, 20.09.2016, 16:55
 
Ответить
СообщениеО! Сработало! А как этот макрос подредактировать, чтобы по горизонтали было выравнивание по левому краю?
.HorizontalAlignment = xlCenter заменить на .HorizontalAlignment = xlLeft ?

Автор - Skav_Shi
Дата добавления - 20.09.2016 в 16:49
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Редактирование выравнивания примечаний (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!