Страницы: 1
RSS
Ориентация страницы макросом
 
Здравствуйте.
Создаю макрос с книжной на альбомную и наоборот, макрос для одного действия получается массивный где-то 48 строк кода и работает с зависанием...
Есть ли более простой код выполнения данных действий?
 
Код
ActiveSheet.PageSetup.Orientation = xlPortrait
ActiveSheet.PageSetup.Orientation = xlLandscape
 
По вашему коду нашел
Код
    With ActiveSheet.PageSetup
         .Orientation = xlLandscap
     End With
Непонятно зачем столько дополнительных строк кода, я как бы никаких лишних действий не делал…
Благодарю.
 
Макрорекодер не знает, что именно Вам нужно, поэтому пишет с запасом. Учитесь выбирать нужное.

With - если к ActiveSheet.PageSetup относится только одна запись, то With-End With можно не писать.
 
Спасибо
 
Цитата
vikttur написал: поэтому пишет с запасом
Не совсем так, Вить. Когда вызывается окно настроек печати или они изменяются, то макрорекордер пишет все настройки печати, т.к. конкретная одна настройка для печати не записывается по определению.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1
Читают тему
Наверх