Insertion d'une image OleExcel

Version imprimable

Suite a une demande de ptit fab
Voici comment inserer une image dans Excel

Code:

1
2
3
4
5
 
    Variant vFileName;
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\Mes images\\Images_OpenOffice\\Image2.jpg";
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",1);
vXLWorkbook.OlePropertyGet("ActiveSheet").OlePropertyGet("Pictures").OleFunction("Insert", vFileName);

26/04/2007, 09h16
Pendary

Merci pour le code :)
26/04/2007, 09h18
blondelle

Salut Pendary:
C'est juste pour le chargement de l'image il est toujours possible d'ameliorer.
26/04/2007, 11h37
Pendary

bien sur quil ya toujours une possibilité d'améliorer ;)

mais ce code pourra certainement servir comme base de départ ;)

cependant j'ai une petite question, sais tu si il est possible de stocker une image dans une cellule particulière d'une feuille ?

j'ai testé de le faire à la main sous excel mais je n'ai pas réussi
26/04/2007, 12h17
blondelle

Salut Pendary:
Je n'en ai jamais eut besoin mais pour savoir si c'est possible on peu toujours demander sur le Forun Excel du site, c'est ce que je fais quand je n'arrive pas ou ne comprend pas quelque chose en plus les modos sont tres competents :mrgreen:

Voici comment inserer une image en imposant ses dimensions.

Code:

1
2
3
4
5
 
    Variant vFileName;
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\Mes images\\Images_OpenOffice\\Image2.jpg";
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",1);
vWorksheet.OlePropertyGet("Shapes").OleFunction("AddPicture", vFileName, false, true, 100, 100, 70, 70);

Voici comment inserer une image en haut a gauche d'une cellule:

Code:

1
2
3
4
5
6
7
 
    Variant vFileName, vobjPict;
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\Mes images\\Images_OpenOffice\\Image2.jpg";
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",1);
vobjPict = vWorksheet.OlePropertyGet("Pictures").OleFunction("Insert", vFileName);
vobjPict.OlePropertySet("Left", vWorksheet.OlePropertyGet("Range", "G2").OlePropertyGet("Left"));
vobjPict.OlePropertySet("Top", vWorksheet.OlePropertyGet("Range", "G2").OlePropertyGet("Top"));

Voici comment inserer une image en haut a gauche d'une cellule, en imposant ses dimensions:

Code:

1
2
3
4
5
6
7
 
    Variant vFileName, vobjPict;
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\Mes images\\Images_OpenOffice\\Image2.jpg";
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",1);
vobjPict = vWorksheet.OlePropertyGet("Shapes").OleFunction("AddPicture", vFileName, false, true, 100, 100, 70, 70);
vobjPict.OlePropertySet("Left", vWorksheet.OlePropertyGet("Range", "G2").OlePropertyGet("Left"));
vobjPict.OlePropertySet("Top", vWorksheet.OlePropertyGet("Range", "G2").OlePropertyGet("Top"));

Ce n'est pas vraiment une insertion dans une cellule mais on s'en rapproche :yaisse2:

Voici comment inserer une image en haut a gauche d'une cellule, en imposant ses dimensions par rapport aux dimensions de la cellule

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
    Variant vFileName, vobjPict;
// on se positionne sur la cellule G2
vWorksheet.OlePropertyGet("Cells", 2, 7).OleFunction("Select");
float HtCellule = vMSExcel.OlePropertyGet("Selection").OlePropertyGet("RowHeight");
float LarCellule = vMSExcel.OlePropertyGet("Selection").OlePropertyGet("ColumnWidth");
 
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\Mes images\\Images_OpenOffice\\Image2.jpg";
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",1);
vobjPict = vWorksheet.OlePropertyGet("Shapes").OleFunction("AddPicture", vFileName, false, true, 0, 0, HtCellule, LarCellule);
vobjPict.OlePropertySet("Left", vWorksheet.OlePropertyGet("Range", "G2").OlePropertyGet("Left"));
vobjPict.OlePropertySet("Top", vWorksheet.OlePropertyGet("Range", "G2").OlePropertyGet("Top"));

26/04/2007, 18h05
Pendary

Merci pour tout c'est code :) ca va surement mettre utile dans le futur :)

je vais t'expliquer pourquoi je voulais insérer une image dans une cellule, c'est pour tout simplement la recupérer en recupérant le contenu de la cellule :)

parceque dans une de mes applis je me sert d'excel comme d'une base de données, et pour le moment, je stocke simplement le lien de l'image, et je copie l'image où je souhaite la retrouver :)

donc je me demandais si il était possible de stocker directement l'image, comme ça je ne m'embeterai plus à chercher l'image dans un repertoire :) quoiqu'en y réflechissant c'est p-e plus pratique d'avoir l'emplacement de l'image, comme ca on est pas obligé d'utiliser excel constamment :?

enfin il faut que je refléchisse lol
26/04/2007, 19h30
blondelle

Apres avoir parcourue la FAQ Excel il semble qu'il ne soit pas possible de charger une image dans une cellule, par contre ils utilisent un composant Excel ImageList il y a un composant de meme nom en BCB, il faudrait peu etre regarder de ce cote