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 SubEtapa 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.
| Kutools for Excel, com mais de 120 funções úteis, tornam seus trabalhos mais fáceis. | ||
Depois de instalar Kutools para Excel, faça o seguinte :(Baixe grátis o Kutools para Excel agora!)
1. Clique Empreendimento > 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 importação 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 > importação 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 as células adequadas.
Importar imagens corresponder ao tamanho da célula
Artigo relacionado:
Como inserir várias imagens em uma célula do 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!
