Criar catálogo de imagens no Excel – VBA

Cadastro VBA com Imagem
Cadastro VBA com Imagem
16 de outubro de 2011
Sorteio 1.0 - Excel VBA
Sorteio 1.0 – Excel VBA
27 de outubro de 2011

Objetivo: Demonstrar a criação de um catálogo automático de imagens com VBA.

Abaixo o código fonte da criação do catálogo.

Sub lsCriaCatalogo()

    Dim Top As Long
    Dim iTotalLinhas, i As Integer
    Dim lRow As Long

    lsLimpaPlanilha

    Sheets("Lista").Select
    Sheets("Lista").Cells(1, 1).Activate
    
    iTotalLinhas = Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    i = 2
    lRow = 3
    
    Sheets("Catálogo").Select
    Sheets("Catálogo").Cells(2, 1).Activate
    
    While i  2 Then
            Selection.ShapeRange.Top = Top
        End If
        
        If Top = 0 Then
            Selection.ShapeRange.Top = Selection.ShapeRange.Top + 6.75
        End If
        
        Top = Selection.ShapeRange.Top + Selection.ShapeRange.Height + 6.75
        
        i = i + 1
    Wend
End Sub

Sub lsLimpaPlanilha()
    Application.DisplayAlerts = False
    
    Sheets("Catálogo").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Padrão").Select
    Sheets("Padrão").Copy Before:=Sheets(1)
    Range("A2").Select
    Sheets("Padrão (2)").Select
    Sheets("Padrão (2)").Name = "Catálogo"
    
    Application.DisplayAlerts = True
End Sub

Para utilizar a planilha você deve listar o caminho de todos os arquivos na planilha Lista, bem como a descrição de cada imagem.

Após digitar o caminho de cada arquivo, clique no botão “Criar catálogo” e o código fonte acima será executado.

Abraço

Marcos Rieper


Clique aqui e leia mais sobre Excel VBA. https://www.guiadoexcel.com.br/vba/ O Guia do Excel foi criado por Marcos Rieper e oferece artigos, dicas, tutoriais e modelos de planilhas prontas. Aqui você encontra tudo sobre Excel, seja de nível básico, intermediário,  avançado e VBA. O Guia do Excel oferece diversos materiais completamente gratuitos para download. Navegue em nosso site e confira! Conheça também a nossa Loja do Excel https://loja.guiadoexcel.com.br/
Cursos

Curso Excel Completo – Curso Excel Básico + Curso Excel Avançado – Acesso Vitalício

R$218,00 R$179,00

COMPRAR
Cursos

Curso Excel Master – Curso Excel Básico + Curso Excel Avançado + Curso VBA Excel + LP – Acesso Vitalício

R$357,00 R$249,00

COMPRAR
Cursos

Curso Excel PRO – Curso Excel Avançado + Curso VBA Excel + Lógica de programação – Acesso Vitalício

R$258,00 R$199,00

COMPRAR
Cursos

Curso Excel Web – Curso VBA Excel + Lógica de programação + Curso Web Scraping VBA- Acesso Vitalício

R$388,90 R$309,00

COMPRAR

9 Comentários

  1. joao disse:

    Olá Amigo….

    Seu site é sensacional

    tenho uma demanda aqui, gostaria de uma ajuda se possível….
    Precisava, assim que fosse escolhido um número em uma (lista suspensa de validação de dados) aparecesse uma imagem correspondente aquele número.
    É possível?

    Obrigado

  2. inslley robert disse:

    Fala camarada gostei muito da sua matéria, muito bom! Eu tenho aqui no meu trabalho uma planilha com a mesma situação que eu gostaria de trata-la com imagens também, minha planilha tem quase 6 mil itens de repara que serão necessário efetuar compras e para não perdemos a descrição dos produtos tiramos fotos do mesmo, sua planilha seria perfeita mas ela esta apresentando algumas peculiaridades como a fotos só funcionam se estiver em .png, será bom se funciona-se em .jpg (jpeg), e quando clico em criar catalogo as fotos não alinham dentro da coluna assim ela fica por cima do nome das fotos, mesmo acertando a coluna ao clicar no botão tudo volta como era. Não conseguir ver todos os códigos vba, os que foram possível ver acho que não da para acertar o foto embora não tenho experiência em vba acho que tem config. Oculta gostaria de saber se tem como desocultar ou corrigir as peculiaridades.
    Abraço e Muito boa a matéria.

  3. JOYCE disse:

    Olá, bom dia! Poderia me ajudar, por gentileza, tenho um catálogo p/ fazer ref.a materiais, no entanto to mesclando a celular onde a figura esta e devido a isto no momento do filtro a figura não vem(aparece), já configurei a imagem, mais o filtro não esta puxando. Poderia me auxiliar?

    Desde já agradeço.

  4. Naty disse:

    Olá! Adorei a dica, mas infelizmente não funcionou, informa que a imagem não foi encontrada. Inseri o local corretamente e a referencia tambem. Pode me ajudar?

  5. CÉLIO BRAGA disse:

    OLÁ PRIMEIRAMENTE PARABÉNS PELO TRABALHO, MAS COMO FAÇO ISSO? Para utilizar a planilha você deve listar o caminho de todos os arquivos na planilha Lista, bem como a descrição de cada imagem.

    Após digitar o caminho de cada arquivo, clique no botão “Criar catálogo” e o código fonte acima será executado.
    SOU UM POUCO LEIGO NO ASSUNTO.

  6. Cleber disse:

    boa tarde marcos
    e possível gerar um VBA dimensionando as imagens pois os espaçamentos entre a descrição e as imagens ficam fora do esquadro!
    Pode me ajudar neste caso?

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.

Inscreva-se no nosso canal do Youtube!


Junte-se ao nosso canal do Youtube. Começamos em abril de 2016, mas já temos mais de 06:00 h de treinamentos gratuitos e este número irá aumentar. Vídeos novos todos os sábados.