Sommario
ActiveWindow.WindowState
Ce ne sono tre diversi WindowSates che un foglio di lavoro può avere; Minimo, Massimizzato e Normale. Puoi impostare lo stato della finestra con una di queste righe di codice:
| 123456 | ActiveWindow.WindowState = xlMinimizedActiveWindow.WindowState = xlMaximizedActiveWindow.WindowState = xlNormal |
E, naturalmente, una volta che puoi programmare un elemento visivo, puoi lanciare un loop e creare un "effetto animato". Il seguente potrebbe essere un effetto interessante quando si scopre un foglio di lavoro.
Questa macro ridimensionerà gradualmente un foglio di lavoro da piccolo a Massimizzato, facendo sembrare che il foglio di lavoro cresca:
| 12345678910111213141516171819202122232425262728293031323334353637383940414243 | SottofogliGrow()Dim x As IntegerCon ActiveWindow.WindowState = xlNormal.In alto = 1.Sinistra = 1.Altezza = 50.Larghezza = 50Per x = 50 Ad Application.UsableHeight.Altezza = xAvanti xPer x = 50 Ad Application.UsableWidth.Larghezza = xAvanti x.WindowState = xlMaximizedTermina conFine sottotitolo |
