How to get total count of pictures for a macro?

[Ryan Dunn]

I need to write a macro that will operate on all the pictures in a document.
I've had trouble finding an answer on the internet. I did find how to get
the total table count, which I needed also:
ActiveDocument.Tables.Count
but there doesn't seem to be anything like that for Figures/Graphics/Pictures.

Anyone have any ideas?

Thanks,
Ryan

 

[macropod]

Hi Ryan,

Graphics and OLE objects are 'Shapes', of which there are two kinds - Floating
& Inline. You can test for both via something like:

Sub Test()
With ActiveDocument
MsgBox "Floating Shapes: " & .Shapes.Count & _
vbCrLf & " Inline Shapes: " & .InlineShapes.Count
End With
End Sub

Cheers

--
macropod
[MVP - Microsoft Word]


| I need to write a macro that will operate on all the pictures in a document.
| I've had trouble finding an answer on the internet. I did find how to get
| the total table count, which I needed also:
| ActiveDocument.Tables.Count
| but there doesn't seem to be anything like that for
Figures/Graphics/Pictures.
|
| Anyone have any ideas?
|
| Thanks,
| Ryan

 

[Jezebel]

Bear in mind that the Shapes collection can include a lot of things that
aren't graphics (like textboxes). If you just want graphics you need to
iterate the collection and check the Type property of each.