Bouger un JPG dans Excel

Résolu
dominique.stock Messages postés 436 Date d'inscription vendredi 7 novembre 2003 Statut Membre Dernière intervention 8 octobre 2008 - 15 juin 2007 à 09:48
dominique.stock Messages postés 436 Date d'inscription vendredi 7 novembre 2003 Statut Membre Dernière intervention 8 octobre 2008 - 15 juin 2007 à 10:24
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

dominique.stock Messages postés 436 Date d'inscription vendredi 7 novembre 2003 Statut Membre Dernière intervention 8 octobre 2008 7
15 juin 2007 à 10:24
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
3
Rejoignez-nous