Como alterar automaticamente todas as imagens para "Mover e dimensionar com células" no Excel?
Por padrão, as imagens inseridas em uma planilha do Excel são definidas como “Mover, mas não dimensionar com células”, o que significa que elas permanecem do mesmo tamanho mesmo quando você ajusta as dimensões das células. Se você precisar que as imagens se redimensionem e movam junto com suas células, geralmente é necessário alterar essa configuração manualmente para cada imagem. No entanto, há um método rápido para definir todas as imagens como “Mover e dimensionar com células” automaticamente usando um código VBA simples. Este artigo irá guiá-lo através desse processo.
Alteração automática de todas as imagens para "Mover e dimensionar com células" com código VBA
Alteração automática de 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 as propriedades de todas as imagens para "Mover e dimensionar com células" em uma planilha. Por favor, siga os passos abaixo.
1. Abra a planilha que contém as imagens que deseja alterar movendo e dimensionando com as células, depois abra a janela Microsoft Visual Basic for Applications pressionando as teclas Alt + F11.
2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código VBA na janela de Código.
Código VBA: alterar 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 Sub3. Pressione a tecla F5 ou clique no botão Executar para executar o código.
Todas as imagens na planilha ativa agora estão configuradas automaticamente para "Mover e dimensionar com células".
Artigos Relacionados:
- Como centralizar uma imagem em uma célula do Excel?
- Como verificar se uma célula contém uma imagem no Excel?
- Como inserir uma imagem dinamicamente em uma célula com base no valor da célula no Excel?
- Como ampliar uma imagem ao clicar nela 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