Format picture with macro

[LDMueller]

Hello:

We have Windows 2000 SP3 and MS Word 2000.

I am trying to build a macro to select, then format a
picture in my document, making the Layout "Behind text",
and under Advanced Layout, putting a check next to "Lock
anchor and Allow overlap" and uncheck "Move object with
text". This is on the Picture Position tab.

Unfortunately, when I click on the picture once I start
recording the macro, I can't access it to make any changes.

How do enter the code for that please?

 

[Cindy M -WordMVP-]

Hi LDMueller,

We have Windows 2000 SP3 and MS Word 2000.

I am trying to build a macro to select, then format a
picture in my document, making the Layout "Behind text",
and under Advanced Layout, putting a check next to "Lock
anchor and Allow overlap" and uncheck "Move object with
text". This is on the Picture Position tab.

Unfortunately, when I click on the picture once I start
recording the macro, I can't access it to make any changes.

See if this works in a Sub (macro)

Dim shp As Word.Shape

Set shp = Selection.ShapeRange(1)
With shp
.RelativeHorizontalPosition _
= wdRelativeHorizontalPositionPage
.RelativeVerticalPosition _
= wdRelativeVerticalPositionPage
.LockAnchor = True
.WrapFormat.Type = wdWrapNone
.ZOrder msoSendBehindText
End With



Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun
8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow
question or reply in the newsgroup and not by e-mail