set shape size from cell data

[gergo]

I would like to make a macro which inserts a square shape with the dimensions earned from a cell.
For example A1 says 5 and B1 says 2. So I'd like to set square height to A1 so it will be 5. and widht to B1 so it will be 2.
So whenever I change values in A1 and B2 and rerun the macro it would create a new square shape with the new values.
Is it possible?

Thanks in advance :D

 

[VoG]

That would be an exceedingly small rectangle!

Maybe like this

Sub test()
Dim sh As Object
Set sh = ActiveSheet.Shapes.AddShape(msoShapeRectangle, Range("E3").Left, Range("E3").Top, Range("B1").Value * 10, Range("A1").Value * 10)
End Sub

 

[gergo]

Thanks, it works :D