¿Cómo ampliar o reducir una imagen con un solo clic en Excel?

Supongamos que hay varias imágenes en una hoja de cálculo que tienen diferentes tamaños. ¿Tienes alguna manera de ampliar o reducir estas imágenes a un mismo tamaño con un solo clic? No hay una función integrada para resolverlo, pero en este artículo te presento un código VBA para ampliar o reducir todas las imágenes de la hoja con un solo clic.

Ampliar y reducir imágenes con un solo clic mediante VBA

Ampliar y reducir imágenes con un solo clic mediante VBA

Sigue los pasos a continuación para ampliar o reducir imágenes con un solo clic.

1. Haz clic derecho en la pestaña de la hoja donde deseas cambiar el tamaño de las imágenes, y selecciona Ver Código desde el menú contextual.

2. En la ventana emergente de Microsoft Visual Basic para Aplicaciones, pega el siguiente código en el script en blanco.

VBA: Ampliar y reducir imágenes con un solo 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. Guarda el código y cierra la ventana. Y cuando hagas clic en cualquier celda de la columna A, todas las imágenes se reducirán. Ver captura de pantalla:

4. Y cuando hagas clic en la celda que está en la parte superior derecha de la imagen, la imagen correspondiente se ampliará. Ver captura de pantalla:

Consejo. Si deseas insertar rápidamente una marca de agua en una hoja, prueba a usar Insertar marca de agua de Kutools para Excel como se muestra en la siguiente captura de pantalla.