Macro til indsætning af billeder

har lavet noget ligende før, men jeg ser lidt et problem i at du vil have et antal udefineret mængde billeder og placere dem i nogle definerede celler ???

man kan god få filnavnet med ind i det.

Public Sub indsæt_billeder()

Dim sti As String, No As Long, fil() As Variant

Application.ScreenUpdating = True
bredde = 150                            'bredde på billede
højde = 100                            'højde på billede
With ActiveSheet
    With .Rows
    .RowHeight = højde
    .VerticalAlignment = xlCenter
    .HorizontalAlignment = xlLeft
    End With
.Columns.AutoFit
.Pictures.Delete
Sheets("ark1").Range("a:A").Clear
End With
startposx = Range("A:a").Width
startposy = 5

sti = "c:\"                                    'indsæt sit navnet du vil hente fra

If Right(sti, 1) <> "\" Then sti = sti & "\"
    ReDim Preserve fil(No)
    fil(No) = Dir(sti & "*.*")                    ' Hent den første filnavn.
    Do While fil(No) <> ""                          ' Start løkken
        If fil(No) <> "." And fil(No) <> ".." Then
            No = No + 1
            ReDim Preserve fil(No)
        End If
        fil(No) = Dir                                  ' Hent næste filnavn.
    Loop
    No = No - 1
Range("A1:A" & UBound(fil) + 1) = Application.WorksheetFunction.Transpose(fil)

sidste = Worksheets("Ark1").Range("A65536").End(xlUp).Row

For i = 1 To sidste
    file = Sheets("ark1").Range("a" & i)
    Worksheets("Ark1").Shapes.AddPicture sti & file, _
    True, True, startposx, startposy, bredde, højde - 10
    On Error Resume Next
    startposy = startposy + højde
    file = ""
Next i
Application.ScreenUpdating = False
   
End Sub

Hej Lerskov!

Jeg har nu testet din macro og for mig virker den næsten som mit behov er.
Dog har jeg brug for at kunne sætte billeder ind i kolonne A fra et nummer/style i kolonne B med et selvfølgelig nøjagtigt match.
Jeg ønsker ikke macro´en sætter filnavn efter 123456789.png - altså png efter mit stylenummer.
Hvordan kan jeg løse den del?
Samtidig lander billedet i kolonne B, den vil jeg gerne have i A, altså omvendt af denne kodning.
Hvis jeg har mellem 5000 og 10000 billeder, skal de da alle defineres i kodningen?
Jeg er med på at indsætte stien, men jeg kan ikke helt forstå de næste 3 punkter - hvor der skal indsættes og du har kommenteret - hvordan skal det forstås?

På forhånd mange tak
-Marlene