Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Сворачивание всех открытых приложений на рабочем столе при включении пользовательской формы
 
#1
06.02.2016 16:37:24
Добрый день!
Скажите возможно ли из Екселя при открытии UserForm1 свернуть все приложения, что бы было видно только форму на рабочем столе.
Нашел только как можно свернуть Ексель. Это не совсем подходит, так как бывает открыт Фотошоп, Опера, Скайп, и хотелось бы что бы ничего не мешало и не мелькало при работе с формой,
Вот код - который сворачивает Ексель:
Код
?
1
2
3
4
Sub Форма()
    Application.Visible = False
    UserForm1.Show
End Sub
 
 
 
#2
06.02.2016 16:48:52
Код
?
1
2
3
4
Private Sub Workbook_Open()
    Application.Visible = False    ' скрываем приложение Excel при запуске формы
    UserForm1.Show    ' запускаем форму
End Sub
 
 
 
#3
06.02.2016 16:49:23
вариант 1: http://www.freevbcode.com/ShowCode.asp?ID=7921
вариант 2: http://www.mrexcel.com/forum/excel-questions/197943-show-desktop-using-visual-basic-applications-2-print.html
вариант 3: http://www.vbforums.com/showthread.php?360571-How-To-Minimize-All-Open-Windows

А вот вариант 4 (самый короткий из предложенных)
Код
?
1
2
3
4
5
6
7
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Sub СвернутьВсеОкна()
    Call keybd_event(&H5B, 0, 0, 0)
    Call keybd_event(&H4D, 0, 0, 0)
    Call keybd_event(&H5B, 0, &H2, 0)
End Sub
Изменено: Игорь - 06.02.2016 16:51:39
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#4
06.02.2016 17:03:04
Спасибо, то что нужно!

Юрий, чем ваш код отличается от того, что я написал?
 
 
 
#5
06.02.2016 18:04:37
Юрий, код следует оформлять соответствующим тегом. Но в Вашем случае лучше было бы внимательно прочитать вопрос автора темы: Ваш код скроет ДРУГИЕ приложения?
 
 
 
#6
06.02.2016 19:13:45
Извините, поторопился с ответом :cry:
 
 
 
Страницы: 1
Читают тему
Наверх
Loading...