Move object with text

[Francis Hookham]

Having many small screen shots to put into a Word document I prefer to let
the objects dictate where the text goes rather that the other way round. I
therefore have to un-tick 'Move object with text'.

I have tried to record a macro but 'greyed' commands prevent that.



Can you help please?



Francis Hookham

 

[Helmut Weber]

Hi Francis

Sub Test0067()
Dim oInl As InlineShape
For Each oInl In ActiveDocument.InlineShapes
oInl.ConvertToShape
Next
End Sub

In case you are using Word 2007, you might need:

Sub Test0067()
Dim n As Long
With ActiveDocument
For n = .InlineShapes.Count To 1 Step -1
.InlineShapes(n).ConvertToShape
Next
End With
End Sub

 

[Francis Hookham]

Wow - that was quick - thank you Helmut, I shall try that after the
weekend - just off for our annual walking weekend with Rotary friends.

Many thanks.

Francis in Cambridge, UK

 

[Francis Hookham]

I should not be doing this I should be packing but...

I could not resist a quick look and it is great. It would be even better if
I could include text wrapping but I do not know how to incorporate that into
the For...Next loop using the variable oInl.

Now I HAVE gone and will look again on Sunday night!

(It would be good to define the space at sides and top/bottom)

Thanks

Francis