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 WithObservaçã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 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