CONTROL SHAPE COLOR
 

I AM TRYING TO INSERT A LINE AND MAKE IT RED BUT IT ISN'T WORKING

Sheet40.Shapes.AddLine(MYCELL.Left + Centerstart, MYCELL.Top + HEIGHT,
MYCELL.Left + Centerstart, MYCELL.Top).Select

With Selection
.Fill.ForeColor.RGB = RGB(10, 10, 10)
.NAME = "HEIGHT1"
End With

CONTROL SHAPE COLOR
 

.Fill.ForeColor.RGB = RGB(10, 10, 10)

That is pretty close to 0, which is black. For red, use

..Fill.ForeColor.RGB = RGB(255,0,0)

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)


On Mon, 6 Apr 2009 15:03:01 -0700, pacsol_mic
wrote:

I AM TRYING TO INSERT A LINE AND MAKE IT RED BUT IT ISN'T WORKING

Sheet40.Shapes.AddLine(MYCELL.Left + Centerstart, MYCELL.Top + HEIGHT,
MYCELL.Left + Centerstart, MYCELL.Top).Select

With Selection
.Fill.ForeColor.RGB = RGB(10, 10, 10)
.NAME = "HEIGHT1"
End With

CONTROL SHAPE COLOR
 

YEAH THE COLOR WAS NOT THE PROBLEM I HAVE RGB(255,0,0) BUT I AM GETTING AN
ERROR MESSAGE AT THAT .FILL LINE

"Chip Pearson" wrote:


.Fill.ForeColor.RGB = RGB(10, 10, 10)

That is pretty close to 0, which is black. For red, use

..Fill.ForeColor.RGB = RGB(255,0,0)

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)


On Mon, 6 Apr 2009 15:03:01 -0700, pacsol_mic
wrote:

I AM TRYING TO INSERT A LINE AND MAKE IT RED BUT IT ISN'T WORKING

Sheet40.Shapes.AddLine(MYCELL.Left + Centerstart, MYCELL.Top + HEIGHT,
MYCELL.Left + Centerstart, MYCELL.Top).Select

With Selection
.Fill.ForeColor.RGB = RGB(10, 10, 10)
.NAME = "HEIGHT1"
End With

CONTROL SHAPE COLOR
 

IT RETURNS AN ERROR MESSAGE OF OBJECT DOESN'T SUPPORT THIS PROPERTY

THANK YOU FOR THE HELP


"Chip Pearson" wrote:


.Fill.ForeColor.RGB = RGB(10, 10, 10)

That is pretty close to 0, which is black. For red, use

..Fill.ForeColor.RGB = RGB(255,0,0)

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)


On Mon, 6 Apr 2009 15:03:01 -0700, pacsol_mic
wrote:

I AM TRYING TO INSERT A LINE AND MAKE IT RED BUT IT ISN'T WORKING

Sheet40.Shapes.AddLine(MYCELL.Left + Centerstart, MYCELL.Top + HEIGHT,
MYCELL.Left + Centerstart, MYCELL.Top).Select

With Selection
.Fill.ForeColor.RGB = RGB(10, 10, 10)
.NAME = "HEIGHT1"
End With