I am trying to modify the fill pattern of some Legend Markers on a column graph. I want Series 1 to be Solid Colour, Series 2 to be 75% Colour and Series 3 to be 50% Colour.
I have already modified the data points to what I want, using

If chartseries = 2 Then   
ActiveChart.SeriesCollection(1).Points(1).Interior.Pattern = x1PatternGray 75
'etc
Elseif chartseries = 3 Then
ActiveChart.SeriesCollection(1).Points(1).Interior.Pattern = x1PatternGray 50
'etc
End If
The same code does not work for Legend Entries, ie the below fails to run

ActiveChart.Legend.LegendEntries(2).Interior.Pattern= x1PatternGray 75
I cannot manually modify the Legend Entries after the graph is made, as each of the Points has an individual colour and modifying the Legend Entry overwrites this.
Any ideas for a suitable bit of code to achieve this?

(Further details, I have a column graph with 3 series. Along the x axis are Parameter 1 to Parameter 8. All the columns associated with Parameter 1 are Blue, Parameter 2 = Red, Parameter 3 = Green etc. All the columns associated with Series 1 are solid fill, Series 2 = 75% fill and Series 3 = 50% fill.
I can achieve this fine, but the Legend markers are giving me trouble.

The default legend marker for Series 1 is Solid Blue, for Series 2 it is Solid Red, for Series 3 it is Solid Green. What I want is for the Series 1 = Solid Blue, Series 2 = 75% Blue and Series 3 = 50% blue.

I figure if I can modify the legend markers to what I want in VBA, I can then run the code which changes the individual points to their desired colour without this changing the legend marker)