Excel shape starting in the correct position with VBA

[Peter Davison]

I am creating some rectangles in excel with the code below.
I have set it to create 5 rectangles using i = 0 to 4
What I am not sure is how I get the first block to start at 405 position and not 0 which is what "i" is starting at (I think).
Any help would be great.

Private Sub CommandButton1_Click()

Dim s As Shape
Dim i As Integer
Dim sleft As Integer
Const sWidth As Integer = 100
Const sHeight As Integer = 200

Dim ws As Worksheet
Set ws = Sheets("sheet1")
For i = 0 To 4

sleft = i * sWidth

'add a shape
'Positions (type of shape, Start Position from left, Start Position from Top, Width, Height)
Set s = ws.Shapes.AddShape(1, sleft, 130, sWidth, sHeight)

Next i

'make the fixture Black
s.Fill.ForeColor.RGB = RGB(0, 0, 0)

s.Fill.Visible = False
End Sub

 

[Peter Davison]

Sorry I am new to all this.
What is a code tag?

 

[Fluff]

Have a look here

How to Post Your VBA Code

Post your VBA code.

www.mrexcel.com

 

[Peter Davison]

Hi there its me again. Hope you are well.
Following on from yesterday I'd like to always start the position of the first rectangle at the top left corner of an excel cell (e.g. H7) before it positioned by size etc.
What would I change in the code enclosed?
Hope I have posted the code as you said above okay.
Thanks for your time.

 

[Peter Davison]

I think I have it.

I made the cell a variable and changed the code to the following which does seem to work.
sleft = H10.Left + (i * sWidth)