Need coding to DELETE a line on a spreadsheet.

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Ed - 20 Jan 2006 20:36 GMT

Hi

With Worksheets("SpeedPlay").Shapes.AddLine(546, 90, 546, 114)
.Line.ForeColor.RGB = RGB(0, 0, 0)
End With

The preceding Macro code adds a black line of a certain length and in a
certain place on a spreadsheet named SpeedPlay.

What I need is the coding to DELETE (remove) this same line.
Is that possible?

Thankyou
Ed

Reply to this Message

Chip Pearson - 20 Jan 2006 20:44 GMT

Ed,

Give the line a name,

With Worksheets("SpeedPlay").Shapes.AddLine(546, 90, 546, 114)
.Line.ForeColor.RGB = RGB(0, 0, 0)
.Name = "TheLine"
End With

Then, reference the line via the Shapes collection and delete it.

Worksheets("SpeedPlay").Shapes("TheLine").Delete

Signature

Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

> Hi
>
[quoted text clipped - 11 lines]
> Thankyou
> Ed

Reply to this Message