ActiveWindow.WindowState - Příklady kódu VBA

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
wave wave wave wave wave