I am using this code snippet to access the highlighted properties [please see pic], but not sure if I am accessing the right ones. The reason I doubt that, is because when I tried to assign a different set of values to those properties, the code did run, but the changes were not reflected in the chart. To my surprise, those properties were shown in intellisense drop down as hidden members. Does that mean these properties are obsolete now. If yes, then how can I access these properties ? Kindly help.
Dim i As Long
For i = 1 To thischart.FullSeriesCollection.Count
Dim EachSeries As Series
Dim StoreProps(2) as variant
Set EachSeries = thischart.FullSeriesCollection(i)
StoreProps(1) = EachSeries.Border.Color
StoreProps(2) = EachSeries.Border.Weight
Next
Properties Pic:
Intelli-Sense Pic:
CodePudding user response:
You need to use the Format.Line
properties
StoreProps(1) = EachSeries.Format.Line.ForeColor.RGB
StoreProps(2) = EachSeries.Format.Line.Weight
CodePudding user response:
Here's how to set different weights for the line and the marker. This will give you 3-pt line weight with a 1-point border on the markers:
For a = 1 To .SeriesCollection.Count
With .SeriesCollection(a)
.Format.Line.Weight = 1
.Border.Weight = 4
End With
Next a