I took this code from one of your examples and got the error: “Type :Shape” is not defined.
???
Dim doc As Document = New Document("c:\" & "Image.SampleImages.doc")
Dim shapes As NodeCollection = doc.GetChildNodes(NodeType.Shape, True, False)
Dim imageIndex As Integer = 0
For Each shape As Shape In shapes
If shape.HasImage Then
Dim imageFileName As String = String.Format("Image.ExportImages.{0} Out.{1}", imageIndex, shape.ImageData.ImageType)
shape.ImageData.Save(MyDir & imageFileName)
imageIndex += 1
End If
Next shape