Remove 3d formatting from a chart object. 2 lines of recorded code (below) don't work

[VBAProIWish]

Hello All,

Despite 2+ hours of searching all over the place, I have not been able to find any code that will simply remove a bevel in the chart.
The recorded code (below) shows exactly what I did, but if I manually put the chart back to 3d and try the recorded code, it does nothing.
Soooo confused by this and even more confused that no one else has asked this same question.

Thanks so much for anything anyone can do

Sub RemoveThreeD
    
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveSheet.Shapes("Chart 1").ThreeD.BevelTopType = msoBevelNone
    
End Sub

 

[rlv01]

What about something like this?

Sub RemoveThreeD()
    Dim I As Integer
    
    With ActiveSheet.ChartObjects("Chart 1").Chart
        For I = 1 To .FullSeriesCollection.Count
            .FullSeriesCollection(I).Format.ThreeD.BevelTopType = msoBevelNone
        Next I
    End With
End Sub

 

[VBAProIWish]

Hello rlv01, thanks but it didn't work.

This seems to be an impossible thing to do via code. So easy to do manually, but yet, it doesn't seem to be "codable".

Anyone else have any suggestions?

 

[VBAProIWish]

Hello, bumping this one...

Thanks much

 

[rlv01]

Sub RemoveThreeD
   
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveSheet.Shapes("Chart 1").ThreeD.BevelTopType = msoBevelNone
   
End Sub

The above code does not work for me under O365 or Excel 2010.

This:

 ActiveSheet.Shapes("Chart 1").Select
 Selection.Format.ThreeD.BevelTopType = msoBevelNone

Works under Excel 2010, but not under Excel 2016/O365

 

[VBAProIWish]

rlv01, That is interesting and thank you for that information.

Does anyone know a way around this via code or is it safe to say that removing the bevel from a shape via code is simply not possible in Excel 365?f

Thanks rlv01 and anyone else who can give this a whirl!

 

[VBAProIWish]

Bumping this one last time in hope of someone knowing of a solution.
Fingers crossed!