Hi,
I have a Word document and have many many pasted objects.  I selected an
Excel range then went back into Word and Paste special >link>Excel Worksheet
object.  
I have recorded a macro that basically centers it, and sets the absolute
position.  Howver, when I change the height and width of the Excel object the
macro doesn't record what I picked for values.  It has a bunch of other
settings but on the one that will resize the table to 6" by 7".  How do I
insert whatever into the macro so it will resize it???
This is the macro:

Sub Align_Center()
'
   Selection.ShapeRange.Fill.Visible = msoFalse
   Selection.ShapeRange.Fill.Solid
   Selection.ShapeRange.Fill.Transparency = 0#
   Selection.ShapeRange.Line.Weight = 0.75
   Selection.ShapeRange.Line.DashStyle = msoLineSolid
   Selection.ShapeRange.Line.Style = msoLineSingle
   Selection.ShapeRange.Line.Transparency = 0#
   Selection.ShapeRange.Line.Visible = msoTrue
   Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
   Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
   Selection.ShapeRange.LockAspectRatio = msoFalse
   Selection.ShapeRange.Left = 54#
   Selection.ShapeRange.Top = 187.2
   Selection.ShapeRange.RelativeHorizontalPosition = _
       wdRelativeHorizontalPositionColumn
   Selection.ShapeRange.RelativeVerticalPosition = _
       wdRelativeVerticalPositionPage
   Selection.ShapeRange.Left = wdShapeCenter
   Selection.ShapeRange.Top = InchesToPoints(2.6)
   Selection.ShapeRange.LockAnchor = False
   Selection.ShapeRange.WrapFormat.AllowOverlap = True
   Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
   Selection.ShapeRange.WrapFormat.DistanceTop = InchesToPoints(0)
   Selection.ShapeRange.WrapFormat.DistanceBottom = InchesToPoints(0)
   Selection.ShapeRange.WrapFormat.DistanceLeft = InchesToPoints(0.13)
   Selection.ShapeRange.WrapFormat.DistanceRight = InchesToPoints(0.13)
   Selection.ShapeRange.WrapFormat.Type = wdWrapTopBottom
       
End Sub

Many thanks,