Vba как свернуть книгу excel - Word и Excel - помощь в работе с программами

Помогаю со студенческими работами здесь

Как сохранить диаграмму в новую книгу Excel?
Добрый день, уважаемые коллеги

Подскажите пожалуйста, каким образом средствами VBA можно…

Как из Excel/Vba внести открытую книгу в SQL Server 7 как OLE объект?
Хотелось бы так:
При нажатии соотв. кнопки. соединить с SQL Serverом и сохранить activesheet в SQL…

Падает Excel при запуске макроса
Доброго времени суток, уважаемые гуру. Застрял на одном проекте. Пишу прогу на работу для себя. Всё…

Автозакрытие Excel-я при запуске формы
Скажите пожалуйста как сделать чтобы при открытии программы автоматически закрывалась книга экселя?

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Источник

Is there a way to minimize a workbook/sheet but able to keep the form opened up?
I have tried the code:

application.visible=false

and

userform1.show vbmodeless

But this hides the all active workbooks and the tool bar ribbon thing disappears as well. Is there a way to minimize the workbook but keep the ribbon showing and form opened as well?

FelixSFD

5,97210 gold badges47 silver badges115 bronze badges

asked Nov 18, 2016 at 14:24

NoobProgrammerNoobProgrammer

1911 gold badge2 silver badges11 bronze badges

Tested on Excel 2010

Sub Test()

    ActiveWindow.WindowState = xlMinimized
    UserForm1.Show

End Sub

This will minimize the all the workbooks in Excel but will keep the ribbon and any userforms visible, if you dont have Application.ScreenUpdating = False then people will be able to see the workbooks in the bottom left of Excel.

If you want to just minimize a single workbook you can use the code below

Credit to this answer on SO for the minimizing specific workbooks

Sub test()

    Dim wbName As Window

    Set wbName = ActiveWorkbook.Windows(1)'You can use Windows("[Workbook Name]") as well

    wbName.Visible = False
    wbName.Visible = True

End Sub

Let me know if you need anything clarified

answered Nov 18, 2016 at 15:07

Источник

Установка состояния окна приложения Excel из кода VBA с помощью свойства Application.WindowState. Сворачивание и разворачивание окна. Чтение данных о состоянии окна.

Application.WindowState — это свойство, которое задает или возвращает состояние окна приложения Excel.

Состояние окна приложения Excel задается константой из коллекции XlWindowState, при чтении информации о состоянии окна — свойство Application.WindowState возвращает числовое значение константы.

Свойство Application.WindowState позволяет развернуть окно приложения Excel из кода VBA на весь экран — до максимального размера, свернуть окно «в иконку» или задать ему нормальные размеры, установленные ранее, развернув из свернутого или свернув из максимального.

Синтаксис свойства WindowState объекта Application:

Константы XlWindowState

Константы из коллекции XlWindowState:

Константа	Значение	Описание
xlMaximized	-4137	Максимальное окно (развернуто на весь экран)
xlMinimized	-4140	Минимальное окно (свернуто «в иконку»)
xlNormal	-4143	Нормальное окно (размеры, установленные ранее)

Пример кода с WindowState

Пример записи и чтения свойства Application.WindowState:

Sub Test()

‘Запись свойства WindowState

Application.WindowState = xlMaximized ‘или -4137

‘Application.WindowState = xlMinimized ‘или -4140

‘Application.WindowState = xlNormal ‘или -4143

‘Проверка, в каком состоянии находится окно приложения

MsgBox Application.WindowState

End Sub

Попробуйте по очереди задавать разные константы свойству Application.WindowState и смотрите, какое значение будет считано. У меня получились удивительные результаты при выполнении строк кода по очереди, как в примере:

Application.WindowState = xlMinimized — MsgBox возвращает совсем не -4140;
после первого запуска Application.WindowState = xlNormal — окно приложения разворачивается на весь экран, после второго запуска — переходит к нормальному состоянию.

Не удалось мне добиться значения -4140 и при минимизации окна вручную, разместив предварительно следующий код в модуль книги:

Private Sub Workbook_WindowResize(ByVal Wn As Window)

MsgBox Application.WindowState

End Sub

Источник

Группа: Админы

Ранг: Местный житель

Сообщений: 18797

Репутация:
4284
±

Замечаний:
±

Excel 2016 & Mac Excel

Макрорекодер говорит, что надо выполнить команду
[vba]

Код

Application.WindowState = xlMinimized

[/vba]

«Черт возьми, Холмс! Но как??!!»
Ю-money 41001765434816

Источник

Узнай цену своей работы

Формулировка задачи:

Хочу при запуске свернуть или спрятать книгу при запуске.
но чтобы она была активной.

Заранее благодарен Strobery.

Код к задаче: «Как свернуть книгу Excel при запуске?»

textual

Листинг программы

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

Полезно ли:

8 голосов , оценка 4.000 из 5

Похожие ответы

Как скопировать гиперссылку из Excel в Word?
Как составить короткий код VBA (Excel) для задачи?
Копирование таблицы из excel в word
Общий обработчик событий CheckBox на листе Excel (не форме)
Excel, Таблица Менделеева
Преобразовать диапазона excel в PDF
Замена из Excel в Worde VBA
Работа с Excel и Thunderbird
(excel_2010_VBA) Вставить макросом =
Формирование двумерных массивов. Сформировать матрицы произвольной размерности на рабочем листе Excel в BVA
Экспорт таблицы из Excel в HTML

Источник