Написал макрос. В макросе необходимо достучаться до ActiveX объекта.
Делаю так
MsgBox ActiveDocument.Shapes("ActiveXXX").OLEFormat.Object.Text
т.е. у ActiveX объекта есть св-во Text, оно то мне и надо.
Но макрос выдает ошибку, что нет такого объекта (он есть), по индексу тоже не работает:
MsgBox ActiveDocument.Shapes(1).OLEFormat.Object.Text
св-во Count
MsgBox ActiveDocument.Shapes.Count
дает ноль, хотя ActiveX есть на документе.
====
но если ActiveX предварительно создать в макросе, т.е.
Set myAx = ActiveDocument.Shapes.AddOLEControl(Anchor:=Selection.Range, _
ClassType:="ActiveCtrl.XXX.1")
то все что я привел выше работает, т.е. с помощью этого кода:
MsgBox ActiveDocument.Shapes("ActiveXXX").OLEFormat.Object.Text
я нормально получаю доступ к ActiveX.
Как же все-таки получить из макроса доступ к ActiveX?