Criar catálogo de imagens no Excel – VBA

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.

Baixe a planilha

Abraço

Marcos Rieper