Unable to turn off marker shadows in charts on sheet through vba

[crocodilesareforwimps]

I have a bunch of charts and all the markers have shadowing on them, and I wrote a macro to go through them all to remove the shadowing. I based this macro off of recorded macro I made by removing the shadwos on the first chart. When I run it, it selects the data series and everything, but doesn't actually modify the shadow settings for that data series. The shadow is still there and it shows that it still has a shadow. I don't understand why it is doing this.

Also, if I try to modify the chart name it says something about being "out of memory". Am I doing that wrong?

Sub removeShadows()
'
' Macro8 Macro
'

'
    Dim ch As Chart
    Dim i As Long

    
    Sheets("MySheet").Select
    For i = 1 To ActiveSheet.ChartObjects.count
        ActiveSheet.ChartObjects(i).Activate
        'ActiveChart.Name = "ConsLM_" & i
        ActiveChart.SeriesCollection(1).Select
        Selection.Format.Shadow.Visible = msoFalse
        ActiveChart.SeriesCollection(2).Select
        Selection.Format.Shadow.Visible = msoFalse
    Next i
    

    
    
End Sub

THANK YOU!

 

[crocodilesareforwimps]

anyone?

 

[crocodilesareforwimps]

OK, so doing
ActiveChart.SeriesCollection(1).Format.Shadow.Type = msoShadow1
ActiveChart.SeriesCollection(2).Format.Shadow.Type = msoShadow1

or anything number besides 1 for that matter, seems to remove the shadow, but when you go into the marker options, it doesn't show anything selected for "Shadow" in the menu, not even "No Shadow"

 

[crocodilesareforwimps]

OK, so that makes some weird far shadow that ends up being visible in the legend. help!!!