Move Rectangle Shape to specific co-ordinates

[Tobbes]

I am wondering if there is a way to use code to move a rectangle to a specific location on a sheet.

I can only use "ShapeRange.IncrimentLeft" so far...which only move the shape to the left every time.

Is there anyway to move a shape to point that no matter where the shape is it will always make it it to this location.

 

[Michael M]

You can use dTop and Dleft to locate the shape.
Change the vaules to suit

Sub MovPics()
Dim dTop As Double, dLeft As Double
dTop = 20               ' Top of the first shape
dLeft = 50              ' Left of the first shape
        With ActiveSheet.Shapes("Rectangle 1")
            .Left = dLeft
            .Top = dTop
        End With
End Sub

 

[Tobbes]

Thanks very much. It was the .Left and .Top commands I was after.

Is there a similar function for Height and Width?

 

[Tobbes]

That would be the .Height and .Width commands. Sorry for wasting people's time.

 

[Michael M]

Try, and adjust accordingly.
All

 ShapeRange.ScaleWidth 0.74, msoFalse, msoScaleFromBottomRight
 .ShapeRange.ScaleHeight 0.57, msoFalse, msoScaleFromTopLeft