Como redimensionar imagens para caber nas células do Excel?
As imagens normalmente inseridas flutuam sobre as células e, na maioria das vezes, uma imagem cobre muitas células. Se uma planilha tiver um grande número de imagens, convém colocar cada imagem em uma única célula. Mas como lidar com isso? Na verdade, existem várias maneiras complicadas de nos ajudar a redimensionar fotos para caber no tamanho das células rapidamente.
Redimensione uma imagem selecionada para caber em uma única célula com VB Macro
Redimensione as imagens inseridas para caber nas células com o Kutools para Excel
Redimensione uma imagem selecionada para caber em uma única célula com VB Macro
Podemos aplicar macros VB para redimensionar uma imagem selecionada para caber em uma única célula, mas não redimensionar manualmente a largura e altura de uma imagem. Você pode fazer isso com as seguintes etapas:
Etapa 1: Insira as imagens em uma planilha e selecione uma imagem que você irá redimensionar para caber em uma única célula.
Etapa 2: Mantenha pressionado o botão ALT + F11 chaves, e abre o Microsoft Visual Basic para Aplicações janela.
Etapa 3: clique inserção > Móduloe cole a macro a seguir na janela do módulo.
VBA: redimensiona uma imagem selecionada para caber em uma célula.
Public Sub FitPic()
On Error GoTo NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
With Selection
PicWtoHRatio = .Width / .Height
End With
With Selection.TopLeftCell
CellWtoHRatio = .Width / .RowHeight
End With
Select Case PicWtoHRatio / CellWtoHRatio
Case Is > 1
With Selection
.Width = .TopLeftCell.Width
.Height = .Width / PicWtoHRatio
End With
Case Else
With Selection
.Height = .TopLeftCell.RowHeight
.Width = .Height * PicWtoHRatio
End With
End Select
With Selection
.Top = .TopLeftCell.Top
.Left = .TopLeftCell.Left
End With
Exit Sub
NOT_SHAPE:
MsgBox "Select a picture before running this macro."
End Sub
Etapa 4: pressione o F5 chave para executar esta macro.
Etapa 5: Repita as etapas acima para redimensionar outras imagens para caber em uma única célula.
Agora todas as imagens inseridas são redimensionadas e cabem nas células. Veja a seguinte captura de tela:
Note: Você pode redimensionar apenas uma imagem por vez. Se você selecionar mais de uma imagem de uma vez, uma caixa de diálogo de aviso aparecerá.
Redimensione as imagens inseridas para caber nas células com o Kutools para Excel
Se você tem Kutools for Excel instalado, você pode aplicar seu Importar imagens ferramenta para redimensionar todas as imagens para caber nas células ou com altura fixa durante a inserção de imagens.
Kutools for Excel inclui mais de 300 ferramentas úteis do Excel. Gratuito para testar sem limitação em 30 dias. Get it Now.
Etapa 1: Selecione as células do intervalo em que deseja inserir imagens e clique no botão Empreendimento >Import / Export > Importar imagens. Veja a seguinte captura de tela:
Etapa 2: no Importar imagens caixa de diálogo, selecione a ordem de inserção na lista suspensa e clique em Adicionar botão para adicionar as fotos que você precisa de um arquivo ou pasta e, em seguida, clique Tamanho botão. Veja a imagem:
Passo 3: Cheque Tamanho de célula correspondente opção. Então clique Ok > importação para fechar diálogos. Veja a imagem:
Agora você pode ver que as imagens são inseridas para caber nas células.
Note: Você também pode especificar a altura e largura da célula na etapa 3 para redimensionar as imagens.
Se você quiser saber mais sobre isso Importar imagem recurso, por favor visite SUA PARTICIPAÇÃO FAZ A DIFERENÇA.
Artigo relacionado:
Como redimensionar várias células para ajustar as imagens acima delas rapidamente no 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!