Como aumentar ou diminuir a imagem com um clique no Excel?
Supondo que haja várias fotos em uma folha de tamanhos diferentes. Você tem alguma maneira de aumentar ou diminuir essas fotos em um tamanho com um clique? Não há nenhum recurso integrado para resolvê-lo, mas neste artigo, apresento um código VBA para ampliar ou reduzir todas as imagens na planilha com um clique.
Amplie e reduza as fotos com um clique por VBA
Amplie e reduza as fotos com um clique por VBA
Siga os passos abaixo para aumentar ou diminuir as fotos com um clique.
1. Clique com o botão direito na guia da folha onde deseja redimensionar as imagens e selecione Ver código no menu de contexto.
2. No popping Microsoft Visual Basic para aplicativose cole o código abaixo no script em branco.
VBA: amplie e reduza as 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ê clica em qualquer célula da coluna A, todas as imagens serão reduzidas. Veja a imagem:
4. E quando você clica na célula que está no topo direito da imagem, a imagem relativa será ampliada. Veja a imagem:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!