Select all images and change text wrapping

[lukepw]

Hello,

In either Word 2003, 2007, I would like to create a macro which finds every
image and assign it an in-line with text wrapping. I can create the macro
which finds all of the images but I am unable to change the wrapping since
the option is greyed out...
Any help is greatly appreciated.

Thanks.

Luke

 

[Graham Mayor]

An image inserted in line behaves exactly like a large font character.
Wrapping does not apply.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[lukepw]

thanks Graham:

My document contains images that are in-line and others which are not. I
would like to be able to change all the images "not in-line" to "in-line". Is
that possible?

thanks,

L.

 

[Jay Freedman]

You can use this macro (see Graham's page at
http://www.gmayor.com/installing_macro.htm if needed):

Sub InlineAllPics()
Dim oShp As Shape
Dim i As Integer
With ActiveDocument.Shapes
For i = .Count To 1 Step -1
Set oShp = .Item(i)
oShp.ConvertToInlineShape
Next
End With
End Sub

There's no guarantee that the in-line pictures will appear in the same
location or order as the floating ones; that depends on where their
anchors were.
--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.

 

[lukepw]

Thanks for your help. I will try that.

You can use this macro (see Graham's page at
http://www.gmayor.com/installing_macro.htm if needed):

Sub InlineAllPics()
Dim oShp As Shape
Dim i As Integer
With ActiveDocument.Shapes
For i = .Count To 1 Step -1
Set oShp = .Item(i)
oShp.ConvertToInlineShape
Next
End With
End Sub

There's no guarantee that the in-line pictures will appear in the same
location or order as the floating ones; that depends on where their
anchors were.
--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.