msoffice/vb-script

I've made a macro in msword that inserts a image into the document but i don't know how to change the properties of the ole-object
this is what i did


If Selection.StoryType <> wdMainTextStory then
Selection.HeaderFooter.Shapes.AddOLEControl Anchor:=Selection.Range, _
ClassType:="Forms.Image.1"
else
ActiveDocument.Shapes.AddOLEControl Anchor:=Selection.Range, _
ClassType:="Forms.Image.1"

try this sample:

'Set Calc = ActiveDocument.Shapes.AddOLEControl(ClassType:="Forms.CommandButton.1")
'With Calc.OLEFormat.Object
' .Caption = "Calculator"
' .Top = 0
' .Left = 184
' .Events = PhoneCalculator.Show
'End With

it's added a CommandButton as OLE object with proger's defined properties

good luck, ToXa