Discussion :

[jstauffer]

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 :

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

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.

[jstauffer]

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 :

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

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

[jstauffer]

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 :

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

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

Il faut ne pas oublier de bien faire

Code :

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

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

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

Voilà, bonne journée à tous.

[Lung]

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

[jstauffer]

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 :

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

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 :

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

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

Pour plus d'info reportez-vous à VB.

A bientôt.