Настройка атрибутов настройки страницы для нескольких листов в Excel

Сводка

В Microsoft Excel атрибуты настройки страниц, такие как поля, ориентация листа и заголовки печати, задаются для каждого листа по отдельности. В этой статье описаны три метода, которые можно использовать для глобального задания некоторых из этих атрибутов.

Дополнительная информация

Чтобы задать атрибуты настройки страницы для группы листов Excel, используйте один из следующих методов.

Метод 1. Изменение группы листов

Чтобы применить атрибуты настройки страницы к группе листов в книге, выполните следующие действия.

1. Нажмите клавиши CTRL и щелкните все вкладки листа в книге, на которую вы хотите повлиять.

2. В меню Файл выберите команду Параметры страницы.

   Примечание.

   В Excel 2007 щелкните средство запуска диалогового окна в группе Параметры страницы на вкладке Макет страницы.

3. Внесите необходимые изменения в диалоговом окне Настройка страницы и нажмите кнопку ОК.

Все выбранные листы имеют одинаковые атрибуты настройки страницы.

Способ 2. Использование макроса

Корпорация Майкрософт предоставляет примеры программирования только в целях демонстрации без явной или подразумеваемой гарантии. Данное положение включает, но не ограничивается этим, подразумеваемые гарантии товарной пригодности или соответствия отдельной задаче. Эта статья предполагает, что пользователь знаком с представленным языком программирования и средствами, используемыми для создания и отладки процедур. Инженеры службы поддержки Майкрософт могут помочь объяснить функциональность конкретной процедуры, но они не будут изменять эти примеры, чтобы предоставить дополнительные функциональные возможности или создать процедуры в соответствии с вашими конкретными требованиями. Вы можете программно изменить атрибуты настройки страницы в активной книге и в любой другой открытой книге.

Чтобы программно изменить ориентацию страницы всех листов в активной книге, выполните действия, описанные в предыдущем примере:

1. Запустите Excel.

2. Введите некоторые данные на трех листах.

3. Нажмите клавиши ALT+F11, чтобы запустить Редактор Visual Basic.

4. В меню Вставка выберите Модуль.

5. Введите следующий код на листе модулей:

   Sub SetAttributes()
      For Each xWorksheet In ActiveWorkbook.Worksheets
         xWorksheet.PageSetup.Orientation = _
            Worksheets("Sheet1").PageSetup.Orientation
      Next xWorksheet
   End Sub
   

6. Нажмите клавиши ALT+F11, чтобы переключиться в Excel.

7. Выберите Лист1.

8. В меню Файл выберите команду Параметры страницы.

   Примечание.

   В Excel 2007 щелкните средство запуска диалогового окна в группе Параметры страницы на вкладке Макет страницы.

9. На вкладке Страница в разделе Ориентация щелкните Альбомная, а затем нажмите кнопку ОК.

10. В меню Сервис выберите пункт Макрос, а затем нажмите Макросы.

    Примечание.

    В Excel 2007 выполните следующие действия.

    1. Если вкладка Разработчик недоступна, выполните следующие действия: > 1. Нажмите кнопку Microsoft Office и выберите Пункт Параметры Excel. > 1. В категории Популярные выберите вкладку Показать разработчик в поле Лента проверка в разделе Основные параметры для работы с Excel, а затем нажмите кнопку ОК.
    2. На вкладке Разработчик нажмите кнопку Макросы в группе Код.

11. Щелкните SetAttributes и нажмите кнопку Выполнить.

Все три листа отображают альбомную ориентацию в режиме предварительного просмотра. Чтобы программно изменить атрибуты настройки страницы на всех страницах активной книги на основе атрибутов настройки страниц другой открытой книги, выполните действия, описанные в следующем примере:

1. В меню Файл выберите Создать.

   Примечание.

   В Excel 2007 нажмите кнопку Microsoft Office, а затем нажмите кнопку Создать.

2. Щелкните Книга и нажмите кнопку ОК.

   Примечание.

   В Excel 2003 щелкните Пустая книга в разделе Создать в области задач Новая книга. В Excel 2007 в разделе Шаблоны убедитесь, что выбраны пустые и последние, а затем дважды щелкните Пустая книга в области справа.

3. Введите данные во все листы в новой книге.

4. Нажмите клавиши ALT+F11, чтобы запустить редактор Visual Basic.

5. Выберите первую книгу в Обозреватель Project и щелкните Module1 в папке Модули.

6. Замените следующим кодом на лист module1:

   Sub SetWorkbookAttributes()
      For Each xWorksheet In ActiveWorkbook.Worksheets
         xWorksheet.PageSetup.Orientation = _
            ThisWorkbook.Worksheets("Sheet1").PageSetup.Orientation
      Next xWorksheet
   End Sub
   

7. Нажмите клавиши ALT+F11, чтобы вернуться к Excel.

8. В меню Сервис выберите пункт Макрос, а затем нажмите Макросы.

   Примечание.

   В Excel 2007 на вкладке Разработчик щелкните Макросы в группе Код.

9. Щелкните Book1! SetWorkbookAttributes и нажмите кнопку Выполнить.

   Ориентация настройки страницы совпадает с ориентацией на листе 1 в первой книге.

Если вы хотите изменить дополнительные свойства настройки страниц для листов, можно добавить дополнительные строки в поле For Each... Следующая инструкция в каждой процедуре Sub. Строки должны быть идентичны приведенным здесь примерам, за исключением того, что свойство (Orientation) можно изменить соответствующим образом (CenterFooter, PaperSize и т. д.).