Перейти к содержимому

Excel 2010. Максимизация окна при открытии

Как автоматически максимизировать окно программы Excel 2010 при открытии? Разворачивать окно на весь экран по умолчанию?

  1. Возникновение проблемы с максимизацией окна Excel при открытии
  2. Решение проблемы с максимизацией окна Excel при открытии

Возникновение проблемы с максимизацией окна Excel при открытии

Весной 2015 года я установил Office 2010, который меня удивил тем, что файлы Excel, несмотря на сохранение их в развернутом на весь экран виде, повторно открываются в наполовину свернутом виде в верхней части экрана. Как решить проблему в то время не нашел и оставил как есть.

Через некоторое время окна при открытии стали максимизироваться сами, когда и как это произошло, даже не заметил.

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

Решение проблемы с максимизацией окна Excel при открытии

Решение нашел на одном из иностранных форумов, благо в контекстном меню у Google Chrome есть пункт «Перевести на русский». Заключается оно в том, что в персональную книгу макросов PERSONAL.XLSB, которая автоматически загружается в фоновом режиме после загрузки операционной системы, необходимо поместить код, максимизирующий окно приложения.

Для этого необходимо выполнить следующие действия:

1. Открыть любую книгу Excel, можно новую.

2. Сочетанием клавиш левая клавиша Alt+F11 открыть редактор Visual Basic for Applications.

Окно редактора 1
3. Дважды кликнуть на строке «VBA Project (PERSONAL.XLSB)» или один раз на крестике слева для открытия вложенного списка. Если эта позиция уже развернута переходим к пункту 4.

Окно редактора 2
4. Дважды кликнуть на строке «Microsoft Excel Objects» или один раз на крестике слева для открытия списка объектов. Если эта позиция уже развернута переходим к пункту 5.

Окно редактора 3
5. Дважды кликнуть на строке «ЭтаКнига» для открытия модуля книги.

Окно редактора 4
6. Скопировать и вставить в окно модуля книги следующий код:

Private Sub Workbook_Open()
    Application.WindowState = xlMaximized
End Sub

Окно редактора 5

7. Сохранить изменения.

Добавить комментарий