Como ampliar uma imagem ao clicar nela no Excel?
Suponha que inseriu uma lista de imagens numa coluna e ajustou o tamanho das imagens ao das células, tal como ilustrado na captura de ecrã abaixo. Como a imagem inserida pode parecer pequena, poderá precisar de a ampliar para determinados fins. Este artigo mostra-lhe um método simples para ampliar uma imagem com um clique 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 código VBA seguinte permite-lhe ampliar uma imagem ao clicar nela no Excel. Siga os passos abaixo.
1. Clique com o botão direito na imagem que pretende ampliar apenas ao clicar nela e, em seguida, clique em Atribuir Macro no menu de contexto. Veja a captura de ecrã:
2. Na caixa de diálogo Atribuir Macro, clique no botão Novo.
3. Na janela do Microsoft Visual Basic para Aplicações que surge, copie e cole o código VBA abaixo entre as linhas de código Sub e End Sub. Veja a captura de ecrã:
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 WithNota: No código, pode definir tamanhos grandes para a imagem com big = 3.
4. Em seguida, prima simultaneamente as teclas Alt+Q para fechar a janela do Microsoft Visual Basic para Aplicações.
A partir de agora, ao clicar na imagem, esta será ampliada para o tamanho que especificou e, ao clicar novamente, será restaurada ao seu Tamanho Original, tal como mostrado nas capturas de ecrã abaixo.
Artigos relacionados:
- Como fixar uma imagem ou fotografia a uma célula ou dentro de uma célula no Excel?
- Como Inserir Imagem ou imagem dinamicamente numa célula com base no valor da célula no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos