Foto's in excel met vast formaat

[hapdruijts]

Goedemorgen,

ik zit al een hele tijd te zoeken naar een manier om foto's in een vastformaat in excel te zetten.
De foto's kunnen in diverse directories staan.
Dus ik zoek een macro die een auto invoegt op een werkblad, direct formaat aanpast en tevens de vraag vanuit weke dirctorie de foto geimporteerd moet worden.
Bijgaand een voorbeeld bestand.

Bekijk bijlage Fotobestand.xlsx

 

[Warme bakkertje]

Onderstaande vraagt voor elk tekstvak waar de foto zich bezindt.

Sub ShapePicture()
For i = 1 To 10
    Sheets("Blad1").Shapes(i).Fill.UserPicture Application.GetOpenFilename("JPEG-Afbeelding (*.jpg), *.jpg")
Next
End Sub