Position de shapes dans une cellule

Bonjour,

Je souhaiterai positionner plusieurs shapes dans une même cellule

Les shapes sont dans le feuil1
et doivent être copiées dans la cellule B5 de la feuil2

Merci pour votre aide

Voici un début de code que j'ai trouvé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sheets("Feuil1").Select ActiveSheet.Shapes("picture1").Select Selection.Copy   Sheets("Feuil2").Select ActiveSheet.Paste   With MyPicture.Shapes("picture1") .Top = Range("C1").Top + 10 'position verticale de l'image dans le document .Left = Range("C1").Left + 35 'position horizontale de l'image dans le document   End With

---

Re



je crois avoir trouvé le code qui marcherait qu'en pensez-vous

Code:

---

1 2 3 4 5 6 7

Range("B15").Select 'selection de la cellule ActiveSheet.Pictures.Insert("F:\fichier \fleche.gif").Select 'on insère l'image With Selection.ShapeRange 'on indique la position de l'image .Left = ActiveCell.Left + 20 .Top = ActiveCell.Top End With

---