Can you draw lines through the center of cells, using cell numbers as references?

**iterature** · 05-18-2007, 06:02 AM

I know you can draw lines on a worksheet (via the drawing tools), using macros like this:

Private Sub CommandButton1_Click()
ActiveSheet.Shapes.AddLine(168#, 12.75, 168#, 102#).Select
End Sub

But the position references for the AddLine method are point coordinates.
Is it possible to draw continous,vertical lines down through the center of cells on a worksheet using the cell numbers as references?

(I have tried using the Border methods, but these only allow you to draw lines on the edge of cells.)

**mrice** · 05-18-2007, 05:01 PM

Try

Sub Test()
Call DrawLine("B1", "B10")
End Sub

Sub DrawLine(Cell1, Cell2)
ActiveSheet.Shapes.AddLine(Range(Cell1).Left + (Range(Cell1).Width / 2), Range(Cell1).Top, Range(Cell2).Left + (Range(Cell2).Width / 2), Range(Cell2).Top + Range(Cell2).Height).Select
End Sub

**iterature** · 05-21-2007, 06:06 AM

Many thanks, Martin.
That's excellent!

Thread: Can you draw lines through the center of cells, using cell numbers as references?

Thread Tools

Display

Can you draw lines through the center of cells, using cell numbers as references?

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions