Discussion :

[arkhamon]

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.

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

... remplace Activesheet.. par ta variable qui "pointe" sur la feuille excel..

[arkhamon]

Ben il me met :

La methode insert de la classe pictures a echoue...

[SfJ5Rpw8]

essai de mettre le chemin complet pour l'image...

[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...

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 ?

[arkhamon]

salut,
j'ai mis le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
zone := feuille.Range('a5').MergeArea;

me donne la meme erreur.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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