Como redimensionar várias células de forma rápida para ajustar imagens no Excel?
Como sabemos, o Microsoft Excel permite o redimensionamento automático da altura das linhas e da largura das colunas para acomodar conteúdos inseridos, como textos longos. No entanto, os comandos “Ajustar Altura da Linha Automaticamente” e “Ajustar Largura da Coluna Automaticamente” não funcionam com imagens, já que uma imagem inserida não está contida numa célula específica.
Redimensionar células para ajustar imagens com VBA
Redimensionar imagens para ajustar às células com Kutools para Excel
Redimensionar células para ajustar imagens com VBA
Suponhamos que existem duas imagens grandes numa folha de cálculo, conforme mostra a seguinte captura de ecrã. Alguém poderá querer redimensionar uma célula para ajustar uma imagem acima dessa célula. Mas como é que se consegue isso?
É claro que pode redimensionar cada célula automaticamente para ajustá-la à imagem acima. Contudo, esse processo pode tornar-se tedioso e demorado se tiver um grande número de imagens. Na verdade, é possível aplicar uma macro em VB para redimensionar todas as células de forma a ajustarem-se perfeitamente às respetivas imagens. Basta seguir os passos abaixo:
Passo 1: Mantenha premidas as teclas ALT + F11 e abrirá a janela do Microsoft Visual Basic for Applications.
Passo 2: Clique em Inserir > Módulo e cole a seguinte macro na Janela do Módulo.
VBA: Redimensionar várias células para se ajustarem às respetivas imagens.
Sub ResizePictureCells()
For Each Picture In ActiveSheet.DrawingObjects
PictureTop = Picture.Top
PictureLeft = Picture.Left
PictureHeight = Picture.Height
PictureWidth = Picture.Width
For N = 2 To 256
If Columns(N).Left > PictureLeft Then
PictureColumn = N - 1
Exit For
End If
Next N
For N = 2 To 65536
If Rows(N).Top > PictureTop Then
PictureRow = N - 1
Exit For
End If
Next N
Rows(PictureRow).RowHeight = PictureHeight
Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288)
Picture.Top = Cells(PictureRow, PictureColumn).Top
Picture.Left = Cells(PictureRow, PictureColumn).Left
Next Picture
End SubPasso 3: Prima a tecla F5 para executar esta macro.
Agora, na folha de cálculo atual, caso existam imagens, a célula imediatamente abaixo de cada imagem será redimensionada para se ajustar à imagem acima. Veja a seguinte captura de ecrã:
Redimensionar imagens para ajustar às células com Kutools para Excel
Se já ajustou o tamanho das células, conforme mostrado na captura de ecrã abaixo, e depois quiser importar e redimensionar as imagens para se adaptarem perfeitamente ao tamanho das células, como pode fazer isto rapidamente? Neste caso, o Kutools para Excel's utilitário Importar Imagens pode ajudá-lo a realizar facilmente esta tarefa.
Após instalar o Kutools para Excel, proceda da seguinte forma:
1. Clique em KUTOOLS PLUS > Importar/Exportar > Importar Imagens. Veja a captura de ecrã:
2. Na caixa de diálogo Importar Imagens que surge, pode primeiro definir a Ordem de Importação na respetiva secção e, em seguida, clicar no botão Adicionar para incluir imagens a partir de uma pasta ou adicioná-las individualmente como ficheiros. Depois, as imagens aparecerão listadas na secção Imagem. Veja a captura de ecrã:
3. Em seguida, clique no botão Importar para abrir a caixa de diálogo Tamanho da Imagem ao Importar e selecione a opção Tamanho da Célula Correspondente. Veja a captura de ecrã:
4. Clique em OK > Importar para abrir uma caixa de diálogo onde possa selecionar as células nas quais pretende importar imagens. Veja a captura de ecrã:
5. Clique em OK e, de imediato, todas as imagens serão importadas para as células e redimensionadas para se ajustarem perfeitamente às mesmas.
Artigo Relacionado:
Como inserir várias imagens numa 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