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