Rotation of 3D surface

[szymagic]

Hello all,

I seem to be having an issue with rotating a 3D surface.

I have an grid of elevation values that I have plotted to a 3D surface.
I want to be able to use 2 ActiveX spin buttons to rotate the surface in the X and Y planes, in order to get a better look at the surface elevations.

This is the code I have thus far:

Private Sub SpinButton1_Change()Dim i As Variant


i = SpinButton1.Value


ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Select
    With ActiveChart
        .Rotation = i 'this rotates in the X plane
        .Refresh
    End With
Range("A1").Select
    
End Sub

This will rotate the chart in the X plane whenever I change the Spin Button.. I can't for the life of me figure out how to get the rotation is Y plane.

I've tried using the ThreeD.RotationY method but I haven't been able to get that to work either