Insertion image JPG TExcelApplication

Version imprimable

15/04/2009, 09h08
asenaici

Insertion image JPG TExcelApplication

Bonjour,

J'essaie tant bien que mal d'insérer des images dans une cellule d'un fichier excel mais je n'arrive pas à utiliser le composant TExcelApplication.
A partir d'une image JPG sur le disque dur, je souhaiterai l'insérer dans une cellule avec cadrage dans la cellule.

Ca fait 1 semaine que j'essaie en vain.
Quelqu'un pourrait-il m'aider ?

J'utilise CodeGear 2007 et Microsoft Office excel 2007

Merci d'avance :-)
21/12/2016, 17h24
fredfred

Déterrage !

Bonjour,

Je remets ce sujet à l'ordre du jour, car j'ai la même problématique.

D7 + TExcelApplication, et pas moyen de trouver une syntaxe fonctionnelle pour insérer un fichier JPG dans une cellule Excel.

Quelqu'un a t'il une solution ?

Merci

Tu peux utiliser le ActiveSheet.Pictures.Insert ou ActiveSheet.Shapes.AddPicture.

Il existe aussi la solution du "copier-coller".

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TFormExcel.AddPictureToMyCell;
var
  Bitmap: TBitmap;
  Excel: TExcelApplication;
  Worksheet: TExcelWorksheet;
begin
  Bitmap:= TBitmap.Create;
  try
    Bitmap.LoadFromFile('c:\test.bmp');
    Clipboard.Assign(Bitmap);
    Excel:= TExcelApplication.Create(self);
    Worksheet:= Excel.Worksheets[0];
    Worksheet.Range['a1','a1'].Select;
    Worksheet.Paste;
  finally
    Bitmap.Free;
  end;
end;

Merci pour la réponse rapide.

Alors, j'ai essayé tes différentes syntaxes :
Avec SheetSource.Pictures.Insert, j'ai une erreur "pas assez de paramètres originaux".
Avec le coup du clipboard, la ligne Worksheet.Paste me dit aussi "pas assez de paramètres originaux".

J'ai finalement trouvé une syntaxe qui fonctionne avec Shapes.AddPicture.

du coup, voici ma procédure d'insertion complète, si ça peut aider d'autres dévs
C'est une procédure interne, certains paramètres comme le n° de ligne, le chemin ou le nom de l'image sont définis dans la procédure mère, mais ça doit être compréhensible.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
procedure Ajout_Vignette(PCol :integer);
    var
       vMSLeft, vMSTop, vMSWidth, vMSHeight :integer;
       Pict  :TPicture;
    begin
        // Ajout des vignettes
        Fic_Vign := Rep_Vignette.Text + '\' +Code_Art + '.jpg';
 
        if FileExists(Fic_Vign) then
        begin
 
          Pict := TPicture.Create;
          try
            // Récupère les dimensions de l'image
            Pict.LoadFromFile(Fic_Vign);
 
            // Redimensionne proportionellement l'image
            vMSHeight:=Round(Max_Height.Value);
            vMSWidth := Round(Pict.Width * (vMSHeight / Pict.Height));
          finally
            if Assigned(Pict) then
              Pict.Free;
          end;
 
          // Position de l'image par rapport à la cellule
          vMSLeft:=SheetSource.cells.item[ligne, PCol].Left + 3;
          vMSTop:=SheetSource.cells.item[ligne, PCol].top + 3;
 
          // Ajout des images avec insertion dans le fichier xls final
          SheetSource.Shapes.AddPicture(Fic_Vign, msoFalse, msoTrue, vMSLeft, vMSTop, vMSWidth, vMSHeight);    // uses officexp
 
          // Agrandi la hauteur de ligne en fonction de l'image
          SheetSource.cells.item[ligne, PCol].EntireRow.RowHeight:=vMSHeight + 6;
 
        end;
    end;

Bonjour,

sinon pour copier un jpeg en passant par le presse papier dans une cellule donné, tu peux faire cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
// avec uses :  Variants, Graphics, ComObj, jpeg
 
procedure TF_Princ.Button1Click(Sender: TObject);
var
  Bitmap: TBitmap;
  Picture: TPicture;   // Pour charger un Jpeg
  vMSExcel : variant;
  vXLWorkbook, vXLWorkbooks : variant; // Classeur
  aFeuille : AnsiString; // nom de la Feuille
  vWorksheet : variant; // Feuille
begin
  // Chargement du Jpeg dans le presse papier
  Bitmap:= TBitmap.Create;
  try
    Picture := TPicture.Create;
    try
      Picture.LoadFromFile('D:\DESSIN\Charly.jpg');
      Bitmap.Width := Picture.Width;
      Bitmap.Height := Picture.Height;
      Bitmap.Canvas.Draw(0, 0, Picture.Graphic);
      Clipboard.Assign(Bitmap);
    finally
      Picture.Free;
    End ;
  finally
    Bitmap.Free;
  end;
// On test si excel est présent
  if ApplicationInstalled('Excel.Application',HKEY_CLASSES_ROOT) then
     Begin
     // Ouverture Excel
       vMSExcel := CreateOleObject('Excel.Application');
       vMSExcel.Visible := False;
     // Création d'un nouveau classeur
       vXLWorkbooks := vMSExcel.Workbooks;
       vXLWorkbook := vXLWorkbooks.Add;
     // 1ère feuille de calcul du classeur
       aFeuille := 'Feuil1';
       vWorksheet := vXLWorkbook.WorkSheets[aFeuille];
       vWorksheet.Range['a1','a1'].Select;
       // Copie de l'image
       vWorksheet.Paste;
       vMSExcel.Visible := true;
       vMSExcel := unassigned;
     End
  else
     Begin
       MessageDlg('Excel n''est pas installé sur ce poste.', mtError, [mbOk], 0);
     end;
  End ;

A+
Charly