select all inline shapes

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

JethroUK© - 06 Sep 2005 19:41 GMT

is it possible to select all inlineshapes at once - or do i have to iterate
through the collection

Reply to this Message

Helmut Weber - 06 Sep 2005 19:49 GMT

Hi Jethro,

>is it possible to select all inlineshapes at once

> - or do i have to iterate through the collection

Yes

So far, IMHO, there is no "at once" at all.
Always one after the other. Unless you got
a billion processor system like in your head.

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Reply to this Message

Greg - 06 Sep 2005 19:51 GMT

I believe that you have to work each one separately. Something like:

Sub Test()
Dim oShape As InlineShape
For Each oShape In ActiveDocument.InlineShapes
oShape.Height = 100
oShape.Width = 100
Next oShape
End Sub

Reply to this Message