Obsah
ActiveWindow.WindowState
Jsou tři různé WindowSates že pracovní list může mít; Minimalizované, maximalizované a normální. Stav okna můžete nastavit pomocí jednoho z těchto řádků kódu:
| 123456 | ActiveWindow.WindowState = xlMinimizedActiveWindow.WindowState = xlMaximizedActiveWindow.WindowState = xlNormal |
A samozřejmě, jakmile můžete naprogramovat vizuální prvek, můžete vložit smyčku a vytvořit „animovaný efekt“. Následující by bylo zajímavým efektem, možná při odkrývání listu.
Toto makro postupně změní velikost listu z malého na maximalizované, takže se zdá, že list roste:
| 12345678910111213141516171819202122232425262728293031323334353637383940414243 | Sub SheetGrow ()Dim x As IntegerS ActiveWindow.WindowState = xlNormal.Nahoře = 1.Vlevo = 1.Výška = 50.Šířka = 50Pro x = 50 do Application.UsableHeight.Výška = xDalší xPro x = 50 pro Application.UsableWidth.Šířka = xDalší x.WindowState = xlMaximizedKonec sEnd Sub |
