How to rotate image -1 degree in MS Word 2003 ?

[Mel_3]

How can we rotate an image -1 degree in MS Word 2003?

We have 350 to do... each on a separate page in a 350 page book.

We have only found rotate by 90 degrees... other than the "Free
Rotate" icon... which stays grayed out no matter what we do.

Thanks for any help.

 

[Jay Freedman]

If all of those images are "floating" -- that is, NOT "in line with
text" -- then this macro will rotate each one by one degree
couterclockwise:

Sub RotatePicturesMinusOneDegree()
Dim pic As Shape
For Each pic In ActiveDocument.Range.ShapeRange
pic.Rotation = 359#
Next
End Sub

If any or all of the images are in line with text, they can't be
rotated by any amount other than 90 degrees unless you change their
text wrapping to something else. The fact that the free rotation is
grayed out suggests that they are in-line. Unfortunately, changing the
text wrapping of an image usually causes its position and the text
layout around it to change drastically, so you shouldn't try to just
change them wholesale.

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.

 

[Mel_3]

Jay, Thanks for the help.

This is a book with one image on each page. Nothing else... just the
one image.

So what do we change to make them "floating" or whatever?

Thanks again for the help.

 

[Jay Freedman]

If they're all in line, this version *should* work:

Sub InlineToSquare()
Dim idx As Long
Dim ils As InlineShape
Dim shp As Shape
For idx = ActiveDocument.InlineShapes.Count To 1 Step -1
Set ils = ActiveDocument.InlineShapes(idx)
Set shp = ils.ConvertToShape
shp.WrapFormat.Type = wdWrapSquare
shp.Rotation = 359#
Next
End Sub

Unfortunately, when I run it, I get an error saying that the
ConvertToShape method failed. From Google I'm finding a lot of posts
saying that people got the error, but absolutely nothing about how to
fix it or work around it.

If the macro works for you, that's great, and good luck. If you get
the same error, you're left to go through the document's pictures one
by one, clicking the image to select it and clicking the Text Wrapping
button on the Picture toolbar and choosing Square. After that tedious
job is complete, you can run the first macro I posted.

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.

 

[Mel_3]

Thanks again Jay.

We don't mind manually importing each image... we just didn't know how
to manually tell Word to rotate it minus 1 degree.

I'll give the macro a try but my guess is if we have any problem we'll
just blast through it manually and get it done.