Draw rectangle in VB

[NextYearSox]

I need to draw a rectangle in the row my cursor is located. I am using VB code as follows:

ActiveSheet.Shapes.AddShape(msoShapeRectangle, horizontal start, vertical start, length, thickness).Select

The horizontal start, length, and thickness is identical for all rectangles I draw. How can I use the cursor position to define the vertical start?

 

[Smitty]

Look at the TopLeftCell Property in the VB helpfile.

HTH,

Smitty

 

[erik.van.geit]

Hi,

try

ActiveCell.Top

for example: if you want to draw a rectangle with same measures as the activecell (or 3 by 3 cells)

Sub test()
Dim sh As Shape

    With ActiveCell '.Resize(3, 3)
    Set sh = ActiveSheet.Shapes.AddShape(msoShapeRectangle, .Left, .Top, .Width, .Height)
    End With

End Sub

kind regards,
Erik

 

[NextYearSox]

Thanks for the help guys - worked perfectly!