Assuming you have a rectangle named "Rectangle 1" on worksheet 1, and
your size data is contained on worksheet 2, you could enter the
following code which would size the shape object upon clicking a
command button.
Private Sub cmdProcess_Click()
ActiveSheet.Shapes("rectangle 1").Width =
Worksheets("Sheet2").Range("a1")
ActiveSheet.Shapes("rectangle 1").Height =
Worksheets("Sheet2").Range("b1")
ActiveSheet.Shapes("rectangle 1").Left =
Worksheets("Sheet2").Range("c1")
ActiveSheet.Shapes("rectangle 1").Top =
Worksheets("Sheet2").Range("d1")
End Sub