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:

Kutools para Excel - Potencialize o Excel com mais de 300 ferramentas essenciais. Aproveite recursos de IA permanentemente gratuitos! Obtenha Agora
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.





- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins