Ir para o conteúdo principal

Como inserir várias imagens e redimensioná-las de uma vez no Excel?

É fácil para nós inserir uma imagem no Excel, mas se você precisar inserir várias imagens de uma vez para economizar muito tempo, como o faria?


Insira várias imagens e redimensione-as em massa pelo recurso Inserir imagem

Podemos inserir várias imagens em massa pelo recurso (Inserir) Imagem no Excel e, em seguida, redimensioná-las simultaneamente. Faça o seguinte:

1. Na planilha, clique em inserção > Imagem.

2. Na caixa de diálogo Inserir imagem, abra a pasta que contém as imagens que você irá inserir, selecione várias imagens conforme necessário e clique no botão inserção botão. Veja a imagem:
Note: Segurando Ctrl , você pode selecionar várias imagens não adjacentes clicando nelas uma por uma; segurando Shift , você pode selecionar várias imagens adjacentes clicando na primeira imagem e na última.

Agora as imagens são inseridas em massa e empilhadas na planilha.

3. Mantenha essas fotos selecionadas e redimensione-as em massa inserindo um novo número em ambas Largura e Altura caixas no Tamanho grupo no Formato aba. Veja a imagem:

Agora todas as imagens inseridas são alteradas para o mesmo tamanho simultaneamente de uma vez.

4. No momento, você precisa mover manualmente cada imagem separadamente para um local adequado.

Note: Se houver dezenas de fotos empilhadas, será muito demorado movê-las manualmente para caber nos lugares.

Inserção em lote de várias imagens correspondentes ao conteúdo da célula no Excel

A Corresponder imagens de importação recurso do Kutools para Excel, é uma ferramenta fantástica que pode importar em lote e inserir várias imagens com base no conteúdo da célula e redimensionar facilmente as imagens importadas para o mesmo tamanho da célula ou para o tamanho especificado.


foto importada de correspondência de anúncio 01

Kutools for Excel - Turbine o Excel com mais de 300 ferramentas essenciais. Desfrute de um teste GRATUITO de 30 dias com todos os recursos, sem necessidade de cartão de crédito! Get It Now

Insira várias imagens e redimensione-as em massa com o OneNote

Para evitar mover imagens empilhadas uma a uma, este método apresenta outro truque para inserir várias imagens com a ajuda do OneNote. Faça o seguinte:

1. Inicie o OneNote e crie uma nova página. E então clique inserção > Imagem.

2. Na caixa de diálogo Inserir imagem, abra a pasta que contém as imagens que você irá inserir, selecione várias imagens conforme necessário e clique no botão inserção botão. Veja a imagem:
Note: Segurando Ctrl , você pode selecionar várias imagens não adjacentes clicando nelas uma por uma; segurando Shift , você pode selecionar várias imagens adjacentes clicando na primeira imagem e na última.

doc inserir várias imagens OneNote 032

3. pressione Ctrl + A para selecionar todas as imagens inseridas no OneNote e, em seguida, pressione Ctrl + C chaves para copiá-los.

4. Vá para a planilha no Excel e pressione Ctrl + V teclas para colar as imagens na planilha. Agora todas as imagens são coladas verticalmente, conforme mostrado à esquerda.

5. Selecione qualquer uma das fotos e pressione Ctrl + A para selecionar todos eles. Em seguida, redimensione as fotos em massa inserindo novos números em ambos Largura e Altura caixas no Tamanho grupo no Formato aba. Veja a imagem:

Agora todas as imagens especificadas são inseridas no Excel e redimensionadas para o mesmo tamanho em massa.


Insira várias imagens no Excel com código VBA

Com o código VBA a seguir, você pode inserir várias imagens no arquivo Excel, célula por célula.

1. Selecione a primeira célula do intervalo de destino em que deseja inserir imagens.

2. Segure o ALT + F11 chaves, e abre o Microsoft Visual Basic para Aplicações janela.

3. Clique inserção > Móduloe cole a macro a seguir no Janela Módulo.

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4. Em seguida, pressione o botão F5 chave para executar este código.

5. Na caixa de diálogo Abrir, abra a pasta que contém as imagens que deseja inserir, selecione várias imagens que deseja inserir e clique no botão Abra botão. E todas as imagens selecionadas foram importadas para sua seleção com base no tamanho da célula. Veja a imagem:


Insira várias imagens e ajuste-as automaticamente com o Kutools para Excel

Kutools for Excel'S Importar imagens O utilitário pode ajudá-lo a inserir rapidamente várias imagens no Excel com base no tamanho da célula ou da imagem. Você também pode especificar a altura e a largura das imagens conforme necessário.

Kutools for Excel - Turbine o Excel com mais de 300 ferramentas essenciais. Desfrute de um teste GRATUITO de 30 dias com todos os recursos, sem necessidade de cartão de crédito! Get It Now

1. Clique Kutools Plus > Importação / Exportação > Importar imagens, veja a captura de tela:

2. No Importar imagens caixa de diálogo, faça o seguinte:
(1) Especifique a ordem de exibição das imagens do Ordem de importação lista suspensa, você pode escolher Preencher verticalmente célula após célula or Preencher horizontalmente célula após célula.
(2) Clique Adicionar para selecionar os arquivos de imagem ou pasta para adicionar as imagens à lista de imagens. E todas as suas imagens selecionadas serão listadas na caixa de lista.
(3) Clique no Tamanho de importação botão;

3. Agora no Importar tamanho da imagem diálogo, você pode escolher o tamanho da imagem que corresponde às suas necessidades. Veja a imagem:

4. Após especificar o tamanho da imagem, por favor clique OK para fechar esta caixa de diálogo e voltar ao Importar imagens diálogo, clique em importação botão para importar as imagens.

5. Na nova caixa de diálogo Importar imagens, escolha a primeira célula do intervalo de destino em que irá inserir as imagens e clique no botão OK botão.

No momento, todas as imagens selecionadas foram inseridas nas células a partir da célula ativa vertical ou horizontalmente. Veja a captura de tela certa:

A Importar imagens recurso do Kutools para Excel foi projetado para inserir um lote de imagens simultaneamente com tamanho de célula correspondente, tamanho especificado ou tamanhos próprios das imagens no Excel. Faça um teste grátis!


Insira várias imagens correspondentes aos seus nomes com o Kutools para Excel

Kutools for Excel também oferece suporte a uma abordagem dramática Corresponder imagens de importação recurso para combinar imagens e conteúdos de células e inserir imagens combinadas apenas em massa no Excel.

Kutools for Excel - Turbine o Excel com mais de 300 ferramentas essenciais. Desfrute de um teste GRATUITO de 30 dias com todos os recursos, sem necessidade de cartão de crédito! Get It Now

1. Selecione as células do nome da imagem nas quais deseja inserir as imagens correspondentes e clique em Kutools Plus > Importação / Exportação > Corresponder imagens de importação. veja a imagem:

2. Na caixa de diálogo Match Import Pictures exibida, faça o seguinte:
(1) Especifique a ordem de exibição das imagens do Ordem de importação lista suspensa;
(2) Clique Adicionar botão para adicionar as imagens à caixa de lista de imagens. Para sua informação, apenas as imagens correspondentes serão listadas.
(3) Em seguida, clique Tamanho de importação botão.

3. Agora no Importar tamanho da imagem caixa de diálogo, você pode escolher o tamanho da imagem que corresponde às suas necessidades e clicar no Ok botão. Veja a imagem:

4. Agora você retorna ao Importar imagens diálogo, clique em importação botão para importar as imagens.

5. Na caixa de diálogo Match Import Pictures, especifique a primeira célula do intervalo de destino em que irá inserir as imagens e clique no botão OK botão. Veja a imagem:

Até agora, todas as imagens foram inseridas nas células com base em seus nomes relativos. Veja a captura de tela certa:

A Corresponder imagens de importação recurso do Kutools para Excel pode ajudar os usuários do Excel a filtrar rapidamente as imagens com base nos valores das células e, em seguida, inserir essas imagens em massa. Além disso, essas imagens correspondentes podem ser redimensionadas automaticamente para o tamanho especificado ou para o tamanho da célula. Faça um teste grátis!


Demonstração: insira várias imagens e redimensione-as de uma vez no Excel

Kutools for Excel inclui mais de 300 ferramentas úteis para Excel, grátis para testar sem limitação em 30 dias. Teste grátis agora!      Comprar!


Artigos relacionados

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

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...

Descrição


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!
Comments (47)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello community,

Thank you very much - this is a great tool!
But for my request, I should keep the sizes of the images, which are different. Is there any way to keep the format of the images but keep the functions with this code?

Many thanks in advance.
Elias
This comment was minimized by the moderator on the site
Respected sir, i want to One image paste on specific cell more than one in a time.
This comment was minimized by the moderator on the site
Hello, Sarfraz

If you want to insert one image into multiple cells, you just need to insert one image and resize it, and then copy and paste it to the other cells as you need.

Thank you!
This comment was minimized by the moderator on the site
mình cảm ơn vì bài viết. mình có làm danh sách sản phẩm hàng hóa mất rất nhiều thời gian nhưng chợt thấy chenanhexcel.com có bán add-in thì công việc của mình dễ dàng hơn nhiều.
This comment was minimized by the moderator on the site
Hi, i have 10 images i want to insert all 10 inside ONE CELL in excel. is this possible and if so pls help me out with some code pls...
This comment was minimized by the moderator on the site
Hi Vind,
First, adjust the cell and make it big enough to contain the 10 images.
Then Click Insert > Picture to open the Insert Picture dialog. In the dialog, select the 10 images together (if they are in the same folder), and click the OK button.
Now all images are inserted. If necessary, resize them simultaneously in the Size group on the Picture Format tab.
These images are inserted in the diagonal line of the cell as attached picture, and you need to adjust their positions manually.
This comment was minimized by the moderator on the site
I am using the following code, which came from Funzone, to add my photos but i need to be able to skip a column, leaving a blank column between photos, can someone help?

Sub InsertPictures()
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)

xColIndex = Application.ActiveCell.Column
xRowIndex = Application.ActiveCell.Row

If IsArray(PicList) Then

For lLoop = LBound(PicList) To UBound(PicList)
Set Rng = Cells(xRowIndex, xColIndex)
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
xColIndex = xColIndex + 1
If xColIndex = 4 Then GoTo Continue1 Else GoTo Continue2

Continue1:
xRowIndex = xRowIndex + 2
xColIndex = xColIndex - 3

Continue2:
Next
End If
End Sub
This comment was minimized by the moderator on the site
I was finally able to figure it out on my own.

The code below will insert 3 pictures horizontally in the columns then move down a row and insert 3 more horizontally it will repeat this process until it runs out of the selected pictures.



Sub InsertPictures()
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)

xColIndex = Application.ActiveCell.Column
xRowIndex = Application.ActiveCell.Row

If IsArray(PicList) Then

For lLoop = LBound(PicList) To UBound(PicList)
Set Rng = Cells(xRowIndex, xColIndex)
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
xColIndex = xColIndex + 1
If xColIndex = 4 Then GoTo Continue1 Else GoTo Continue2

Continue1:
xRowIndex = xRowIndex + 1
xColIndex = xColIndex - 3

Continue2:
Next
End If
End Sub
This comment was minimized by the moderator on the site
I would really like to use this VBA code to fill an array of cells with picture like 5 across then move to next row and 5 across until you run out of selected pictures but I just can't wrap my head around how to do it. Is this at all possible?


If you know how to do this please post the code. Thank you In advance!

Similar to https://www.extendoffice.com/documents/excel/3360-excel-transpose-every-5-rows.html
except by selecting pictures and pasting the output in an array.
This comment was minimized by the moderator on the site
I would really like to use this VBA code to fill an array of cells with picture like 5 across then move to next row and 5 across until you run out of selected pictures but I just can't wrap my head around how to do it. Is this at all possible?

Similar to https://www.extendoffice.com/documents/excel/3360-excel-transpose-every-5-rows.html
except by selecting pictures and pasting the output in an array
This comment was minimized by the moderator on the site
les agradezco mucho realmente ayudan muchisimo con el trabajo y el tiempo. Me sirvio perfecto para un inventario con fotos.
reitero mi agradecimiento
This comment was minimized by the moderator on the site
Tried this code and in all honesty is amazing and fast, however is there any chance of amending this to make it resize the pictures to a custom size.
I cannot seem to get my head around it.
Thanks
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations