Note: The other languages of the website are Google-translated. Back to English

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:
Nota: Segurando Ctrl , você pode selecionar várias imagens não adjacentes clicando nelas uma por uma; segurando mudança , 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.

Nota: 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

O 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 imagens importadas igual ao tamanho da célula ou para o tamanho especificado facilmente.


foto importada de correspondência de anúncio 01

Kutools for Excel - Inclui mais de 300 ferramentas úteis para Excel. Avaliação gratuita de recursos completos 30-dia, 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:
Nota: Segurando Ctrl , você pode selecionar várias imagens não adjacentes clicando nelas uma por uma; segurando mudança , 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 Abre 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 - Inclui mais de 300 ferramentas úteis para Excel. Avaliação gratuita de recursos completos 30-dia, 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:

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


Insira várias imagens que combinem com seus nomes com o Kutools para Excel

Kutools para Excel também oferece suporte 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 - Inclui mais de 300 ferramentas úteis para Excel. Avaliação gratuita de recursos completos 30-dia, 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:

O Corresponder imagens de importação 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 para o tamanho especificado ou tamanho de célula automaticamente. 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, gratuitas para testar sem limitação em 30 dias. Teste grátis agora!      Comprar!


Artigos relacionados


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office 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!
parte inferior da aba do escritório
Comentários (47)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
As instruções com o título: Inserir várias imagens no Excel com código VBA é simplesmente incrível, rápido e eficaz !!! esta é uma boa alternativa para comprar e instalar plugins. Este é o meu primeiro comentário online !! parabéns!
Este comentário foi feito pelo moderador no site
Oi, eu sou capaz de usar o módulo InsertPictures e funciona corretamente até jpg. Ele não quer trabalhar para PNG embora. Você pode por favor aconselhar? Abraços, Lourenço
Este comentário foi feito pelo moderador no site
No primeiro tópico "Inserir várias imagens no Excel com código VBA", como inserir uma imagem em duas células. por exemplo, a primeira imagem será inserida nas células A1 e A2, a segunda imagem será inserida nas células A3 e A4 e assim por diante.
Este comentário foi feito pelo moderador no site
bom suporte para Excel.....vocês estão realmente ajudando a economizar tempo. obrigado
Este comentário foi feito pelo moderador no site
Ótimo post! Mas eu tenho outras maneiras de fazer a mesma coisa ..... ===================================== ============ Sub ipic() Dim i As Integer For i = 2 To 10 Cells(i, 1). Selecione Dim picname As String picname = Cells(i, 2) ActiveSheet.Pictures. Insert("F:\Ram-PC\Macro\MyImage\" & picname & ".jpg").Selecione Com Seleção .Left = ActiveCell.Left .Top = ActiveCell.Top .ShapeRange.LockAspectRatio = msoFalse .ShapeRange.Height = 34# .ShapeRange.Width = 80# End With Next Range("a1").Selecione End Sub
Este comentário foi feito pelo moderador no site
Existe uma versão do Kuttools para Mac?
Este comentário foi feito pelo moderador no site
É possível modificar esse código vba para inserir 4 imagens em um padrão semelhante a uma grade como este: pic1 em A1, pic2 em A2, pic3 em B1 e pic4 em B2? Tanques!
Este comentário foi feito pelo moderador no site
Deixa pra lá, descobri como fazer :)
Este comentário foi feito pelo moderador no site
Oi, você poderia compartilhar o código modificado?
Este comentário foi feito pelo moderador no site
Sub InsertPictures() 'Update 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Erro Continuar Próximo PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList) Então xRowIndex = Application.ActiveCell.Row Para lLoop = LBound(PicList) Para UBound(PicList) Definir Rng = Cells(xRowIndex, xColIndex) Definir sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue , Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Este comentário foi feito pelo moderador no site
Você poderia me ajudar a modificar o código para inserir a coluna e a linha mescladas. Sub InsertPictures() 'Update 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Erro Continuar Próximo PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application.ActiveCell. Coluna If IsArray(PicList ) Então xRowIndex = Application.Act iveCell.Row Para lLoop = LBound(PicList) Para UBound(PicList) Definir Rng = Cells(xRowIndex, xColIndex) Definir sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Este comentário foi feito pelo moderador no site
selecione as células e redimensione-as por largura e altura de acordo com suas necessidades.. se você tiver dez fotos, selecione dez células ou mais, selecione mais..!! em seguida, pressione Alt+F11, em seguida, clique em INSERT, em seguida, clique em MODULE, em seguida, cole o seguinte código como está. 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) Para UBound(PicList) Set Rng = Cells( xRowIndex, xColIndex) Definir sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub APÓS O CÓDIGO ACIMA PRESSIONE F5 .. DEPOIS SELECIONE OS ARQUIVOS DO COMPUTADOR ONDE ESTÃO. ATÉ A SUA NECESSIDADE. ENTÃO, SE VOCÊ NÃO SALVAR O MANUAL DE EXERCÍCIOS, IRÁ PEDIR PARA SALVAR. SE VOCÊ JÁ SALVOU. ENTÃO SEU TRABALHO É ESPERO QUE ISSO AJUDE .. Ali .. !!
Este comentário foi feito pelo moderador no site
Muito obrigado, funciona
Este comentário foi feito pelo moderador no site
Oi EXcel Masters, eu tenho 2 planilhas de excel. Um com mais de cem fotos e descrição da foto na próxima célula a ela. A outra folha após a seleção provavelmente saiu com 40 descrição dela. Como posso transferir as fotos para esta folha conforme minha seleção. Obrigado a todos
Este comentário foi feito pelo moderador no site
ou você usa diretamente image-xls . com este suplemento do Excel, você pode inserir um número ilimitado de imagens na célula do Excel ou como um comentário. ele também redimensiona suas fotos. e é possível ordenar e filtrar sua planilha Excel, incluindo as Imagens !
Este comentário foi feito pelo moderador no site
Sou usuário de Mac e uma vez que copiei o código para o novo módulo e o executei, nada acontece. Existe algo que eu tenho que fazer no mac para executar o código VBA? Obrigado
Este comentário foi feito pelo moderador no site
[quote]ou você usa diretamente image-xls . com este suplemento do Excel, você pode inserir um número ilimitado de imagens na célula do Excel ou como um comentário. ele também redimensiona suas fotos. e é possível ordenar e filtrar sua planilha Excel, incluindo as Imagens !Por Armin[/quote] [quote]As instruções com o título: Inserir várias imagens no Excel com código VBA é simplesmente incrível, rápido e eficaz !!! esta é uma boa alternativa para comprar e instalar plugins. Este é o meu primeiro comentário online !! parabéns!Por Rahul Gupta[/quote] eu tentei isso e parece funcionar bem - mas você não pode ordenar ou filtrar a lista do Excel incluindo as fotos. também as fotos não são dimensionadas proporcionalmente. então eu comprei image-xls - custa um pouco, mas faz tudo que eu preciso
Este comentário foi feito pelo moderador no site
Olá! Algum motivo pelo qual "Sub InsertPictures()" não funcionaria no Excel 2003? Já adicionei a referência a Microsoft.Scripting.Runtime Obrigado desde já Gilberto
Este comentário foi feito pelo moderador no site
é muito útil para mim. É tão bom trabalho....... Obrigado
Este comentário foi feito pelo moderador no site
Oi, eu tentei o código na minha planilha e funcionou perfeitamente. Até eu tentar fazer filtro. Descubra que a última imagem sempre será mostrada no resultado do filtro. alguém capaz de ajudar?
Este comentário foi feito pelo moderador no site
Usando o programa VBA abaixo, não é possível inserir a imagem na célula mesclada, 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.Get OpenFilename(Pi cFormat , MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList) Then xRowIndex = Application.Act iveCell.Row For lLoop = LBound(PicList) Para UBound(PicList) Definir Rng = Cells(xRowIndex, xColIndex) Definir sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub Por favor, aconselhe-me a modificar o VBA .
Este comentário foi feito pelo moderador no site
Ei tudo, isso é ótimo! Acompanho seus tutoriais há algum tempo. O que eu esperava que você pudesse me ajudar é: como faço para mudar isso de colar as imagens em uma coluna para uma linha? E como posso adicionar o "Nome completo do arquivo (ou seja, example_image.jpg)" à linha acima dele. Linha 'A' : "Filename.jpg" Linha 'B' : "Image Thumbnail" Obrigado!!
Este comentário foi feito pelo moderador no site
Ei, eu inseri as imagens usando meu próprio código VBE. E agora tentei compartilhar com os outros, infelizmente eles não conseguem ver as fotos..... Agradeceria se alguém pudesse me dizer o que estou perdendo. Obrigado
Este comentário foi feito pelo moderador no site
Este código QUASE funciona para minhas necessidades. Eu tenho 200 imagens, cada imagem precisa ir em sua própria folha. Como eu faço isso?
Este comentário foi feito pelo moderador no site
Como posso modificar o código a seguir para que as imagens sejam preenchidas em um intervalo selecionado de células em várias colunas e linhas, em vez de em células consecutivas em linhas sucessivas na mesma coluna? Sub InsertPictures() 'Update 20140513 Dim PicList() As Variant Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Erro Continuar Próximo PicList = Application.Get OpenFilename(Pi cFormat, MultiSelect:=True) xColIndex = Application.ActiveCell. Coluna If IsArray(PicList ) Então xRowIndex = Application.Act iveCell.Row Para lLoop = LBound(PicList) Para UBound(PicList) Definir Rng = Cells(xRowIndex, xColIndex) Definir sShape = ActiveSheet.Sha pes.AddPicture( PicList(lLoop) , msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height) xRowIndex = xRowIndex + 1 Next End If End Sub
Este comentário foi feito pelo moderador no site
Alguem conseguiu o código para a pergunta dele? estou precisando também!
Não há comentários postados aqui ainda
carregar mais
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL