Brian preguntó si hay una forma en Excel de ampliar el contenido de la celda actual. Está trabajando en una hoja de trabajo que debe tener un ajuste de zoom bajo (30% más o menos) para ver toda la hoja. A medida que se ejecutan diferentes escenarios, las celdas cambian de color según el resultado. Brian puede ver fácilmente qué celdas necesita investigar, pero no puede leerlas debido a la configuración del zoom. Normalmente cambia el zoom, lee la respuesta y se aleja para ejecutar otro escenario. Sería mucho más fácil si solo la celda actual (la seleccionada) se ampliara a un nivel legible.

No hay un método incorporado en Excel para lograr este método selectivo de zoom, pero hay un par de soluciones que puede utilizar. Una de esas soluciones consiste en utilizar una macro que muestre el valor en la celda activa en un cuadro de mensaje. Esta macro es fácil de agregar al módulo de la hoja de trabajo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

MsgBox ActiveCell.Address & ": " & ActiveCell.Value End Sub

Cada vez que selecciona una celda diferente en la hoja de trabajo, la macro muestra un cuadro de mensaje que muestra el contenido de esa celda. Esto resuelve el problema, pero puede resultar tedioso cerrar continuamente los cuadros de mensajes cada vez que cambia la celda seleccionada.

También puede crear una macro que simplemente cambie el tamaño de fuente de cualquier celda seleccionada actualmente. La siguiente macro simple, agregada al módulo de la hoja de trabajo, mira la celda seleccionada actualmente y aumenta su tamaño de fuente en un 500%.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

FontSize = ActiveCell.Font.Size     LargeSize = FontSize * 5     Cells.Font.Size = FontSize     ActiveCell.Font.Size = LargeSize End Sub

La utilidad de dicha macro dependerá, por supuesto, de cómo tenga el alto y el ancho de la celda seleccionada formateada. Si son alturas y anchos estáticos, es posible que el aumento del tamaño de la fuente haga ilegible el contenido de la celda. Si la altura y el ancho son dinámicos, el contenido aún debería ser bastante legible.

Otro enfoque más es crear su propia imagen ampliada de cada celda a medida que se selecciona:

Private Sub ZoomCell(ZoomIn As Single)

Dim s As Range     Set s = Selection

'Get rid of any existing zoom pictures     For Each p In ActiveSheet.Pictures         If p.Name = "ZoomCell" Then             p.Delete             Exit For         End If     Next

'Create a zoom picture     s.CopyPicture Appearance:=xlScreen, _       Format:=xlPicture     ActiveSheet.Pictures.Paste.Select     With Selection         .Name = "ZoomCell"

With .ShapeRange             .ScaleWidth ZoomIn, msoFalse, _               msoScaleFromTopLeft             .ScaleHeight ZoomIn, msoFalse, _               msoScaleFromTopLeft             With .Fill                 .ForeColor.SchemeColor = 9                 .Visible = msoTrue                 .Solid             End With         End With     End With     s.Select     Set s = Nothing End Sub

Para usar la macro, debe llamarla cada vez que cambie la selección en la hoja de trabajo. Para hacer esto, agrega una pequeña macro al módulo de la hoja de trabajo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ZoomCell 6 End Sub

En este caso, cada vez que se cambia la selección de celda, se ejecuta la macro ZoomCell para crear una imagen que es seis veces el tamaño del original. Si le resulta molesto que la imagen cambie automáticamente cada vez que selecciona una celda diferente, puede eliminar la macro de activación en el módulo de la hoja de trabajo y modificar la macro ZoomCell para que se ejecute siempre que la inicie, tal vez con una tecla de acceso directo que configuró.

Sub ZoomCell()

Dim s As Range     Dim ZoomIn As Single     Set s = Selection     ZoomIn = 6

'Get rid of any existing zoom pictures     For Each p In ActiveSheet.Pictures         If p.Name = "ZoomCell" Then             p.Delete             Exit For         End If     Next

'Create a zoom picture     s.CopyPicture Appearance:=xlScreen, _       Format:=xlPicture     ActiveSheet.Pictures.Paste.Select     With Selection         .Name = "ZoomCell"

With .ShapeRange             .ScaleWidth ZoomIn, msoFalse, _               msoScaleFromTopLeft             .ScaleHeight ZoomIn, msoFalse, _               msoScaleFromTopLeft             With .Fill                 .ForeColor.SchemeColor = 9                 .Visible = msoTrue                 .Solid             End With         End With     End With     s.Select     Set s = Nothing 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 (10426) 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-Magnifying_Only_the_Current_Cell [Magnificando solo la celda actual].