Anyone able to assist? I did some messing around, and managed to piece together some code as below, but can't figure out what to edit to make it randomly stop at a certain angle instead of going round 360. Secondly, not sure which part of the code i need to edit to make it spin faster. Would be grateful if someone could advice.
Code as below;
Code:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 11/07/2008 by Andy Pope
'
Dim lngLoop As Long
Dim lngDelay As Long
'
With ActiveSheet.ChartObjects("Chart 1").Chart
For lngLoop = 1 To 360
.Rotation = lngLoop
DoEvents
For lngDelay = 360 To 50000
'CRUDE DELAY
Next
Next
End With
End Sub
Sub Spin(ByVal dVal As Double)
Dim i As Double
With ActiveSheet.ChartObjects("Chart 1").Chart
For i = 0 To dVal Step 0.1
.Rotation = i
DoEvents
Next i
End With
End Sub
Sub Spin1()
Spin 200
End Sub