Si trabaja con libros de trabajo en los que sus colegas trabajaron primero, es posible que se sienta frustrado por el factor de zoom aplicado a esos libros de trabajo por los demás. Por ejemplo, si su colega (Wanda) tiene un monitor enorme, no sería raro que redujera el factor de zoom de Excel al 75% o incluso al 60%. El propósito, por supuesto, es que no la dominen las cosas que se ven muy grandes con el factor de zoom completo.

El problema es que el factor de zoom se guarda con el libro de trabajo. Por lo tanto, cuando Wanda guarda el libro de trabajo y se lo entrega a usted, cuando lo abre, el libro de trabajo todavía se muestra con el factor de zoom que Wanda usó por última vez.

Si no tiene un monitor del mismo tamaño que Wanda, es posible que el libro de trabajo sea casi ilegible en su sistema.

Solo hay dos posibles soluciones a este problema. Primero, puede simplemente ajustar el factor de zoom una vez que abra el libro de trabajo. Hay una multitud de formas de hacer esto, pero la más sencilla consiste en usar el control Zoom en el lado derecho de la barra de estado. Puede hacer clic en el punto central en el control deslizante de Zoom y volver rápidamente al 100%, o puede hacer clic en el porcentaje junto al control deslizante para mostrar el cuadro de diálogo Zoom.

La segunda solución es crear una macro que se guarda con el libro de trabajo. La macro se puede ejecutar cada vez que se abre el libro y, por lo tanto, establecer el factor de zoom. (Esta macro debe agregarse a la ventana de código de Este libro en el editor de VBA).

Private Sub Workbook_Open()

ActiveWindow.Zoom = 100 End Sub

El único problema con una macro como esta, por supuesto, es que cada vez que Wanda (su colega) abre el libro de trabajo en su sistema, el factor de zoom también se establece y se frustrará tanto con usted como usted con ella.

Quizás una solución sea crear una macro más complicada, una que verifique la resolución de pantalla actual y luego establezca el factor de zoom en consecuencia.

Por ejemplo, la siguiente macro podría utilizarse para realizar los ajustes en función de la resolución:

Declare Function GetSystemMetrics32 Lib "user32" _     Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Public Sub ScreenRes()

Dim lResWidth As Long     Dim lResHeight As Long     Dim sRes As String

lResWidth = GetSystemMetrics32(0)

lResHeight = GetSystemMetrics32(1)

sRes = lResWidth & "x" & lResHeight     Select Case sRes         Case Is = "800x600"

ActiveWindow.Zoom = 75         Case Is = "1024x768"

ActiveWindow.Zoom = 125         Case Else             ActiveWindow.Zoom = 100     End Select End Sub

Esta rutina verifica la resolución de la pantalla y ajusta la ventana en consecuencia. Se pueden agregar fácilmente otras resoluciones y zooms. Para hacer que la rutina se ejecute automáticamente, simplemente use un controlador de eventos Workbook_Open en la ventana de código de This Workbook para activar la macro:

Private Sub Workbook_Open()

ScreenRes End Sub

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (11551) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

link: / excel-Always_Open_atZoom [Siempre abierto al 100% de zoom].