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

Вход

Регистрация

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

 

= Мир MS Excel/Как макросом сделать полноэкранный режим? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как макросом сделать полноэкранный режим? (Макросы/Sub)
Как макросом сделать полноэкранный режим?
VLADDDOS Дата: Воскресенье, 04.09.2022, 15:58 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 10
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте, подскажите пожалуйста,для чтобы при открытии книги окно было всегда в полноэкранном режиме, пользуюсь вот таким макросом :

[vba]
Код
Application.WindowState = xlMaximized
Application.DisplayFullScreen = True
[/vba]

Но вот в чем вопрос при нажатии на кнопку свернуть/развернуть ,окно вновь выходит из полно экранного режима.Вопрос как доработать макрос ,чтобы в не зависимости от размера окна , он был всегда в полноэкранном режиме?


Сообщение отредактировал Serge_007 - Понедельник, 05.09.2022, 09:57
 
Ответить
СообщениеЗдравствуйте, подскажите пожалуйста,для чтобы при открытии книги окно было всегда в полноэкранном режиме, пользуюсь вот таким макросом :

[vba]
Код
Application.WindowState = xlMaximized
Application.DisplayFullScreen = True
[/vba]

Но вот в чем вопрос при нажатии на кнопку свернуть/развернуть ,окно вновь выходит из полно экранного режима.Вопрос как доработать макрос ,чтобы в не зависимости от размера окна , он был всегда в полноэкранном режиме?

Автор - VLADDDOS
Дата добавления - 04.09.2022 в 15:58
NikitaDvorets Дата: Понедельник, 12.09.2022, 15:39 | Сообщение № 2
Группа: Авторы
Ранг: Ветеран
Сообщений: 548
Репутация: 123 ±
Замечаний: 0% ±

Excel 2019
VLADDDOS, добрый день.
Цитата
он был всегда в полноэкранном режиме


Попробуйте записать этот код в модуль книги.
[vba]
Код
Private Sub Workbook_WindowResize(ByVal Wn As Window)
ActiveWindow.WindowState = xlMaximized
End Sub
[/vba]

Он должен максимизировать окно в моменты изменения его размера.


Сообщение отредактировал NikitaDvorets - Понедельник, 12.09.2022, 21:54
 
Ответить
СообщениеVLADDDOS, добрый день.
Цитата
он был всегда в полноэкранном режиме


Попробуйте записать этот код в модуль книги.
[vba]
Код
Private Sub Workbook_WindowResize(ByVal Wn As Window)
ActiveWindow.WindowState = xlMaximized
End Sub
[/vba]

Он должен максимизировать окно в моменты изменения его размера.

Автор - NikitaDvorets
Дата добавления - 12.09.2022 в 15:39
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как макросом сделать полноэкранный режим? (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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