Consider the following code that makes a short, horizontal line:

ActiveSheet.Shapes.AddLine(10, 10, 25, 10).Select

AddLine needs coordinates (position points) in order to make a line. Now
consider any currently selected cell (Excel). A selected cell makes a square
or rectangle or some 4-sided shape (polygon?). How to return the four
coordinates from the currently selected cell? I will then use those
coordinates to draw a line the exact with of the cell.

I'm trying to automate the drawing of a Gantt chart in Excel using lines.
Selecting a range of cells and drawing a line between the extremeties will be
helpful. I don't think I want to use a bar chart--I've seen some examples of
those. Thanks.

Troy