Delphi - Excel - ajout d'image

Version imprimable

08/04/2006, 16h01
arkhamon

Delphi - Excel - ajout d'image

bonjour a toutes et a tous,
je voudrais a partir d'un programme Delphi ajouter a un fichier excel existant une image de type JPG via OLE automation.
J'arrive a manipuler les cellules sans probleme, mais j'ai aucune idee de comment inserer une image.

Merci.
08/04/2006, 16h12
SfJ5Rpw8

ben de la même façon tu accéde au cellule tu peu inserer image :

Code:

ActiveSheet.Pictures.Insert ("100_0917.JPG")

... remplace Activesheet.. par ta variable qui "pointe" sur la feuille excel..
08/04/2006, 16h33
arkhamon

Ben il me met :

La methode insert de la classe pictures a echoue...
08/04/2006, 18h50
SfJ5Rpw8

essai de mettre le chemin complet pour l'image...
08/04/2006, 19h27
arkhamon

effectivement ca marche beaucoup mieux...
Si j'osais... je demanderais comment la deplacer, la redimensionner... sachant qu'en fait j'en ai plusisurs a mettre... donc je dois pouvoir acceder a chaque image...

en fait ... pour cela utilise Excel... enregistremet de macro ... et tu vera ce que cela donne...

Code:

1
2
3
4
5
6
7
8
9
 
    Dim p As Excel.Picture
 
    Set p = ActiveSheet.Pictures.Insert( "100_0917.JPG")
     p.Height = 100 ' Redéfinit la hauteur de l'image
     p.Width = 100 ' largeur
'Dans ton cas remplace activesheet ar ta variable .. feuille..
    p.Top = ActiveSheet.Range("D5").Top ' point d'implatation haut
    p.Left = ActiveSheet.Range("D5").Left ' point d'implantation gauche

08/04/2006, 21h57
evarisnea

salut, il est intéressant le sujet.
bbil est il possible d'insérer une image dans excel sans passer par un fichier sur le disque, à partir d'une image stockée dans une base de donnée ?
08/04/2006, 23h06
arkhamon
salut,
j'ai mis le code suivant :
Code:

1 2 3 4 5 6 7 var image : variant; ... image := feuille.Pictures.Insert('C:\tyr.jpg'); showmessage('ok image'); image.top := feuille.range('a5').top; showmessage('ok top');
j'ai bien le premier showmessaga ('ok image') mais avant le second j'ai l'erreur suivante :

membre introuvable.

feuille est bon , je l'utilise juste avant pour remplir des cellules.
Au fait, A5 est une cellule fusionnee, mais la ligne
Code:

1 2 zone := feuille.Range('a5').MergeArea;
me donne la meme erreur.
08/04/2006, 23h47
arkhamon
je me repond a moi meme. Il semblerait que ce soit l'appel a
feuille.range().top qui fasse planter. Si je mets une valeur ca marche.

PAr contre le code suivant :
Code:

1 2 rapport := image.heigth / image.width;
me donne l'erreur suivante :

methode heigth non supportee.

On ne peut pas interroger une valeur d'un objet ?
09/04/2006, 08h10
SfJ5Rpw8

je connai pas bien delphi.. mais une recherche dans le forum .. me laisse à pense à une syntaxe du genre ...:

Code:

image.top := feuille.range['a5'].top;