Indholdsfortegnelse
ActiveWindow.WindowState
Der er tre forskellige WindowSates at et regneark kan have; Minimeret, maksimeret og normal. Du kan indstille vinduet tilstand med en af disse kodelinjer:
123456 | ActiveWindow.WindowState = xlMinimeretActiveWindow.WindowState = xlMaximizedActiveWindow.WindowState = xlNormal |
Og selvfølgelig, når du først kan programmere et visuelt element, kan du kaste et loop og skabe en "animeret effekt". Følgende ville være en interessant effekt muligvis, når et regneark skal vises.
Denne makro vil gradvist ændre størrelsen på et regneark fra lille til maksimeret, hvilket får regnearket til at se ud til at vokse:
12345678910111213141516171819202122232425262728293031323334353637383940414243 | Sub SheetGrow ()Dim x Som heltalMed ActiveWindow.WindowState = xlNormal.Top = 1. Venstre = 1.Højde = 50.Bredde = 50For x = 50 Til Application.UsableHeight.Højde = xNæste xFor x = 50 Til Application.UsableWidth.Bredde = xNæste x.WindowState = xlMaximizedAfslut medAfslut Sub |