Thread: 3D chart rotation buttons Excel 2007

Hello all & festive greetings to all,

Goal: I am trying to put two arrow buttons with a 3D chart (3D area chart) that will rotate the chart left and right.

Issue:I understand that in Excel 2007 recording macros only goes so far, and cannot help in this instance.
The problem i am having is that i cannot record macros and I am not a vba user.
I can easily adjust the view by right clicking on the chart and using the 3D options, but that is not an optimum solution.
I tried adding the 3D button to the ribbon and record a macro to it that way, but that didn't work.

Advanced thankyou: I'd be really grateful if anyone could provide a solution (or a link to a working example) that I could use.

Kind Regards,

GM
(boing!)

The example file has 4 shapes using this macro.

Sub RotateChart()

    Dim chtTemp As Chart
    Set chtTemp = ActiveSheet.Shapes("Chart 1").Chart
    
    Select Case UCase(Application.Caller)
    Case "RIGHT ARROW 4"
        chtTemp.PlotArea.Format.ThreeD.RotationX = chtTemp.PlotArea.Format.ThreeD.RotationX - 1
    Case "RIGHT ARROW 2"
        chtTemp.PlotArea.Format.ThreeD.RotationX = chtTemp.PlotArea.Format.ThreeD.RotationX + 1
    Case "RIGHT ARROW 3"
        chtTemp.PlotArea.Format.ThreeD.RotationY = chtTemp.PlotArea.Format.ThreeD.RotationY - 1
    Case "RIGHT ARROW 5"
        chtTemp.PlotArea.Format.ThreeD.RotationY = chtTemp.PlotArea.Format.ThreeD.RotationY + 1
    End Select

End Sub