Position de shapes dans une cellule

[joums]

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

 

[joums]

Re : 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é mais c loin d'être parfait !!!

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

 

[joums]

Re : Position de shapes dans une cellule

RE,

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

 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