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

> .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
<(E-Mail Removed)> 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

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
> <(E-Mail Removed)> 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
>

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
> <(E-Mail Removed)> 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
>

Bonsour® pacsol_mic
*******************************
Please stop shouting!
*******************************

>>> 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

Fill is not a property of the object Line !!!!

considere this :

Sheet40.Shapes.AddLine(MYCELL.Left + Centerstart, MYCELL.Top + HEIGHT, MYCELL.Left + Centerstart, MYCELL.Top).Select
Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 10, 10)
Selection.Name = "HEIGHT1"

HTH

Thank You it worked and sorry for the caps lock was in the process of making
labels



"Modeste" wrote:

> Bonsour® pacsol_mic
> *******************************
> Please stop shouting!
> *******************************
>
> >>> 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
>
> Fill is not a property of the object Line !!!!
>
> considere this :
>
> Sheet40.Shapes.AddLine(MYCELL.Left + Centerstart, MYCELL.Top + HEIGHT, MYCELL.Left + Centerstart, MYCELL.Top).Select
> Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 10, 10)
> Selection.Name = "HEIGHT1"
>
> HTH
>