ActiveWindow.Zoom
Você pode usar o VBA para alterar o zoom de uma planilha. Aqui está o código para alterar o zoom da ActiveWindow para 50%:
| 1 | ActiveWindow.Zoom = 50 |
Alterar o zoom em todas as planilhas
Você também pode percorrer todas as planilhas em sua pasta de trabalho para definir um zoom padrão. A macro a seguir definirá o zoom de todas as planilhas para 50%:
| 123456789101112131415161718192021 | Sub ZoomAll ()Dim ws como planilhaApplication.ScreenUpdating = FalsePara cada ws nas planilhasws.ActivateActiveWindow.Zoom = 50PróximoApplication.ScreenUpdating = TrueEnd Sub |
Aproximação aproximação
E, finalmente, uma planilha que cresce magicamente. A macro a seguir percorrerá os Zooms para a Folha1, indo de 10% a 200%, incrementando em 10%, pausando um segundo entre as alterações e, em seguida, restaurará a Folha1 de volta ao seu estado original.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub ZoomZoom ()Dim x As Integer 'variável para loopVariável Dim OriginalZoom As Integer 'para zoom originalPlanilha1.Ativar 'vamos trabalhar com a planilha1OriginalZoom = ActiveWindow.Zoom 'obter zoom atual'loop through zoom 10 a 200 por 10Para x = 1 a 20ActiveWindow.Zoom = x * 10Application.Wait Now + TimeValue ("00:00:01")Próximo x'restaurar o zoom originalActiveWindow.Zoom = OriginalZoomEnd Sub |
