In Line Wrapping with macro (2003)

[billy8b8]

I am trying to write a macro that formats pictures with In Line wrapping style. When I try to record a macro, the In Line option is always grayed out in the Format Pictures dialogue box.

I have been experimenting with macros, but without success. I am basing them on this:

application.options.PictureWrapType = wdWrapMergeInline

or

Selection.ShapeRange.WrapFormat.Type = wdWrapMergeInline

Any suggestions?

We get documents with lots of pictures. Could a macro do this in a loop?

Could a macro also do the same with Microsoft objects like graphs from Excel?

Thanks for your help!

Cheers, Bill

[StuartR]

You want something like this...
<code>
Sub ShapesToInline()
Dim shp As Shape

For Each shp In ActiveDocument.Shapes
If shp.Type = msoPicture Then
shp.ConvertToInlineShape
End If
Next shp

End Sub
</code>

StuartR

[billy8b8]

Hey Stuart,

It works like a charm!

It will take me a lot more study to get to the point where I can figure something like this out myself.

Thanks a million!

Cheers, Bill