msoffice/vb-script

[Dummy]

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"