Re: Style changes by Helmut
Helmut
Mon Oct 15 08:45:22 PDT 2007
Hi Francis,
in case you don't follow the other thread on
inlineshapes and shapes anymore,
here is some more stuff to play with:
Sub Test006x7()
Dim oInl As InlineShape
Dim oShp As Shape
For Each oInl In ActiveDocument.InlineShapes
oInl.ConvertToShape
Next
For Each oShp In ActiveDocument.Shapes
' oshp.Top =
' oshp.left =
' oshp.Height =
oShp.WrapFormat.Type = wdWrapTight ' etc...
' explore the shape object
Next
End Sub
But this would place all shapes in the same position.
If there is more than one shape on a page,
you might have to select the page
and process the selection's shaperange,
which rises the question, how to loop
through all shapes on a page,
or better said, through all items in a shaperange.
A question, I can't answer here and now.
And I don't like to offer a workaround,
as long as I got a feeling, there must be a straightforward way.
--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"