Como ampliar uma imagem ao clicar nela no Excel?
Suponha que você tenha inserido uma lista de imagens em uma coluna e ajustado os tamanhos das imagens de acordo com os tamanhos das células, conforme mostrado na captura de tela abaixo. Como a imagem inserida parece pequena, pode ser necessário ampliá-la para alguns propósitos. Este artigo mostrará o método para ampliar uma imagem ao clicar nela no Excel e restaurá-la ao tamanho original com um segundo clique.
Ampliar imagem ao clicar nela com código VBA
Ampliar imagem ao clicar nela com código VBA
O seguinte código VBA pode ajudá-lo a ampliar uma imagem ao clicar nela no Excel. Por favor, siga os passos abaixo.
1. Clique com o botão direito na imagem que você precisa ampliar apenas clicando nela, depois clique em Atribuir Macro no menu de contexto. Veja a captura de tela:
2. Na caixa de diálogo Atribuir Macro, por favor, clique no botão Novo.
3. Na janela Microsoft Visual Basic for Applications que aparece, copie e cole o código VBA abaixo entre as linhas Sub e End Sub. Veja a captura de tela:
Código VBA: Ampliar imagem ao clicar nela no Excel
Dim shp As Shape
Dim big As Single, small As Single
Dim shpDouH As Double, shpDouOriH As Double
big = 3
small = 1
On Error Resume Next
Set shp = ActiveSheet.Shapes(Application.Caller)
With shp
shpDouH = .Height
.ScaleHeight 1, msoTrue, msoScaleFromTopLeft
shpDouOriH = .Height
If Round(shpDouH / shpDouOriH, 2) = big Then
.ScaleHeight small, msoTrue, msoScaleFromTopLeft
.ScaleWidth small, msoTrue, msoScaleFromTopLeft
.ZOrder msoSendToBack
Else
.ScaleHeight big, msoTrue, msoScaleFromTopLeft
.ScaleWidth big, msoTrue, msoScaleFromTopLeft
.ZOrder msoBringToFront
End If
End With
Observação: No código, você pode atribuir os tamanhos grandes da imagem no código big = 3.
4. Em seguida, pressione simultaneamente as teclas Alt + Q para fechar a janela Microsoft Visual Basic for Applications.
A partir de agora, ao clicar na imagem, ela será ampliada para o tamanho especificado, e clicar nela novamente a restaurará ao tamanho original, conforme mostrado nas capturas de tela abaixo.
Artigos relacionados:
- Como bloquear uma imagem dentro de uma célula no Excel?
- Como inserir uma imagem ou figura dinamicamente em uma célula com base no valor da célula no Excel?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência sem igual. Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo.Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface de abas para o Office e facilita muito seu trabalho
- Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas abas da mesma janela, em vez de novas janelas.
- Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!