the shape has
Top
Left
Height
Width

properties. You will have to calculate the adjustments you need to Top and
Left based on the changes you made to Height and Width

--
Regards,
Tom Ogilvy

"Linking to specific cells in pivot table"
crosoft.com wrote in
message ...
Hi,

I have a macro set up to re-size a Shape (or Autoshape -- it's a
trapezoid)
based on values input into a cell on the spreadsheet. The problem is that
it
looks like the macro is simply extending one side of the Shape rather than
all sides of the shape equally, resulting in the object no longer being
centered over the same point in the spreadsheet it was originally centered
over. I need to find a way to have the Shape remain centered over the
same
point in the spreadsheet after being re-sized.

Below is the code I have for the re-sizing -- any help is greatly
appreciated!

ActiveSheet.Shapes("AutoShape 18").Select

sourcevar = Range("C9").Value - 0.167 + 1

If sourcevar < 1.5 Then
Selection.ShapeRange.Height = 83.57763975 * sourcevar
Selection.ShapeRange.Width = 99.1875 * sourcevar
Else

Selection.ShapeRange.Height = 83.57763975 * 1.5
Selection.ShapeRange.Width = 99.1875 * 1.5
End If