Dear Team,

I wrote code for rotating Curved Down Arrow shape. When ActivePresentation.Slides(4).Shapes("MIXER ON/OFF").TextFrame.TextRange.Text = "ON" then it start rotating.

My code is here

' Minimum & maximum angles in degrees  Const MinAngle& = 0, MaxAngle& = 360
  ' Define the rotation ratio from 0 up to 1
  Dim phi&, Ratio#, t!


  ' Rotate shape
  With ActivePresentation.Slides(4).Shapes(ShpArrRot(x))


    ' Rotate clockwise
    For Ratio = 0.5 To 5 Step 0.01
      ' Calc the rotation angle in degrees
         If ActivePresentation.Slides(4).Shapes("MIXER ON/OFF").TextFrame.TextRange.Text = "ON" Then
      phi = MinAngle + (MaxAngle - MinAngle) * Ratio
      ' Rotate shape
      .Rotation = phi
      ' Make pause
      t = Timer + 0.01: While Timer < t: DoEvents: Wend
        Else
    Exit Sub
    End If
    Next


  End With
When i am executing my code it rotating 5 times only.

But i want it should rotate till change ActivePresentation.Slides(4).Shapes("MIXER ON/OFF").TextFrame.TextRange.Text = "OFF"

Can any one explain me how to change my code according to my requirement