How do i iterate through picture collection?

[JethroUK©]

How do i iterate through picture collection in the Active Doc?

I've tried 'Shapes' collection, but it only seems to find some of the
pictures, but not all

 

[Howard Kaikow]

You have to also look at InLineShapes Collection.

 

[JethroUK©]

so if i look through shapes collection & inlineshapes collection i'll cover
them all - thanx

 

[JethroUK©]

this errors on the very first picture it finds - can you see what's wrong
with it?:

With ActiveDocument
If .Shapes.Count > 0 Then
With .Shapes
For x = 1 To .Count
.Item(x).Select
Selection.Cut
Selection.PasteAndFormat (wdPasteDefault) <<<<<<<<<<<
error here (on item 1)
Next
End With
End If
If .InlineShapes.Count > 0 Then
With .InlineShapes
For x = 1 To .Count
.Item(x).Select
Selection.Cut
Selection.PasteAndFormat (wdPasteDefault)
Next
End With
End If
End With

 

[Howard Kaikow]

http://www.standards.com/; See Howard Kaikow's web site.

this errors on the very first picture it finds - can you see what's wrong
with it?:

I do such analysis for paying clients.

See http://www.standards.com/index.html?HowardKaikowServices.