Como ampliar a imagem ao clicar nela no Excel?
Suponha que você tenha inserido uma lista de imagens em uma coluna e correspondido os tamanhos das imagens com os tamanhos das células, conforme mostrado na imagem abaixo. Como a imagem inserida parece pequena, pode ser necessário aumentá-la para alguns fins. Este artigo irá mostrar-lhe o método de aumentar uma imagem ao clicar sobre ela no Excel, e recuperar o tamanho original com o segundo clique.
Amplie a imagem ao clicar nela com o código VBA
Amplie a imagem ao clicar nela com o código VBA
O seguinte código VBA pode ajudá-lo a ampliar uma imagem ao clicar nela no Excel. Faça o seguinte.
1. Clique com o botão direito na imagem que você precisa ampliar apenas clicando nela, a seguir clique Atribuir Macro no menu de contexto. Veja a imagem:
2. No Atribuir Macro caixa de diálogo, por favor clique no Novo botão.
3. No popping up Microsoft Visual Basic para Aplicações janela, copie e cole o código VBA abaixo entre as Sub e End Sub códigos. Veja a imagem:
Código VBA: Amplie a imagem clicando 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
Note: No código, você pode atribuir os tamanhos grandes da imagem no código big = 3.
4. Em seguida, pressione o outro + Q simultaneamente para fechar o Microsoft Visual Basic para Aplicações janela.
A partir de agora, ao clicar na imagem, ela será ampliada para o tamanho que você especificou, e clicar novamente irá recuperar o tamanho original conforme as imagens abaixo mostradas.
Artigos relacionados:
- Como bloquear imagem / imagem para ou dentro da célula do Excel?
- Como inserir imagem ou figura dinamicamente na célula com base no valor da célula no Excel?
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!