Question : Vieux emballage d'objet de VBA

Bonjour, le

I AM essayant d'envelopper un VIEUX objet dans un
Unfortunately, il de classe (telle que moi peux ajouter mes propres événements etc.) semble fonctionner seulement si le VIEUX objet est manuellement created.

If qu'il est créé dans ma classe ou même dans le macro qui emploient l'objet, il sort de la portée à la fin du macro et induit l'arrêt de mon objet de emballage, même si mon objet est des expositions suivantes globales de variable.

The ce point : le module du

class a appelé Obj : le p_oleCtl du

Private en tant que le p_oleCtl = oleCtl
End Property
Property du
d'OLEObject
Property ActiveXControl (oleCtl de ByVal comme OLEObject) obtiennent ActiveXControl () pendant qu'OLEObject
module secondaire réglé du
Regular du
End Sub
de « extrémité " du
MsgBox d'ActiveXControl = de p_oleCtl
End Property
Private Class_Terminate () :
/>Dim GlobalObj comme
Call ActiveSheet.OLEObjects.Add (ClassType d'Obj
Sub CreateButton () : =
Set GlobalObj du
Call CreateButton d'essai du
End Sub

Sub de " Forms.CommandButton.1 ») () = nouvel Obj
Set GlobalObj.ActiveXControl = ActiveSheet.OLEObjects (essai de 1)
End Sub

when est couru, le msgbox « extrémité » est displaid.
It n'est pas displaid si je cours CreateButton d'abord et examine ensuite (sans appel à CreateButton). le

Strangely, la même issue se produit même si le VIEUX objet enveloppé est un indice global de variable.

Any quant à pourquoi c'est comme celui et à la façon travailler autour de lui ?

Many Thanks
class= de

Réponse : Vieux emballage d'objet de VBA

En ajoutant un objet d'activex vous déclenchez effectivement une remise de code (parce qu'ils deviennent une partie du vbproject). Si vous devez vraiment faire ceci, je proposerais d'employer un macro d'OnTime pour assigner la variable après que vous l'ayez créée.