Saltar al contenido
PROGRAMAR EN VBA MACROS DE EXCEL

Hacer Zoom a celda

Este procedimiento da zoom a la celda por la cual se va desplazando, se debe colocar el código en worksheet, para sea utilizado en una sola hoja y en thisworkbook para utilizarlo en todo el libro; se puede modificar el código y en vez que de dar zoom a celda se puede dar a toda la fila; también en vez de dar zoom a la celda o fila se puede adaptar para que el zoom sea en cierta columna a medida que se desplaza por una fila, estas variantes serán publicadas en entregas posteriores, en el video que está al final de este código se explica donde se debe agregar el mismo, espero les sea de utilidad:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static Celda As Range, bytColor As Byte
On Error GoTo Worksheet_SelectionChange_TratamientoErrores
Application.ScreenUpdating = False
‘ vuelvo a poner las fila y columna anteriores como estaban
Celda.RowHeight = 12.75 ‘ Celda.RowHeight / 2
Celda.Font.Size = 10
Celda.Font.Bold = False
Celda.Interior.ColorIndex = bytColor
‘ guardo en la variable estatica la fila y columna actual
Set Celda = Target
‘ duplico el ancho y el alto de fila y columna actuales
Celda.RowHeight = Celda.RowHeight * 2
Celda.Font.Size = 18
Selection.Font.Bold = True
‘ cambio el color a la celda activa
Celda.Interior.ColorIndex = 4

Worksheet_SelectionChange_Salir:
Application.ScreenUpdating = True
On Error GoTo 0
Exit Sub
Worksheet_SelectionChange_TratamientoErrores:
Resume Next
End Sub

Si te fue de utilidad puedes INVITARME
UN CAFÉ
 y de esta manera ayudar a seguir
manteniendo la página descargar desde este link.


(adsbygoogle = window.adsbygoogle || []).push({});

If this post was
helpful INVITE ME A COFFEE and so help keep
up the page.

Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends