Como ampliar ou reduzir uma imagem com um clique no Excel?

Suponha que existam várias imagens em uma planilha com tamanhos diferentes. Você tem alguma maneira de ampliar ou reduzir essas imagens para um tamanho único com apenas um clique? Não há nenhum recurso interno para resolver isso, mas neste artigo, apresento um código VBA para ampliar ou reduzir todas as imagens na planilha com um clique.

Amplie e reduza imagens com um clique usando VBA

Amplie e reduza imagens com um clique usando VBA

Siga os passos abaixo para ampliar ou reduzir imagens com um clique.

1. Clique com o botão direito do mouse na aba da planilha onde deseja redimensionar as imagens e selecione Visualizar Código a partir do menu de contexto.

2. Na janela Microsoft Visual Basic for Applications que aparece, cole o código abaixo no script em branco.

VBA: Ampliar e reduzir imagens com um clique

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. Salve o código e feche a janela. E quando você clicar em qualquer célula da coluna A, todas as imagens serão reduzidas. Veja a captura de tela:

4. E quando você clicar na célula que está no canto superior direito da imagem, a imagem correspondente será ampliada. Veja a captura de tela:

Dica. Se você quiser inserir rapidamente uma marca d'água em uma planilha, experimente usar o Kutools para Excel’s Inserir Marca d'água conforme mostrado na captura de tela a seguir.