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