Como centralizar uma imagem em uma célula do Excel?
Este artigo mostrará um método para mover imagens para o centro das células em uma planilha do Excel, conforme a captura de tela abaixo.
Mova a imagem para o centro da célula com o código VBA
Mova a imagem para o centro da célula com o código VBA.
Faça o seguinte para mover as imagens para o centro das células em uma planilha do Excel.
1. Abra a planilha que contém as imagens que você precisa centralizar nas células e pressione o botão outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, por favor clique inserção > Módulo. Em seguida, copie e cole o código VBA na janela Código.
Código VBA: mova as imagens para o centro das células na planilha
Sub CenterPictures()
With ActiveSheet.Shapes("Picture 2")
.Top = Range("A1").Top + (Range("A1").Height - .Height) / 2
.Left = Range("A1").Left + (Range("A1").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 4")
.Top = Range("A2").Top + (Range("A2").Height - .Height) / 2
.Left = Range("A2").Left + (Range("A2").Width - .Width) / 2
End With
With ActiveSheet.Shapes("Picture 6")
.Top = Range("A3").Top + (Range("A3").Height - .Height) / 2
.Left = Range("A3").Left + (Range("A3").Width - .Width) / 2
End With
End Sub
Notas:
With ActiveSheet.Shapes("Picture name")
.Top = Range("Cell Address").Top + (Range("Cell Address").Height - .Height) / 2
.Left = Range("Cell Address").Left + (Range("Cell Address").Width - .Width) / 2
End With
3. aperte o F5 chave para executar o código.
Em seguida, todas as imagens especificadas serão movidas para o centro de certas células imediatamente, conforme mostrado na imagem abaixo.
Artigos relacionados:
- Como alterar automaticamente todas as imagens para mover e tamanho com células no Excel?
- Como verificar se uma célula contém imagem no Excel?
- Como inserir imagem ou figura dinamicamente na célula com base no valor da célula no Excel?
- Como ampliar a imagem ao clicar nela 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!