XL 2013 Image dans shape

[Noopy123]

Bonjour,

Est-il possible d'ajouter une image dans une shape sélectionnée ?
J'ai un fichier qui créé un nombre aléatoire de rectangle et j'aimerais mettre une image en fond dans les rectangles que j'ai préalablement sélectionné. Le top serait de le faire via un double clique sur la cellule sélectionnée

Merci par avance

 

[Noopy123]

Effectivement, il me reste du travail pour qu'il puisse avoir le choix via un userform ^^

 

[Staple1600]

Finalement, j'ai trouvé un truc hyper simple qui pour l'instant marche :

Oui, c'est la syntaxe utilisée dans ce message

Sub Test()
Pict = Application.GetOpenFilename("Fichiers Images ,*.gif;*.jpg;*.png")
If Pict <> False Then
ActiveSheet.Shapes(Application.Caller).Fill.UserPicture Pict
End If
End Sub

Et dans cet exemple, on avait le choix de l'image...

PS: Tu n'arrives toujours pas à faire fonctionner mon dernier exemple?