I'm writing some VBA code to modify Excel charts. For a scatter chart I need to modify the marker line colour and sometimes the line colour of the connecting lines. I can do both manually but when I record a Macro, both actions result in the same code despite the results being very different.
Any idea how to distinguish between a line colour and a marker line colour in code?
This code was created when I recorded myself changing colour of the marker lines
Sub Macro3()
'
' Macro3 Macro
'
'
ActiveChart.SeriesCollection(2).Select
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
End With
End Sub
This code was created when I recorded myself changing the color of the line connecting the markers
Sub Macro4()
'
' Macro4 Macro
'
'
'Change the Line Color
ActiveChart.SeriesCollection(2).Select
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
End With
End Sub
The line colour of the connecting lines is Series.Format.Line.ForeColor
. The marker line colour is Series.MarkerForegroundColor
. But at least with Excel 2007 there is a problem with setting Series.Format.Line.ForeColor
. See example:
Sub Macro3()
Dim oChart As Chart
Dim oSeries As Series
Set oChart = ActiveChart
Set oSeries = oChart.SeriesCollection(2)
oSeries.Format.Line.Weight = 5 'Line.Weigth works ever
oSeries.Format.Line.Visible = msoFalse 'for Line.ForeColor getting to work we have to cheat something
oSeries.Format.Line.Visible = msoTrue
oSeries.Format.Line.ForeColor.RGB = RGB(0, 255, 0) 'now it works
oSeries.MarkerSize = 15
oSeries.MarkerBackgroundColor = RGB(255, 0, 0) 'marker background
oSeries.MarkerForegroundColor = RGB(0, 0, 255) 'marker foreground (lines around)
End Sub
The ActiveChart is a scatter chart. And this is tested with Excel 2007.
If you love us? You can donate to us via Paypal or buy me a coffee so we can maintain and grow! Thank you!
Donate Us With