Зміст
ActiveWindow.WindowState
Існує три різних WindowSates що може мати робочий аркуш; Згорнуте, розгорнуте та нормальне. Ви можете встановити стан вікна за допомогою одного з таких рядків коду:
123456 | ActiveWindow.WindowState = xlМінімізованоActiveWindow.WindowState = xlМаксимізованеActiveWindow.WindowState = xlНормальний |
І звичайно, як тільки ви зможете запрограмувати візуальний елемент, ви можете включити цикл і створити «анімаційний ефект». Нижче наведено цікавий ефект при відкритті робочого аркуша.
Цей макрос буде поступово змінювати розмір робочого аркуша від малого до розгорнутого, змушуючи його зростати:
12345678910111213141516171819202122232425262728293031323334353637383940414243 | Sub SheetGrow ()Dim x як ціле числоЗа допомогою ActiveWindow.WindowState = xlНормальний.Top = 1.Зліва = 1.Висота = 50.Ширина = 50Для x = 50 до Application.UsableHeight.Висота = xДалі xДля x = 50 до Application.UsableWidth.Ширина = xДалі x.WindowState = xlМаксимізованеЗакінчити зEnd Sub |