Como redimensionar várias células para ajustar imagens rapidamente no Excel?

Como sabemos, o Microsoft Excel suporta automaticamente o redimensionamento da altura das linhas e da largura das colunas de uma célula para se ajustar ao conteúdo preenchido, como uma longa sequência de texto. No entanto, os comandos AutoAjustar Altura da Linha e AutoAjustar Largura da Coluna não são válidos para imagens, porque uma imagem inserida não reside em uma célula específica.

Redimensionar células para ajustar imagens com VBA

Redimensionar imagens para ajustar células com Kutools para Excel

Redimensionar células para ajustar imagens com VBA

Suponha que existam duas grandes imagens em uma planilha, veja a captura de tela a seguir. Alguém pode querer redimensionar uma célula para ajustar uma imagem acima da célula. Mas como realizar isso?

Claro, você pode redimensionar cada célula automaticamente para ajustar as imagens acima delas. No entanto, pode ser tedioso e demorado para um grande número de imagens. Na verdade, podemos aplicar uma macro VB para redimensionar todas as células para ajustar as imagens acima delas. Você pode fazer isso seguindo os seguintes passos:

Passo 1: Mantenha pressionado as teclas ALT + F11, e abrirá a janela Microsoft Visual Basic for Applications.

Passo 2: Clique em Inserir > Módulo, e cole a seguinte macro na Janela do Módulo.

VBA: Redimensionar múltiplas células para ajustar suas 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 Sub

Passo 3: Pressione a tecla F5 para executar esta macro.

Agora, na planilha atual, se houver imagens, a célula abaixo de uma imagem será redimensionada para ajustar a imagem acima dela. Veja a seguinte captura de tela:

Redimensionar imagens para ajustar células com Kutools para Excel

Se você ajustou o tamanho das células conforme mostrado na captura de tela abaixo, e então deseja importar e redimensionar as imagens para ajustar os tamanhos das células, como você pode fazer isso rapidamente? Nesse caso, Kutools para Excel's Importar Imagens utilitário pode ajudá-lo a lidar facilmente com essa tarefa.

Após instalar o Kutools para Excel, por favor faça o seguinte:

1. Clique em Kutools Plus > Importar/Exportar > Importar Imagens. Veja a captura de tela:

2. Na janela pop-up Importar Imagens diálogo, você pode especificar a ordem de importação primeiro em Ordem de Importação seção, e depois clique Adicionar botão para adicionar imagens da pasta ou como arquivos um por um, então você pode ver que as imagens estão listadas na Imagem seção. Veja a captura de tela:

3. Em seguida, clique Importar botão para mostrar Tamanho da Imagem Importada diálogo, depois marque Tamanho da Célula Correspondente opção. Veja a captura de tela:

4. Clique OK > Importar para exibir uma caixa de diálogo para selecionar as células onde deseja importar as imagens. Veja a captura de tela:

5. Clique OK, e agora todas as imagens foram importadas para as células e seus tamanhos foram redimensionados para se ajustarem às células.

Artigo Relacionado:
Como inserir várias imagens em uma célula no Excel?