Insert multiple pictures and arrange them with numbers

[johanlof]

Hi,

I've been trying to create a macro for entering mulitple pictures to an invoice and number them so I can refer to them in the descriptive text in the invoice.

So far i've tried many different macros but the only one that organizes the picture in the way I want is this code which I found on this forum.

HOWEVER,
On top of this macro I want to open the file explorer, select the pictures I want and organize them in the same way as the macro below.
And if it's possible to number them at the same time.

Sub organizeImages()

     lastTop = 765
     staticHeight = 350

     For Each pic In Worksheets("Fakturaunderlag").Pictures
          pic.Top = lastTop
          pic.Height = staticHeight
          lastTop = lastTop + pic.Height + 25
          pic.Left = 25
     Next pic
End Sub

Thanks in advance!

 

[johanlof]

This one works but not with MultiSelect set to True.
Is there something i'm missing?

Sub organizeImages()

Dim fNameAndPath As Variant
Dim img As Picture
fNameAndPath = Application.GetOpenFilename(Title:="Select Picture To Be Imported", MultiSelect:=True)
If fNameAndPath = False Then Exit Sub
    Set img = ActiveSheet.Pictures.Insert(fNameAndPath)
    With img
     lastTop = 765
     staticHeight = 350

     For Each pic In Worksheets("Fakturaunderlag").Pictures
          pic.Top = lastTop
          pic.Height = staticHeight
          lastTop = lastTop + pic.Height + 25
          pic.Left = 25
     Next pic
    End With
    

End Sub