[D6] Comment insérer une image dans Excel ?

Bonjour,

j'utilise un TExcelApplication pour insérer des données dans un fichier Excel existant, le sauver et l'ouvrir, ce qui fonctionne très bien.
Par contre ce que je voudrais faire, c'est insérer une image dans ma feuille.

Voici le code utilisé :

Code:

---

1 2 3 4 5 6 7

MonClasseur1:=ExcelApplication1.Workbooks.Open(NomFichierSource,False,False, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);   ExcelApplication1.Visible[0]:=False;   MaFeuille:=MonClasseur1.Worksheets[1] as _worksheet;

---

Merci d'avance de votre aide.

Bon, n'ayant visiblement pas de solution avec le composant TExcelApplication, je me suis rabattu sur un lien OLE pour insérer mon image dans mon fichier Excel.

Voici le code utilisé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Var vMSExcel,vXLWorkbook,vWorksheet : Variant; begin try vMSExcel:=GetActiveOleObject('Excel.Application'); except vMSExcel:=CreateOleObject('Excel.Application'); end;   vXLWorkbook:=vMSExcel.Workbooks.Open('C:\Fichier_Excel.xls'); vWorksheet:=vXLWorkbook.WorkSheets[1];   vWorksheet.Pictures.Insert('C:\image1.jpg').Select; vMSExcel.visible := true; end;

---

Par contre je voudrais pouvoir positionner mon image ainsi que la dimensionner.
Est-ce que quelqu'un saurait comment faire ?

Merci d'avance

Je sais, je fait les questions et les réponses, mais je vous livre, si ça peut intéresser quelqu'un, la solution au problème posé :

Code:

---

1 2	vMSExcel.Selection.Top:=1; vMSExcel.Selection.Height:=350;

---

Il faut ne pas oublier de bien faire

Code:

---

vWorksheet.Pictures.Insert('C:\image1.jpg').Select;

---

ça permet d'avoir l'image en sélection dans Excel.

Voilà, bonne journée à tous.

Merci pour la solution.
Ca peut toujours servir ...

;)

Pour info et surtout pour clore le chapitre:

Dans le précédent post, j'ai indiqué comment redimensionner une image, mais la redimension de la hauteur va automatiquement faire une redimension proportionnelle de la largeur.
Donc si vous voulez avoir entièrement la main sur la taille de l'image mettez :

Code:

---

vWorksheet.Shapes.AddPicture('C:\Image.jpg', False, True, vMSLeft, vMSTop, vMSWidth, vMSHeight);

---

Pramètres : AddPicture(ImageFile, LinkToFile, SaveWithDocument, Left, Top, Width, Height)

à la place de :

Code:

---

vWorksheet.Pictures.Insert('C:\image1.jpg').Select;

---

Pour plus d'info reportez-vous à VB.

A bientôt.