Bouger un JPG dans Excel

Résolu
Signaler
Messages postés
436
Date d'inscription
vendredi 7 novembre 2003
Statut
Membre
Dernière intervention
8 octobre 2008
-
Messages postés
436
Date d'inscription
vendredi 7 novembre 2003
Statut
Membre
Dernière intervention
8 octobre 2008
-
Bonjour,
J'ai un souci avec Excel, j'incorpore des photos dans un fichier Excel.
Je souhaiterais mettre plusieurs photos dans une même cellule.
Mon souvi c'est que je n'arrive pas à déplacer la photo dans Excel...
Equivalent VBA :
ActiveSheet.Shapes("Picture 3").Select
Selection.ShapeRange.IncrementLeft 153#

Comment exécuter ces lignes dans Delphi ?

Quelqu'un a-t'il une solution pour mettre plusieurs photos dans une même cellule sans que celles-ci s'empilent ?
Merci

Dom

1 réponse

Messages postés
436
Date d'inscription
vendredi 7 novembre 2003
Statut
Membre
Dernière intervention
8 octobre 2008
5
Ca y est , j'ai trouvé :
Esel,VarExcel:Variant;

              esel:=VarExcel.ActiveSheet.Pictures.insert('c:\tt.jpg');
              esel.top:= VarExcel.cells.item[k,j].top;
              esel.left:=VarExcel.cells.item[k,j].left+75;

Dom