Como alterar automaticamente todas as imagens para mover e tamanho com células no Excel?
Normalmente, uma imagem foi inserida na planilha com as propriedades padrão de Mover e não dimensionar com células. Você precisa alterar manualmente suas propriedades para Mover e dimensionar com o recurso de células em sua planilha conforme necessário. Na verdade, você pode alterar rapidamente a imagem para mover e dimensionar com células automaticamente com uma solução alternativa. E este artigo mostrará o método para alcançá-lo.
Alterar automaticamente todas as imagens para mover e dimensionar com células com código VBA
Alterar automaticamente todas as imagens para mover e dimensionar com células com código VBA
O código VBA abaixo pode ajudá-lo a alterar rapidamente todas as propriedades das imagens para mover e dimensionar com células em uma planilha. Faça o seguinte.
1. Abra a planilha que contém as imagens que você deseja alterar movendo e dimensionando com células e, em seguida, abra o Microsoft Visual Basic para Aplicações janela pressionando o outro + F11 chaves.
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: mude todas as imagens para mover e dimensionar com células
Sub MoveAndSizeWithCells()
Dim xPic As Picture
On Error Resume Next
Application.ScreenUpdating = False
For Each xPic In ActiveSheet.Pictures
xPic.Placement = xlMoveAndSize
Next
Application.ScreenUpdating = True
End Sub
3. aperte o F5 ou clique no botão Executar para executar o código.
Em seguida, as imagens na planilha ativa são alteradas para Mover e dimensionar com células automaticamente.
Artigos relacionados:
- Como centralizar uma imagem em uma célula do 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!