Prev: Day of Week from dd/mm/yyyy
Next: How to Show/Hide Columns or Rows with no data via VB
From: smandula on 30 May 2010 23:08
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.

From: Ed Ferrero on 30 May 2010 23:43
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
From: smandula on 31 May 2010 06:22
Thanks everyone for your help


 | 
Pages: 1
Prev: Day of Week from dd/mm/yyyy
Next: How to Show/Hide Columns or Rows with no data via VB