Turinys
ActiveWindow.WindowState
Yra trys skirtingi „WindowSates“ kad darbalapis gali turėti; Sumažintas, maksimalus ir normalus. Lango būseną galite nustatyti naudodami vieną iš šių kodo eilučių:
123456 | ActiveWindow.WindowState = xlMinimizedActiveWindow.WindowState = xlMaximizedActiveWindow.WindowState = xlNormal |
Ir, žinoma, kai užprogramuosite vaizdinį elementą, galėsite išmesti ciklą ir sukurti „animacinį efektą“. Toliau pateikiamas įdomus efektas galbūt atskleidžiant darbalapį.
Ši makrokomanda palaipsniui pakeis darbalapio dydį nuo mažo iki padidinto, todėl atrodo, kad darbalapis auga:
12345678910111213141516171819202122232425262728293031323334353637383940414243 | Sub SheetGrow ()Dim x As IntegerSu „ActiveWindow“.WindowState = xlNormal. Viršuje = 1. Kairė = 1. Aukštis = 50. Plotis = 50X = 50 iki taikymo. Naudojamas aukštis.Aukštis = xKitas xX = 50 į programą. Naudojamas plotis. Plotis = xKitas x.WindowState = xlMaximizedPabaiga suPabaiga Sub |