CONTROL SHAPE COLOR

  • Thread starter Thread starter pacsol_mic
  • Start date Start date
P

pacsol_mic

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)
Click to expand...

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)
 
YEAH THE COLOR WAS NOT THE PROBLEM I HAVE RGB(255,0,0) BUT I AM GETTING AN
ERROR MESSAGE AT THAT .FILL LINE
 
IT RETURNS AN ERROR MESSAGE OF OBJECT DOESN'T SUPPORT THIS PROPERTY

THANK YOU FOR THE HELP
 
Bonsour® pacsol_mic
*******************************
Please stop shouting!
*******************************

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