Discussion :

[titiyo]

bonjours,
comment peut t'on faire pour creer une image dans excel et de chager un fichier jpeg ou bmp dans ce picture;
ps : j'arrive bien a créer , un classeur excel ,a insserer des données dans les cellules mais je n'arrive pas a inserer une image en haut a droit du classeur
merci d'avance

[delphichem]

Voici un .pas

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
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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ComObj,
  Dialogs, ExtDlgs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var VarExcel: variant;
begin
  if OpenPictureDialog1.Execute then
  begin
    VarExcel := createoleobject('Excel.application');
    VarExcel.workbooks.add;
    VarExcel.Range['A1'].Select; //Ici c'est l'emplacement.
    VarExcel.ActiveSheet.Pictures.Insert(OpenPictureDialog1.FileName).Select;
    VarExcel.visible := true;
  end;
end;
 
end.

et son Dfm

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
object Form1: TForm1
  Left = 193
  Top = 114
  Width = 142
  Height = 75
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Shell Dlg 2'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 8
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Ouvrir'
    TabOrder = 0
    OnClick = Button1Click
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Left = 96
    Top = 8
  end
end

Cordialement
DelpHichem

[titiyo]

mais la on passe par un dialogbox => on ne peut pas charger une image directement apres avoir crree une image , que je n'arrive pas a cree d'ailleur

ps:meci pour la reponse rapide

[titiyo]

putain je suis con , bien sur que si si je met mon fichier directement au lieu de la dialogbox.file je suis mou du cerveau
sinon est t'il possible de dimentionner l'image a la taille de 4 cellules
A1,A2 B1,B2 par exemple pour que l'image viennet ce coller a cette taille

[delphichem]

putain je suis con , bien sur que si si je met mon fichier directement au lieu de la dialogbox.file je suis mou du cerveau

Ne sois pas dur avec toi , disons que c’est du a la fatigue.

Pour ce qui est du redimensionnement de l’image, je te conseille de créer une image directement aux dimensions choisis au départ.

[titiyo]

j'ai essayer mais quand a la place du chemin je met :

Code :

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

Mafeuille.Pictures.Insert(image1.Picture.).Select;

il me dit que le type est non autoriser dans appel variant dispatch

[delphichem]

C'est normal car il attend une variable ou constante de type string et toi tu lui envois un type TPicture.
Il faut donnée le chemin de ton Image et non l'image elle même.

[titiyo]

je suis a la masse desole mais comment ca le chemin , si je met le chemin il vas me charger mon image comme elle est au debut non?

[delphichem]

Oui, ce n'est pas le but de ta question?

[titiyo]

attend j'ai eu un pb il ma creer un nouveau sujet au lieu de reponse
, je te disait qu'en faite suite a tes conseil je charge maintenant le fichier image qui est sur mon dur dans le classeur excel => mais l'image est trop grande donc tu ma consseiller de la mettre dans une timage pour utiliser le strch et de charger le timage dans le classeur excel => j'ai essayer en metant

Code :

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

Mafeuille.Pictures.Insert(image1.picture).Select;

mais il me met que le type est incompatible => puisque le c'est un string qu'il attent donc mon soucit c'est quest ce que je met a la place des ????

Code :

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

Mafeuille.Pictures.Insert(image1.??????).Select;

je suis a la masse aujourd'hui et je suis desoler de te prendre du temp
merci encore de ton aide

[delphichem]

Non je ne te conseille pas de mettre un TImage, je te conseille de crée une image ou de redimensionner le tienne en utilisant un logiciel spécialisé comme Paint.net ou autre.

J'ai du mal m'exprimé, je suis désolé.

[titiyo]

ok d'accord je vait cree cette image merci de ton aide