[XL-2010] Problème rotation graphique

[milpom]

Bonsoir à tous

J'ai essayé mainte fois de faire une rotation d'un graphique au moyen d'un scrollbar, mais rien à faire, ca veut pas.

j'ai repris le code enregistré par macro :

Code :

1
2
3
4
5
Private Sub Spin_Scroll()
    ActiveChart.PlotArea.Select
    ActiveChart.ChartArea.Select
    ActiveSheet.Shapes("Graphique 1").ThreeD.RotationX = Spin.Value
End Sub

quand je bouge le slider, le graphique ne bouge pas.

J'ai bien respecté le min et la max sur le spin

Quelqu'un aurait'il une idée ?

Merci