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

Como sabemos, o Microsoft Excel suporta redimensionar automaticamente a altura da linha e a largura da coluna de uma célula para caber no conteúdo preenchido, como uma longa string de texto. No entanto, o comando Ajustar automaticamente a altura da linha e o comando Ajustar automaticamente a largura da coluna não são válidos para imagem, porque uma imagem inserida não reside em uma célula específica.

Redimensione células para ajustar as imagens com VBA

Redimensione imagens para caber nas células com o Kutools para Excel

Redimensione células para ajustar as imagens com VBA

Supondo que haja duas imagens grandes em uma planilha, veja a captura de tela a seguir. Alguém pode redimensionar uma célula para caber na imagem acima dela. Mas como perceber isso?

Claro, você pode redimensionar cada célula automaticamente para ajustar as imagens acima delas. No entanto, pode ser tedioso e demorado para várias fotos. Na verdade, podemos aplicar uma macro VB para redimensionar todas as células para ajustar as imagens acima delas. Você pode fazer isso com as seguintes etapas:

Etapa 1: Mantenha pressionado o botão ALT + F11 chaves, e abre o Microsoft Visual Basic para Aplicações janela.

Etapa 2: clique inserção > Móduloe cole a macro a seguir na janela do módulo.

VBA: redimensione várias 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

Etapa 3: pressione o F5 chave para executar esta macro.

Agora na planilha atual, se houver figuras, a célula abaixo da figura será redimensionada para caber na figura acima dela. Veja a seguinte captura de tela:

Redimensione imagens para caber nas células com o Kutools para Excel

Se você ajustou o tamanho das células conforme a captura de tela mostrada abaixo e deseja importar e redimensionar as imagens para caber no tamanho das células, como pode fazer isso rapidamente? Nesse caso, Kutools for Excel's Importar imagens utilitário pode ajudá-lo a lidar facilmente com este trabalho.

Depois de instalar Kutools para Excel, faça o seguinte:

1. Clique Kutools Plus > Import / Export > Importar imagens. Veja a imagem:

2. No popping Importar imagens , você pode especificar a ordem de importação primeiro em Ordem de importação seção e clique em Adicionar botão para adicionar imagens da pasta ou como arquivos um por um, então você pode ver a lista de imagens no Imagem seção. Veja a imagem:

3. Então clique Importar botão para mostrar Importar tamanho da imagem caixa de diálogo, em seguida, verifique Tamanho de célula correspondente opção. Veja a imagem:

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

5. Clique OK, e agora todas as pirtcures são importadas para as células e redimensionadas para caber nas células.

Artigo relacionado:
Como inserir várias imagens em uma célula do Excel?