Вопрос : Оборачивать предмета VBA оле

Hi,

I am пытаясь обернуть ОЛЕ предмет в мои собственные случаи etc.)
Unfortunately типа (как я могу добавить, он кажется, что только работает если ОЛЕ предметом будет ручно created.

If, котор он создан в моем типе или даже в макросе которые используют предмет, оно идет из объема в конце макроса и наводит прекращение моего оборачивая предмета, то даже если моим предметом будет глобальные выставки variable.

The следуя за этот пункт: модуль

class вызвал Obj: p_oleCtl

Private как p_oleCtl
OLEObject
Property установленные ActiveXControl (oleCtl ByVal как OLEObject) установленные = oleCtl
End Property
Property получает ActiveXControl () по мере того как OLEObject
установленный модуль
Regular
End Sub
«конца "
MsgBox ActiveXControl = p_oleCtl
End Property
Private Sub Class_Terminate ():
Dim GlobalObj
как
Call ActiveSheet.OLEObjects.Add Obj
Sub CreateButton () (ClassType: = "
Set GlobalObj
Call CreateButton испытания
End Sub

Sub Forms.CommandButton.1») () = новое Obj
Set GlobalObj.ActiveXControl = ActiveSheet.OLEObjects (испытание 1)
End Sub

when, msgbox «концом» будет displaid.
It не будет displaid если я бегу CreateButton сперва и после этого испытываю, то (без звонока к CreateButton).

Strangely достаточно, такой же вопрос происходит даже если обернутым ОЛЕ предметом будет глобальный ключ variable.

Any о почему это как то и как работать вокруг его?

Many Thanks
class=

Ответ : Оборачивать предмета VBA оле

Путем добавлять предмет activex вы эффективно вызываете возврат Кодего (потому что они будут частью vbproject). Если вам реально нужно сделать это, то я предложил бы использовать макрос OnTime для того чтобы задать перемеююый после того как вы создадите ее.