Innehållsförteckning
ActiveWindow.WindowState
Det finns tre olika WindowSates som ett kalkylblad kan ha; Minimerad, maximerad och normal. Du kan ställa in fönstret med en av dessa kodrader:
123456 | ActiveWindow.WindowState = xlMinimizedActiveWindow.WindowState = xlMaximizedActiveWindow.WindowState = xlNormal |
Och naturligtvis, när du väl kan programmera ett visuellt element kan du slänga in en slinga och skapa en "animerad effekt". Följande skulle vara en intressant effekt möjligen när ett kalkylblad visas.
Detta makro kommer gradvis att ändra storlek på ett kalkylblad från litet till maximerat, vilket gör att kalkylbladet verkar växa:
12345678910111213141516171819202122232425262728293031323334353637383940414243 | Sub SheetGrow ()Dim x Som heltalMed ActiveWindow.WindowState = xlNormal.Topp = 1.Vänster = 1.Höjd = 50.Bredd = 50För x = 50 Till Application.UsableHeight.Höjd = xNästa xFör x = 50 Till Application.UsableWidth.Bredd = xNästa x.WindowState = xlMaximizedSluta medAvsluta Sub |