Shape, sacré shape !

[claudio54]

Bonjour à toutes et à tous,

Voila, malgré tout ce que j'ai pu lire dans ce forum, en recherche sur Google et sur divers tutoriels (JB entre autres) je ne réussi pas à insérer des images internes (présentes sur une feuille) dans un (ou une) shape.
Quand il s'agit d'un fichier sur disque dur, je suis capable d'écrire le code mais quand c'est une image sur une feuille, la commande " Sheets("Feuil1").Shapes("Freeform 1").Fill.UserPicture Image1 " ne fonctionne pas et je ne trouve pas de solution.

Je joint un petit fichier qui peut servir d'exemple.

Merci par avance de m'aiguiller vers une solution.

 

[Regueiro]

Re : Shape, sacré shape !

Bonsoir.
Une variante avec un UserForm ( J.Boisgontier )
A+

 

[claudio54]

Re : Shape, sacré shape !

Bonsoir
Merci pour votre réponse, mais sur usf, je savais faire grâce à ce forum. Mais pour mon appli, il faut vraiment que j'utilise des formes libres et non pas des éléments préformatés.
De toute évidence, après toutes les recherches que j'ai effectué, il s'avère que les shapes sont plus difficiles à gérer en vba ou alors les utilisateurs d'Excel ne les emploient que très peu.

 

[BOISGONTIER]

Re : Shape, sacré shape !

Bonjour,

cf PJ

Dim p
Private Sub CommandButton1_Click()
  Set f = Sheets("photos")
  p = p + 1: If p > f.Shapes.Count Then p = 1
  Set s = f.Shapes("photo" & p)
  s.CopyPicture
  f.ChartObjects.Add(0, 0, s.Width, s.Height).Chart.Paste
  f.ChartObjects(1).Chart.Export Filename:="monimage.jpg"
  f.Shapes(f.Shapes.Count).Delete
  ActiveSheet.Shapes("Cadre").Fill.UserPicture "monimage.jpg"
  Kill "monimage.jpg"
End Sub

JB

 

[claudio54]

Re : Shape, sacré shape !

Bonjour JB

impeccable, ça fonctionne à merveille. A la première lecture, je ne comprends pas tout mais je vais étudier ça de près.
Encore merci pour cet excellent code.