Съдържание
ActiveWindow.WindowState
Има три различни WindowSates който може да има работен лист; Минимизиран, увеличен и нормален. Можете да зададете състоянието на прозореца с един от тези редове код:
| 123456 | ActiveWindow.WindowState = xlМинимизиранActiveWindow.WindowState = xlМаксимизиранActiveWindow.WindowState = xlNormal |
И разбира се, след като можете да програмирате визуален елемент, можете да хвърлите цикъл и да създадете „анимиран ефект“. Следното би било интересен ефект вероятно при разкриване на работен лист.
Този макрос постепенно ще преоразмерява работния лист от малък до увеличен, което ще изглежда, че работният лист расте:
| 12345678910111213141516171819202122232425262728293031323334353637383940414243 | Sub SheetGrow ()Dim x като цяло числоС ActiveWindow.WindowState = xlНормално.Top = 1.Ляво = 1.Височина = 50.Ширина = 50За x = 50 към приложение.UsableHeight.Височина = xСледващ xЗа x = 50 към Application.UsableWidth.Ширина = xСледващ x.WindowState = xlМаксимизиранКрай сEnd Sub |
