Liaison Excel Delphi via Oleautomation

Bonjour,

j'ai créé une dll pour faire interagir mon programme avec excel via les interfaces.

Je crée un objet avec des propriétés dans mon code delphi. Dés lors dans ma macro j'ai accès à cet objet et aux différentes propriétés définies.

Cependant, j'ai décidé de rajouter une propriété contenant une image afin de récupérer cette image dans excel et de l'afficher dans mes menus.
J'ai donc eu le code suivant

Code:

---

property IcoPict: IPictureDisp read Get_IcoPict write Set_IcoPict;

---

avec

Code:

---

1 2 3 4 5 6 7 8 9

function TMyObject.Get_IcoPict: IPictureDisp; var Icone: TIcon; begin Icone := TIcon.Create; Icone.Handle := LoadIcon(HInstance, 'MAINICON'); result := Tpicture(Icone) as IPictureDisp; icone.free; end;

---

cependant lorsque j'appelle dans ma macro

Code:

---

myobject.IcoPict

---

cela ne fonctionne pas. Il me dit que l'interface n'est pas supporté.

Quelqu'un aurait-il une idée?

Merci d'avance

As-tu fais un register de l'objet via RegSvr32 ?
Test avec un client Delphi pour débugger plus facilement !
As-tu fais un CreateObject avant ?

merci pour ta réponse malheureusement j'avais déjà essayé tes suggestions.
J'ai fait un regsvr32 pour être sûr qu'il prend la bonne dll.
Je travaille déjà sous un client delphi et mon objet existe.

TIcon, c'est bien la classe définie dans Graphics.pas.

Depuis quand est-ce que TIcon implémente l'interface IPictureDisp ?

Il ne suffit pas de faire un cast pour que la classe implémente IPictureDisp (d'ailleurs TPicture ne l'implémente pas non plus !).

Ca ne marchera jamais de cette façon.

Il me semble que la méthode préconisée par Microsoft lorsqu'on écrit une extension COM pour Office, c'est de passer par le presse-papier (je sais c'est un peu dégueux, mais ça marche).

Dans l'objet COM, tu charges ton image et tu la copie dans le press-papier.

Puis dans Excel, tu définis l'image du menu avec PasteFace().

merci beaucoup, je vais essayer cela.

Encore une question : quelle classe implémente l'interface IPictureDisp ?

bien à vous.

A ma connaissance, aucune classe Delphi.

Cette interface est déclarée dans ActiveX. Elle a sans doute été définie par Microsoft pour permettre aux appli VB de manipuler des images provenant d'objets COM ou de serveur OLE.

En revanche, tu dois pouvoir l'implémenter toi-même dans une classe dérivée d'un TAutoObject, qui aggrègerait un TBitmap par exemple...

merci.

Bonne journée.