Cuprins
ActiveWindow.WindowState
Există trei diferite WindowSates pe care o poate avea o foaie de lucru; Minimizat, maximizat și normal. Puteți seta starea ferestrei cu una dintre aceste linii de cod:
123456 | ActiveWindow.WindowState = xlMinimizedActiveWindow.WindowState = xlMaximizedActiveWindow.WindowState = xlNormal |
Și, desigur, odată ce puteți programa un element vizual, puteți arunca într-o buclă și puteți crea un „efect animat”. Următorul ar fi un efect interesant, posibil, atunci când se afișează o foaie de lucru.
Această macrocomandă va redimensiona treptat o foaie de lucru de la mică la maximizată, făcând ca foaia de lucru să crească:
12345678910111213141516171819202122232425262728293031323334353637383940414243 | Sub SheetGrow ()Dim x Ca întregCu ActiveWindow.WindowState = xlNormal.Top = 1.Stânga = 1.Înălțimea = 50.Lățime = 50Pentru x = 50 la Application.UsableHeight.Înălțime = xUrmătorul xPentru x = 50 la Application.UsableWidth.Lățime = xUrmătorul x.WindowState = xlMaximizedSe termina cuSfârșitul Sub |