Object automatically resizes itself

C

C Hoens

I have an object I've placed into a Word 2003 document
from Excel. The object though continually resizes itself
each time it is refreshed from Excel. I've tried
adjusting the object in Excel, but nothing seems to work.
Can anyone help me?
 
M

macropod

Hi,

One way to overcome/deal with this is to use a macro to do the refreshing.
As part of that process, you can then force Word to re-set the object to the
size you want.

The following macro finds every object in the document and scales them to
70% of the original size and positions then top-centre on the page. Adjust
the parameters to suit your needs.

Sub Reformat ()
On Error Resume Next
For i = 1 To Objects.Count
ActiveDocument.Shapes(i).Select
With Selection.ShapeRange
.ScaleHeight 0.7, True
.ScaleWidth 0.7, True
.RelativeHorizontalPosition =
wdRelativeHorizontalPositionMargin
.Left = wdShapeCenter
.RelativeVerticalPosition =
wdRelativeVerticalPositionParagraph
.Top = CentimetersToPoints(0)
End With
Next i
MsgBox "Finished Reformatting."
End Sub

Cheers
 
Top