Tabla de contenido
ActiveWindow.Zoom
Puede usar VBA para cambiar el Zoom de una hoja de trabajo. Aquí está el código para cambiar el Zoom de ActiveWindow al 50%:
| 1 | ActiveWindow.Zoom = 50 |
Cambiar el zoom en todas las hojas de trabajo
También puede recorrer todas las hojas de trabajo en su libro de trabajo para establecer un Zoom estándar. La siguiente macro establecerá el Zoom para todas las hojas de trabajo al 50%:
| 123456789101112131415161718192021 | Sub ZoomTodo ()Dim ws como hoja de trabajoApplication.ScreenUpdating = FalsoPara cada ws en hojas de trabajows.ActivateActiveWindow.Zoom = 50próximoApplication.ScreenUpdating = TrueEnd Sub |
Cerca cerca
Y finalmente una hoja de trabajo que crece mágicamente. La siguiente macro recorrerá los Zooms para Sheet1, pasando del 10% al 200%, incrementándose en un 10%, pausando un segundo entre cambios, y luego restaurará Sheet1 a su estado original.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub ZoomZoom ()Dim x As Integer 'variable para bucleAtenuar la variable OriginalZoom As Integer para el zoom originalSheet1.Activate 'vamos a trabajar con sheet1OriginalZoom = ActiveWindow.Zoom 'obtiene el zoom actual'recorrer el zoom de 10 a 200 por 10Para x = 1 a 20ActiveWindow.Zoom = x * 10Application.Wait Now + TimeValue ("00:00:01")Siguiente x'restaurar zoom originalActiveWindow.Zoom = OriginalZoomEnd Sub |
