Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change Color for Drawing Line Object
Below is code for a line drawing, but it defaults to Blue.
I would like to change the color to red. ------------------------------------------------ Sub mineLeft() Dim nStart1 As Double, nStart2 As Double Dim nEnd1 As Double, nEnd2 As Double Dim rng1 As Range Dim rng2 As Range Set rng1 = ActiveCell.Offset(0, -1) Set rng2 = ActiveCell.Offset(1, 0) nStart1 = rng1.Left + rng1.Width nStart2 = rng1.Top nEnd1 = rng2.Left + rng2.Width nEnd2 = rng2.Top ActiveSheet.Shapes.AddLine(nStart1, nStart2, nEnd1, nEnd2).Select End Sub ----------------------------------------------------------- With Thanks I tried the recorded macro to format the Line to Red. The macro comes back empty. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change Color for Drawing Line Object
Hi smandula,
ActiveSheet.Shapes.AddLine(nStart1, nStart2, nEnd1, nEnd2).Select Change this line to Set shp = ActiveSheet.Shapes.AddLine(nStart1, nStart2, nEnd1, nEnd2) shp.Line.ForeColor.RGB = RGB(255, 0, 0) Ed Ferrero www.edferrero.com |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change Color for Drawing Line Object
"The macro comes back empty." Excel 2007 was released when it was "good enough"... ActiveSheet.Shapes.AddLine(nStart1, nStart2, nEnd1, nEnd2).Line.ForeColor.SchemeColor = 10 -- Jim Cone Portland, Oregon USA (Shade Data Rows Excel add-in: http://tinyurl.com/ShadeData ) "smandula" wrote in messageBelow is code for a line drawing, but it defaults to Blue. I would like to change the color to red. ------------------------------------------------ Sub mineLeft() Dim nStart1 As Double, nStart2 As Double Dim nEnd1 As Double, nEnd2 As Double Dim rng1 As Range Dim rng2 As Range Set rng1 = ActiveCell.Offset(0, -1) Set rng2 = ActiveCell.Offset(1, 0) nStart1 = rng1.Left + rng1.Width nStart2 = rng1.Top nEnd1 = rng2.Left + rng2.Width nEnd2 = rng2.Top ActiveSheet.Shapes.AddLine(nStart1, nStart2, nEnd1, nEnd2).Select End Sub ----------------------------------------------------------- With Thanks I tried the recorded macro to format the Line to Red. The macro comes back empty. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change Color for Drawing Line Object
Thanks everyone for your help
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Drawing toolbar: line color button | Excel Discussion (Misc queries) | |||
Can't change macro assigned to drawing object | Excel Programming | |||
How to change color of line and point markers on a line graph | Charts and Charting in Excel | |||
Line Position Drawing Object | Excel Programming | |||
Make a line in a bar chart, and change color of any bars that exceed the line | Excel Discussion (Misc queries) |