¿Cómo ampliar o reducir la imagen con un clic en Excel?
Supongamos que hay varias imágenes en una hoja de diferentes tamaños. ¿Tiene alguna forma de ampliar o reducir estas imágenes en un tamaño con un solo clic? No hay una función incorporada para resolverlo, pero en este artículo, presento un código VBA para ampliar o reducir todas las imágenes en la hoja con un solo clic.
Amplíe y reduzca las imágenes con un clic por VBA
Amplíe y reduzca las imágenes con un clic por VBA
Siga los pasos a continuación para ampliar o reducir las imágenes con un solo clic.
1. Haga clic con el botón derecho en la pestaña de la hoja donde desea cambiar el tamaño de las imágenes y seleccione Ver código desde el menú contextual.
2. En el estallido Microsoft Visual Basic para aplicacioness y pegue el código siguiente en el script en blanco.
VBA: agranda y encoge las imágenes con un clic
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyEntendoffice20161111
Application.ScreenUpdating = False
Dim xRg As Range, sPic As Shape
For Each sPic In ActiveSheet.Shapes
If Target.Column > 1 Then
Set xRg = Target.Offset(, -1)
With sPic
If TypeName(.OLEFormat.Object) = "Picture" Then
If .TopLeftCell.Address = xRg.Address Then
.Height = 350
.Width = 250
End If
End If
End With
ElseIf Target.Column = 1 Then
With sPic
If TypeName(.OLEFormat.Object) = "Picture" Then
.Height = 60
.Width = 60
End If
End With
End If
Next sPic
Application.ScreenUpdating = True
End Sub
3. Guarde el código y cierre la ventana. Y cuando haga clic en cualquier celda de la columna A, todas las imágenes se reducirán. Ver captura de pantalla:
4. Y cuando haga clic en la celda que se encuentra en la parte superior derecha de la imagen, la imagen relativa se ampliará. Ver captura de pantalla:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
