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...