Yup, I'm using the new model only. I don't know about the old model but the new document is like this: Shape/InlineShape -> OleFormat property -> Object property The OLEFormat property is supposed to be used when the shape is an OLE object. So in case of images I access the image through Shape.OLEFormat.object. But it doesn't seem to work when the object is an audio/video file. Thanks anyway, Smriti

I have a MS Word document and I'm iterating through every Shape/Inline shape in it (I'm using VB .NET). And I want to save each of these shapes into a separate file. If its an image/drawing/diagram then in a GIF file, if its an audio then MP3/WAV/MIDI file and so on. However I'm having problems with embedded OLE objects. I have a MP3 and a RAM file embedded in the document. But I can't seem to find any way to get a handle to these objects or the link to these files. I tried OLEFormat.object but I get an "No such interface supported" error. Smriti

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.

I'm trying to save a MS Word shape of the type msoDiagram into a separate file and to this end I thought if I could convert the diagram into an image , then I could easily save the image into a file. However I'm unable to figure out a way to convert the diagram into an image - anybody has any idea ? Smriti

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