Move Shape lower

[haseft]

hi!

The following codes draw a shape in Active cell.
I want to move the shape a litle bit lower in active cell.
RowHeight = 50
Shape height = 20
Tanks for helping.

Sub DrawShape()
Dim ShapeName1 As String
With Selection
l = .Left
t = .Top
w = .Width
End With

ActiveCell.RowHeight = 50
ShapeName1 = "Objekt1"
With ActiveSheet.Shapes.AddShape(1, l, t, w, 20)
.Name = ShapeName1
End With

ActiveSheet.Shapes(ShapeName1).Fill.ForeColor.SchemeColor = 3

'I want to move ShapeNeme1 a litle bit lower
'code .....

End Sub

 

[shg]

Sub DrawShape()
  With ActiveWindow.RangeSelection
    .Rows(1).RowHeight = 50
    With .Worksheet.Shapes.AddShape(Type:=msoShapeRectangle, _
                                    Left:=.Left, _
                                    Top:=.Top[COLOR="#FF0000"][B] + 1[/B][/COLOR], _
                                    Width:=.Width, _
                                    Height:=20)
      .Name = "Objekt1"
      .Fill.ForeColor.SchemeColor = 3
    End With
  End With
End Sub

 

[haseft]

Thanks shg, its working.

Sub DrawShape()
  With ActiveWindow.RangeSelection
    .Rows(1).RowHeight = 50
    With .Worksheet.Shapes.AddShape(Type:=msoShapeRectangle, _
                                    Left:=.Left, _
                                    Top:=.Top[COLOR=#ff0000][B] + 1[/B][/COLOR], _
                                    Width:=.Width, _
                                    Height:=20)
      .Name = "Objekt1"
      .Fill.ForeColor.SchemeColor = 3
    End With
  End With
End Sub

 

[shg]

You're welcome.