Accessing Object property of OLEFormat

[smritiy]

I'm trying to save the OLE objects in a MSWord document in separate files. So I want to iterate through each shape , access its OLE object, convert it into an image and save the image to a file. However when I try to access the shape.OLEFormat.object it gives me a run-time error saying "No such interface supported". Here's a snippet of the code: dim myrange as range dim oShape as word.shape dim chart as graph.chart myrange = doc.paragraphs(1).range for i = 1 to myrange.shaperange.count oShape = myrange.shaperange(i) select case oShape.type case msoShapeType.msoEmbeddedOLEObject chart = Ctype(oShape.OLEFormat.object,graph.chart) case else ... end select next Can anybody tell me where I'm going wrong ?? Smriti

[Dave Kreskowiak]

Yeah, the OLEFormat.object is not convertable to a Graph.Chart object. You must use the methods on the OLEFormat object to manipulate it. RageInTheMachine9532 "...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

[smritiy]

Actually all I had to do was invoke OLEFormat.edit() and then access the object property to cast it into a chart object. shape.OLEFormat.edit() Graph.chart chart = shape.OLEFormat.object And this works. Thanks anyway.