Преглед садржаја
АцтивеВиндов.Зоом
Можете да користите ВБА за промену зумирања радног листа. Ево кода за промену зумирања активног прозора на 50%:
| 1 | АцтивеВиндов.Зоом = 50 |
Промените зумирање на свим радним листовима
Такође можете проћи кроз све радне листове у вашој радној свесци да бисте поставили стандардни Зоом. Следећи макро ће подесити зумирање за све радне листове на 50%:
| 123456789101112131415161718192021 | Суб ЗоомАлл ()Дим вс Ас ВорксхеетАпплицатион.СцреенУпдатинг = НетачноЗа сваки вс у радним листовимавс.АцтиватеАцтивеВиндов.Зоом = 50СледећиАпплицатион.СцреенУпдатинг = ТачноЕнд Суб |
Зоом Зоом
И на крају чаробно растући радни лист. Следећи макро ће проћи кроз зумирање за Лист 1, крећући се од 10%до 200%, повећавајући се за 10%, паузирајући секунду између измена, а затим ће вратити Лист 1 у првобитно стање.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Суб ЗоомЗоом ()Дим к Ас Интегер 'променљива за петљуДим ОригиналЗоом Ас Интегер 'променљива за оригинални зумСхеет1.Активирајте „хајде да радимо са схеет1ОригиналЗоом = АцтивеВиндов.Зоом 'добијете тренутно зумирање'петља кроз зум 10 до 200 са 10За к = 1 до 20АцтивеВиндов.Зоом = к * 10Апплицатион.Ваит Нов + ТимеВалуе ("00:00:01")Даље к'вратити оригинални зумАцтивеВиндов.Зоом = ОригиналЗоомЕнд Суб |
