Discussion :

[blondelle]

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

Code :

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

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);

[Pendary]

Merci pour le code

[blondelle]

Salut Pendary:
C'est juste pour le chargement de l'image il est toujours possible d'ameliorer.

[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

[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

[blondelle]

Voici comment inserer une image en imposant ses dimensions.

Code :

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

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);

[blondelle]

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

Code :

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

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"));

[blondelle]

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

Code :

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

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

[blondelle]

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

Code :

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

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"));

:

[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

[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