Draw rectangle in VB

NextYearSox

Active Member
Joined
Oct 24, 2003
Messages
287
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?
 

Some videos you may like

Excel Facts

Links? Where??
If Excel says you have links but you can't find them, go to Formulas, Name Manager. Look for old links to dead workbooks & delete.

Smitty

Legend
Joined
May 15, 2003
Messages
29,536
Look at the TopLeftCell Property in the VB helpfile.

HTH,

Smitty
 

erik.van.geit

MrExcel MVP
Joined
Feb 1, 2003
Messages
17,832
Hi,

try
Code:
ActiveCell.Top

for example: if you want to draw a rectangle with same measures as the activecell (or 3 by 3 cells)
Code:
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
 

Watch MrExcel Video

Forum statistics

Threads
1,113,861
Messages
5,544,721
Members
410,630
Latest member
JFORTH97
Top