Discussion :

[THOMAS Patrice]

Bonjour,

est il possible de rajouter une image dans une cellule avec les fonctions XLS de windev?

Patrice

[frenchsting]

Tu n'as pas mis ta version de wd, mais au moins jusqu'au 12, ce n'était pas possible avec ces fonctions XLS.

Il faut passer par l'activeX. (regarde l'exemple pilotage de excel)

[THOMAS Patrice]

Apparemment ce n'est pas possible, car l'exemple de pilotage excel utilise OLE pour le faire

Patrice

[frenchsting]

Il faudrait que tu utilises l'activex de Excel. L'inconvénient est que excel doit être installé sur la machine (donc acheter une licence).

[jurassic pork]

bonjour,

si tu as excel sur ta machine, voici un code qui insère une image dans une cellule Excel, que j'avais posté sur le forum de PCSOFT (en utilisant OLE) :

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
// J.P   
xl est un objet OLE dynamique
xl = allouer un objet OLE "Excel.Application"
// on définit des variables Objet Automation dynamique pour lisibilité du code
MaCellule est un objet Automation dynamique
MonImage est un objet Automation dynamique
 
xl>>Visible=Vrai // Excel apparait à l'écran
xl>>WorkBooks>>Open("f:\montest.xls")  // on ouvre le classeur 
// on sélectionne sa cellule
MaCellule = xl>>activeSheet>>Range("D8")
// on insère une image
xl>>activeSheet>>Pictures>>Insert("f:\juju.gif")>>Select()
MonImage = xl>>Selection>>ShapeRange
MonImage>>LockAspectRatio = 0 // -1 aspect proportionnel , 0 non proportionnel
// on positionne l'image sur le bord haut gauche de la cellule
MonImage>>Left=MaCellule>>Left
MonImage>>Top=MaCellule>>Top
// on adapte la dimension de l'image à la taille de la cellule
MonImage>>Height=MaCellule>>Height
MonImage>>Width=MaCellule>>Width 
xl>>ActiveWorkBook>>Save()  //on sauve le classeur
xl>>quit() // on quitte excel
libérer(xl)

Ami calmant, J.P

[THOMAS Patrice]

Merci SpielBerg et à Lagaffe