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.



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