Pause the program

Dear Team,

I am new for this power point coding.

I had create code for pause the program and execute after 2 seconds in excel and it is working greate.
My excel code is

Code:

---

Sub MCI55_PUSH_BUTTON()Dim shp As Shape, shpArrOnOff, shpArrOnOff1, shpArrColor, i As Long, i1 As Long, j As Long, j1 As Long
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Additional")
    Set shp = ActiveSheet.Shapes("P-BUTTON")
    shpArrColor = Array("RedClr32", "RedClr33", "RedClr37")
    shpArrColor1 = Array("RedClr34", "RedClr35", "RedClr36", "RedClr37")
    shpArrOnOff = Array("RedClr31")
    shpArrOnOff1 = Array("RedClr34", "RedClr38", "YellowClr7", "BlueClr7")
    With shp
        If ActiveSheet.Shapes("MCCB-ON-OFF").TextFrame.Characters.Text = "ON" _
        And ActiveSheet.Shapes("P-BUTTON").TextFrame.Characters.Text = "OFF" Then
          .Fill.ForeColor.RGB = vbGreen
          .TextFrame.Characters.Text = "ON"
          .TextFrame.Characters.Font.Bold = True
          For i = LBound(shpArrOnOff) To UBound(shpArrOnOff)
              ActiveSheet.Shapes(shpArrOnOff(i)).IncrementRotation 30
        Next i
        For i1 = LBound(shpArrOnOff1) To UBound(shpArrOnOff1)
            If ActiveSheet.Shapes("MCCB-ON-OFF").TextFrame.Characters.Text = "ON" _
            And ActiveSheet.Shapes("P-BUTTON").TextFrame.Characters.Text = "ON" Then
                ActiveSheet.Shapes(shpArrOnOff1(i1)).IncrementRotation 30
            End If
        Next i1
            For j = LBound(shpArrColor) To UBound(shpArrColor)
                ActiveSheet.Shapes(shpArrColor(j)).Line.ForeColor.RGB = vbRed
            Next j
            If ws.Shapes("P-BUTTON").TextFrame.Characters.Text = "ON" Then
                ActiveSheet.Shapes("Group14").Line.ForeColor.RGB = vbYellow
                ActiveSheet.Shapes("Group15").Line.ForeColor.RGB = vbBlue
            End If
            Call PauseIt
            Application.Wait (Now() + TimeValue("0:00:01"))
            For i = LBound(shpArrOnOff) To UBound(shpArrOnOff)
                ActiveSheet.Shapes(shpArrOnOff(i)).IncrementRotation -30
            Next i
            For j = LBound(shpArrColor) To UBound(shpArrColor)
                ActiveSheet.Shapes(shpArrColor(j)).Line.ForeColor.RGB = vbBlack
            Next j
            For j1 = LBound(shpArrColor1) To UBound(shpArrColor1)
                ActiveSheet.Shapes(shpArrColor1(j1)).Line.ForeColor.RGB = vbRed
            Next j1
        End If
    End With
End Sub

Sub PauseIt()
    ' Application.Wait (Now() + TimeValue("0:00:00"))
End Sub

---

The i modified the excel code as per power point. But pause condition is not working
My power point code is

Code:

---

Sub MCI55_PUSH_BUTTON()Dim shp As Shape, shpArrOnOff, shpArrOnOff1, _
    shpArrColor, shpArrColor1, i As Long, i1 As Long, j As Long, j1 As Long
    Set shp = ActivePresentation.Slides(3).Shapes("P-BUTTON")
    shpArrColor = Array("RedClr32", "RedClr33", "RedClr37")
    shpArrColor1 = Array("RedClr34", "RedClr35", "RedClr36", "RedClr37")
    shpArrOnOff = Array("RedClr31")
    shpArrOnOff1 = Array("RedClr34", "RedClr38", "YellowClr7", "BlueClr7")
    With shp
        If ActivePresentation.Slides(3).Shapes("MCCB-ON-OFF").TextFrame.TextRange.Text = "ON" _
        And ActivePresentation.Slides(3).Shapes("P-BUTTON").TextFrame.TextRange.Text = "OFF" Then
            .Fill.ForeColor.RGB = vbGreen
            .TextFrame.TextRange.Text = "ON"
            .TextFrame.TextRange.Font.Bold = True
            For i = LBound(shpArrOnOff) To UBound(shpArrOnOff)
                ActivePresentation.Slides(3).Shapes.Range(shpArrOnOff(i)).IncrementRotation 30
            Next i
            For i1 = LBound(shpArrOnOff1) To UBound(shpArrOnOff1)
                If ActivePresentation.Slides(3).Shapes("MCCB-ON-OFF").TextFrame.TextRange.Text = "ON" _
                And ActivePresentation.Slides(3).Shapes("P-BUTTON").TextFrame.TextRange.Text = "ON" Then
                    ActivePresentation.Slides(3).Shapes.Range(shpArrOnOff1(i1)).IncrementRotation 30
                End If
            Next i1
            For j = LBound(shpArrColor) To UBound(shpArrColor)
                ActivePresentation.Slides(3).Shapes.Range(shpArrColor(j)).Line.ForeColor.RGB = vbRed
            Next j
            If ActivePresentation.Slides(3).Shapes("P-BUTTON").TextFrame.TextRange.Text = "ON" Then
                ActivePresentation.Slides(3).Shapes("Group14").Line.ForeColor.RGB = vbYellow
                ActivePresentation.Slides(3).Shapes("Group15").Line.ForeColor.RGB = vbBlue
            End If
            Call PauseIt
            Application.WAIT (Now() + TimeValue("0:00:01"))
            For i = LBound(shpArrOnOff) To UBound(shpArrOnOff)
                ActivePresentation.Slides(3).Shapes.Range(shpArrOnOff(i)).IncrementRotation -30
            Next i
            For j = LBound(shpArrColor) To UBound(shpArrColor)
                ActivePresentation.Slides(3).Shapes.Range(shpArrColor(j)).Line.ForeColor.RGB = vbBlack
            Next j
            For j1 = LBound(shpArrColor1) To UBound(shpArrColor1)
                ActivePresentation.Slides(3).Shapes.Range(shpArrColor1(j1)).Line.ForeColor.RGB = vbRed
            Next j1
        End If
    End With
End Sub

Sub PauseIt()
    Application.WAIT (Now() + TimeValue("0:00:00"))
End Sub

---

when i am running above code i am getting "Method or Data member not found" error message.

Can any one help me to correct this issue

PP doesn't have a .Wait

Try using Sleep instead

Code:

---

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

...
...
...

Sleep 1000    ' for a one second delay

---

I tried sleep function. But it is not working as per my requirement.

My requirement is

Fit it should execute the following

Code:

---

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub MCI55_PUSH_BUTTON()Dim shp As Shape, shpArrOnOff, shpArrOnOff1, _
    shpArrColor, shpArrColor1, i As Long, i1 As Long, j As Long, j1 As Long
    Set shp = ActivePresentation.Slides(3).Shapes("P-BUTTON")
    shpArrColor = Array("RedClr32", "RedClr33", "RedClr37")
    shpArrColor1 = Array("RedClr34", "RedClr35", "RedClr36", "RedClr37")
    hpArrOnOff = Array("RedClr31")
    shpArrOnOff1 = Array("RedClr34", "RedClr38", "YellowClr7", "BlueClr7")
    With shp
        If ActivePresentation.Slides(3).Shapes("MCCB-ON-OFF").TextFrame.TextRange.Text = "ON" _
        And ActivePresentation.Slides(3).Shapes("P-BUTTON").TextFrame.TextRange.Text = "OFF" Then
            .Fill.ForeColor.RGB = vbGreen
            .TextFrame.TextRange.Text = "ON"
            .TextFrame.TextRange.Font.Bold = True
            For i = LBound(shpArrOnOff) To UBound(shpArrOnOff)
                ActivePresentation.Slides(3).Shapes.Range(shpArrOnOff(i)).IncrementRotation 30
            Next i
            For i1 = LBound(shpArrOnOff1) To UBound(shpArrOnOff1)
                If ActivePresentation.Slides(3).Shapes("MCCB-ON-OFF").TextFrame.TextRange.Text = "ON" _
                And ActivePresentation.Slides(3).Shapes("P-BUTTON").TextFrame.TextRange.Text = "ON" Then
                    ActivePresentation.Slides(3).Shapes.Range(shpArrOnOff1(i1)).IncrementRotation 30
                End If
            Next i1
            For j = LBound(shpArrColor) To UBound(shpArrColor)
                ActivePresentation.Slides(3).Shapes.Range(shpArrColor(j)).Line.ForeColor.RGB = vbRed
            Next j
            If ActivePresentation.Slides(3).Shapes("P-BUTTON").TextFrame.TextRange.Text = "ON" _
            And ActivePresentation.Slides(3).Shapes("1F1").TextFrame.TextRange.Text = "ON" Then
                ActivePresentation.Slides(3).Shapes("Group14").Line.ForeColor.RGB = vbYellow
                ActivePresentation.Slides(3).Shapes("Group15").Line.ForeColor.RGB = vbBlue
            End If
            ' Then it will wait for 2sec and after 2sec it should execute the following
            ' Sleep 2000
            For i = LBound(shpArrOnOff) To UBound(shpArrOnOff)
                ActivePresentation.Slides(3).Shapes.Range(shpArrOnOff(i)).IncrementRotation -30
            Next i
            For j = LBound(shpArrColor) To UBound(shpArrColor)
                ActivePresentation.Slides(3).Shapes.Range(shpArrColor(j)).Line.ForeColor.RGB = vbBlack
            Next j
            For j1 = LBound(shpArrColor1) To UBound(shpArrColor1)
                ActivePresentation.Slides(3).Shapes.Range(shpArrColor1(j1)).Line.ForeColor.RGB = vbRed
            Next j1
        End If
    End With
End Sub

---

Can you please check and confirm the code

Attach a small presentation that we can play with

Dear Mr. Paul,

I had attached my file here for your reference. For your easy understand i marked yellow border on my slide

1. The usual PP way to define a macro to run when clicking a shape is

Code:

---

Sub MCI55_PUSH_BUTTON(shp As Shape)

---

The clicked shape gets passed in the call

2. I made a small driver program to step through

Code:

---

Sub drv()
    Call MCI55_PUSH_BUTTON(ActivePresentation.Slides(3).Shapes("P-BUTTON"))
End Sub

---

3. As written the red was = "ON" and = "OFF"

Stepping through the AND was false and nothing, including the Sleep, was never executed

Temporilarly changing

Code:

---

ActivePresentation.Slides(3).Shapes("MCCB-ON-OFF").TextFrame.TextRange.Text = "OFF"


---

then the If/Then was executed, including the Sleep

Attachment 26591

Code:

---

Sub MCI55_PUSH_BUTTON(shp As Shape)
    Dim shpArrOnOff, shpArrOnOff1, shpArrColor, shpArrColor1, i As Long, i1 As Long, j As Long, j1 As Long
    ' Set shp = ActivePresentation.Slides(3).Shapes("P-BUTTON")
    shpArrColor = Array("RedClr32", "RedClr33", "RedClr37")
    shpArrColor1 = Array("RedClr34", "RedClr35", "RedClr36", "RedClr37")
    shpArrOnOff = Array("RedClr31")
    shpArrOnOff1 = Array("RedClr34", "RedClr38", "YellowClr7", "BlueClr7")
    With shp
      If ActivePresentation.Slides(3).Shapes("MCCB-ON-OFF").TextFrame.TextRange.Text = "OFF" _
      And ActivePresentation.Slides(3).Shapes("P-BUTTON").TextFrame.TextRange.Text = "OFF" Then
          .Fill.ForeColor.RGB = vbGreen
          .TextFrame.TextRange.Text = "ON"
          .TextFrame.TextRange.Font.Bold = True
          For i = LBound(shpArrOnOff) To UBound(shpArrOnOff)
                ActivePresentation.Slides(3).Shapes.Range(shpArrOnOff(i)).IncrementRotation 30
          Next i
          For i1 = LBound(shpArrOnOff1) To UBound(shpArrOnOff1)
              If ActivePresentation.Slides(3).Shapes("MCCB-ON-OFF").TextFrame.TextRange.Text = "ON" _
              And ActivePresentation.Slides(3).Shapes("P-BUTTON").TextFrame.TextRange.Text = "ON" Then
                  ActivePresentation.Slides(3).Shapes.Range(shpArrOnOff1(i1)).IncrementRotation 30
              End If
          Next i1
          For j = LBound(shpArrColor) To UBound(shpArrColor)
              ActivePresentation.Slides(3).Shapes.Range(shpArrColor(j)).Line.ForeColor.RGB = vbRed
        Next j
        If ActivePresentation.Slides(3).Shapes("P-BUTTON").TextFrame.TextRange.Text = "ON" _
        And ActivePresentation.Slides(3).Shapes("1F1").TextFrame.TextRange.Text = "ON" Then
              ActivePresentation.Slides(3).Shapes("Group14").Line.ForeColor.RGB = vbYellow
              ActivePresentation.Slides(3).Shapes("Group15").Line.ForeColor.RGB = vbBlue
        End If
        MsgBox "Before"
        Sleep 2000
        MsgBox "After"
        For i = LBound(shpArrOnOff) To UBound(shpArrOnOff)
            ActivePresentation.Slides(3).Shapes.Range(shpArrOnOff(i)).IncrementRotation -30
        Next i
        For j = LBound(shpArrColor) To UBound(shpArrColor)
                ActivePresentation.Slides(3).Shapes.Range(shpArrColor(j)).Line.ForeColor.RGB = vbBlack
            Next j
            For j1 = LBound(shpArrColor1) To UBound(shpArrColor1)
                ActivePresentation.Slides(3).Shapes.Range(shpArrColor1(j1)).Line.ForeColor.RGB = vbRed
            Next j1
        End If
    End With
End Sub

---

Dear Paul,

I checked your code. It is working with Msgbox. If i removed Msgbox it is not working.

How to do this without Msgbox

Try replacing the 3 lines with just these

I changed it to 10 seconds to test, and the hour glass seems to 'wait' for 10 seconds

Code:

---

            DoEvents
            Sleep 10000

---

You can see the 3-4 rotate, but then it switches back so I assume that there's more code

Dear Paul,

It is not working

Works for me

"Not working" doesn't provide much to look at

You used my file from post 8?

Attachment 26603

Load it
Slide show
Slide 3 - click the Red OFF
3-4 rotates
Hourglass for 10 seconds
3-4 goes back

I didn't look at the rest of your logic

But when I am checking, 3-4 is not rotating and going back is not working. Directly it is going to 1-2 rotating

Maybe your logic in this and the other macros is wrong

Make P-BUTTON text = OFF and single step (F8) through the drv macro


This rotates 3-4 back to original position

Code:

---

For i = LBound(shpArrOnOff) To UBound(shpArrOnOff)
    ActivePresentation.Slides(3).Shapes.Range(shpArrOnOff(i)).IncrementRotation -30
Next i

---

Code:

---

Sub drv()
    Call MCI55_PUSH_BUTTON(ActivePresentation.Slides(3).Shapes("P-BUTTON"))
End Sub


Sub MCI55_PUSH_BUTTON(shp As Shape)
    Dim shpArrOnOff, shpArrOnOff1, shpArrColor, shpArrColor1, i As Long, i1 As Long, j As Long, j1 As Long
    '  Set shp = ActivePresentation.Slides(3).Shapes("P-BUTTON")
    shpArrColor = Array("RedClr32", "RedClr33", "RedClr37")
    shpArrColor1 = Array("RedClr34", "RedClr35", "RedClr36", "RedClr37")
    shpArrOnOff = Array("RedClr31")
    shpArrOnOff1 = Array("RedClr34", "RedClr38", "YellowClr7", "BlueClr7")
    With shp
        If ActivePresentation.Slides(3).Shapes("MCCB-ON-OFF").TextFrame.TextRange.Text = "OFF" _
        And ActivePresentation.Slides(3).Shapes("P-BUTTON").TextFrame.TextRange.Text = "OFF" Then
              .Fill.ForeColor.RGB = vbGreen
            . TextFrame.TextRange.Text = "ON"
              .TextFrame.TextRange.Font.Bold = True
            For i = LBound(shpArrOnOff) To UBound(shpArrOnOff)
                  ActivePresentation.Slides(3).Shapes.Range(shpArrOnOff(i)).IncrementRotation 30
              Next i
            For i1 = LBound(shpArrOnOff1) To UBound(shpArrOnOff1)
                  If ActivePresentation.Slides(3).Shapes("MCCB-ON-OFF").TextFrame.TextRange.Text = "ON" _
                  And ActivePresentation.Slides(3).Shapes("P-BUTTON").TextFrame.TextRange.Text = "ON" Then
                      ActivePresentation.Slides(3).Shapes.Range(shpArrOnOff1(i1)).IncrementRotation 30
                  End If
              Next i1
              For j = LBound(shpArrColor) To UBound(shpArrColor)
                  ActivePresentation.Slides(3).Shapes.Range(shpArrColor(j)).Line.ForeColor.RGB = vbRed
              Next j
              If ActivePresentation.Slides(3).Shapes("P-BUTTON").TextFrame.TextRange.Text = "ON" _
              And ActivePresentation.Slides(3).Shapes("1F1").TextFrame.TextRange.Text = "ON" Then
                  ActivePresentation.Slides(3).Shapes("Group14").Line.ForeColor.RGB = vbYellow
                  ActivePresentation.Slides(3).Shapes("Group15").Line.ForeColor.RGB = vbBlue
              End If
            DoEvents
              Sleep 10000
            For i = LBound(shpArrOnOff) To UBound(shpArrOnOff)
                ActivePresentation.Slides(3).Shapes.Range(shpArrOnOff(i)).IncrementRotation -30
            Next i
            For j = LBound(shpArrColor) To UBound(shpArrColor)
                ActivePresentation.Slides(3).Shapes.Range(shpArrColor(j)).Line.ForeColor.RGB = vbBlack
            Next j
           
            For j1 = LBound(shpArrColor1) To UBound(shpArrColor1)
                ActivePresentation.Slides(3).Shapes.Range(shpArrColor1(j1)).Line.ForeColor.RGB = vbRed
            Next j1
        End If
    End With
End Sub

---

Dear Paul,

I had modified the code my self. It is working now.

Code:

---

Sub MCI55_PUSH_BUTTON()Dim shp As Shape, shpArrOnOff, shpArrOnOff1, shpArrColor, _
    shpArrColor1, i As Long, i1 As Long, j As Long, j1 As Long
    Set shp = ActivePresentation.Slides(3).Shapes("P-BUTTON")
    shpArrColor = Array("RedClr32", "RedClr33", "RedClr37")
    shpArrColor1 = Array("RedClr34", "RedClr35", "RedClr36", "RedClr37")
    shpArrOnOff = Array("RedClr31")
    shpArrOnOff1 = Array("RedClr34", "RedClr38", "YellowClr7", "BlueClr7")
    With shp
        If ActivePresentation.Slides(3).Shapes("MCCB-ON-OFF").TextFrame.TextRange.Text = "ON" _
        And ActivePresentation.Slides(3).Shapes("P-BUTTON").TextFrame.TextRange.Text = "OFF" Then
            .Fill.ForeColor.RGB = vbGreen
            .TextFrame.TextRange.Text = "ON"
            .TextFrame.TextRange.Font.Bold = True
            For i = LBound(shpArrOnOff) To UBound(shpArrOnOff)
                ActivePresentation.Slides(3).Shapes.Range(shpArrOnOff(i)).IncrementRotation 30
            Next i
            For i1 = LBound(shpArrOnOff1) To UBound(shpArrOnOff1)
                If ActivePresentation.Slides(3).Shapes("MCCB-ON-OFF").TextFrame.TextRange.Text = "ON" _
                And ActivePresentation.Slides(3).Shapes("P-BUTTON").TextFrame.TextRange.Text = "ON" Then
                    ActivePresentation.Slides(3).Shapes.Range(shpArrOnOff1(i1)).IncrementRotation 30
                End If
            Next i1
            For j = LBound(shpArrColor) To UBound(shpArrColor)
                ActivePresentation.Slides(3).Shapes.Range(shpArrColor(j)).Line.ForeColor.RGB = vbRed
            Next j
            If ActivePresentation.Slides(3).Shapes("P-BUTTON").TextFrame.TextRange.Text = "ON" _
            And ActivePresentation.Slides(3).Shapes("1F1").TextFrame.TextRange.Text = "ON" Then
                ActivePresentation.Slides(3).Shapes("Group14").Line.ForeColor.RGB = vbYellow
                ActivePresentation.Slides(3).Shapes("Group15").Line.ForeColor.RGB = vbBlue
            End If
            Call SleepIt
            DoEvents
            Sleep 500
            For i = LBound(shpArrOnOff) To UBound(shpArrOnOff)
                ActivePresentation.Slides(3).Shapes.Range(shpArrOnOff(i)).IncrementRotation -30
            Next i
            For j = LBound(shpArrColor) To UBound(shpArrColor)
                ActivePresentation.Slides(3).Shapes.Range(shpArrColor(j)).Line.ForeColor.RGB = vbBlack
            Next j
            For j1 = LBound(shpArrColor1) To UBound(shpArrColor1)
                ActivePresentation.Slides(3).Shapes.Range(shpArrColor1(j1)).Line.ForeColor.RGB = vbRed
            Next j1
        End If
    End With
End Sub


Sub SleepIt()
    Sleep 1000
End Sub

---

Good

Glad it's working for you

Have you checked this

Quote:

---

Originally Posted by elsuji

Have you checked this

---

No. Why?

You said it was working for you

It's not the way I would do it, but just so it works for you

Dear Paul,

I created code for rotating shape once my condition is meet.

my code is

Code:

---

Sub MIXER_6K1_ON_OFF_SD()Dim shp As Shape, shpArrColor, shpArrColor1, shpArrOnOff, ShpArrRot, _
    shpArrOnOff1, shpArrOnOff2, i As Long, i1 As Long, i2 As Long, j As Long, j1 As Long, j2 As Long, x As Long
    Set shp = ActivePresentation.Slides(5).Shapes("MIXER ON/OFF")
    shpArrOnOff = Array("Orangeclr17", "RedClr7", "YellowClr7", "BlueClr7", "RedClr28")
    shpArrOnOff1 = Array("RedClr50", "YellowClr50", "BlueClr50")
    shpArrOnOff2 = Array("RedClr10", "YellowClr10", "BlueClr10")
    shpArrColor = Array("Group7", "Group8", "Group9", "Group10", "Group11", "Group12", "Group16", "Group17", "Group18", _
    "Group19", "Group20", "Group21", "Group22", "Group23", "Group24")
    shpArrColor1 = Array("Oval11", "Oval12")
    ShpArrRot = Array("Curved Down Arrow 253")
    With shp
        If .TextFrame.TextRange.Text = "ON" Then
            .Fill.ForeColor.RGB = vbRed
            .TextFrame.TextRange.Text = "OFF"
            .TextFrame.TextRange.Font.Bold = True
            For i = LBound(shpArrOnOff) To UBound(shpArrOnOff)
                ActivePresentation.Slides(5).Shapes.Range(shpArrOnOff(i)).IncrementRotation -45
                ActivePresentation.Slides(5).Shapes.Range(shpArrOnOff(i)).Line.ForeColor.RGB = vbBlack
            Next i
            For i1 = LBound(shpArrOnOff1) To UBound(shpArrOnOff1)
                If ActivePresentation.Slides(5).Shapes("Group19").Line.ForeColor.RGB = vbRed Then
                    ActivePresentation.Slides(5).Shapes.Range(shpArrOnOff1(i1)).IncrementRotation -45
                End If
            Next i1
            For i2 = LBound(shpArrOnOff2) To UBound(shpArrOnOff2)
                If ActivePresentation.Slides(5).Shapes("Group20").Line.ForeColor.RGB = vbRed Then
                    ActivePresentation.Slides(5).Shapes.Range(shpArrOnOff2(i2)).IncrementRotation -45
                    ActivePresentation.Slides(5).Shapes.Range(shpArrOnOff2(i2)).Line.ForeColor.RGB = vbBlack
                End If
            Next i2
            For j = LBound(shpArrColor) To UBound(shpArrColor)
                ActivePresentation.Slides(5).Shapes.Range(shpArrColor(j)).Line.ForeColor.RGB = vbBlack
            Next j
            For j1 = LBound(shpArrColor1) To UBound(shpArrColor1)
                ActivePresentation.Slides(5).Shapes(shpArrColor1(j1)).Line.ForeColor.RGB = vbBlack
                ActivePresentation.Slides(5).Shapes(shpArrColor1(j1)).Fill.ForeColor.RGB = vbBlack
            Next j1
            ActivePresentation.Slides(5).Shapes("RedClr19").Line.ForeColor.RGB = RGB(191, 191, 191)
            ActivePresentation.Slides(5).Shapes("RedClr20").Line.ForeColor.RGB = RGB(191, 191, 191)
            ActivePresentation.Slides(5).Shapes("Oval14").Line.ForeColor.RGB = RGB(191, 191, 191)
            ActivePresentation.Slides(5).Shapes("Oval14").Fill.ForeColor.RGB = RGB(191, 191, 191)
            ActivePresentation.Slides(5).Shapes("Oval13").Line.ForeColor.RGB = RGB(191, 191, 191)
            ActivePresentation.Slides(5).Shapes("Oval13").Fill.ForeColor.RGB = RGB(191, 191, 191)
            ActivePresentation.Slides(5).Shapes("RedClr18").Line.ForeColor.RGB = vbRed
            ActivePresentation.Slides(5).Shapes("Curved Down Arrow 253").Fill.ForeColor.RGB = vbRed
            ActivePresentation.Slides(5).Shapes("RedClr34").Line.ForeColor.RGB = RGB(191, 191, 191)
            ActivePresentation.Slides(5).Shapes("RedClr35").Line.ForeColor.RGB = RGB(191, 191, 191)
            ActivePresentation.Slides(5).Shapes("RedClr36").Line.ForeColor.RGB = RGB(191, 191, 191)
            ActivePresentation.Slides(5).Shapes("RedClr38").Line.ForeColor.RGB = RGB(191, 191, 191)
            ActivePresentation.Slides(5).Shapes("RedClr37").Line.ForeColor.RGB = RGB(191, 191, 191)
        Else
            If ActivePresentation.Slides(5).Shapes("6Q1").TextFrame.TextRange.Text = "ON" _
            And ActivePresentation.Slides(5).Shapes("6F2").TextFrame.TextRange.Text = "ON" _
            And ActivePresentation.Slides(5).Shapes("INPUT_ON_OFF").TextFrame.TextRange.Text = "ON" Then
                .Fill.ForeColor.RGB = vbGreen
                .TextFrame.TextRange.Text = "ON"
                .TextFrame.TextRange.Font.Bold = True
            End If
            If ActivePresentation.Slides(5).Shapes("MIXER ON/OFF").TextFrame.TextRange.Text = "ON" Then
                ActivePresentation.Slides(5).Shapes("Oval11").Line.ForeColor.RGB = vbGreen
                ActivePresentation.Slides(5).Shapes("Oval11").Fill.ForeColor.RGB = vbGreen
                ActivePresentation.Slides(5).Shapes("Group17").Line.ForeColor.RGB = RGB(255, 102, 0)
                ActivePresentation.Slides(5).Shapes("RedClr19").Line.ForeColor.RGB = vbRed
                ActivePresentation.Slides(5).Shapes("RedClr20").Line.ForeColor.RGB = vbRed
                ActivePresentation.Slides(5).Shapes("Group18").Line.ForeColor.RGB = vbRed
                For i = LBound(shpArrOnOff) To UBound(shpArrOnOff)
                    If ActivePresentation.Slides(5).Shapes("MIXER ON/OFF").TextFrame.TextRange.Text = "ON" _
                    And ActivePresentation.Slides(5).Shapes("INPUT_ON_OFF").TextFrame.TextRange.Text = "ON" Then
                        ActivePresentation.Slides(5).Shapes.Range(shpArrOnOff(i)).IncrementRotation 45
                    End If
              Next i
              For i1 = LBound(shpArrOnOff1) To UBound(shpArrOnOff1)
                  If ActivePresentation.Slides(5).Shapes("MIXER ON/OFF").TextFrame.TextRange.Text = "ON" _
                  And ActivePresentation.Slides(5).Shapes("INPUT_ON_OFF").TextFrame.TextRange.Text = "ON" Then
                      ActivePresentation.Slides(5).Shapes.Range(shpArrOnOff1(i1)).IncrementRotation 45
                  End If
              Next i1
              ActivePresentation.Slides(5).Shapes("Group7").Line.ForeColor.RGB = vbRed
              ActivePresentation.Slides(5).Shapes("Group8").Line.ForeColor.RGB = vbYellow
              ActivePresentation.Slides(5).Shapes("Group9").Line.ForeColor.RGB = vbBlue
              ActivePresentation.Slides(5).Shapes("Group16").Line.ForeColor.RGB = RGB(255, 102, 0)
              ActivePresentation.Slides(5).Shapes("Oval14").Line.ForeColor.RGB = vbGreen
              ActivePresentation.Slides(5).Shapes("Oval14").Fill.ForeColor.RGB = vbGreen
              ActivePresentation.Slides(5).Shapes("Oval13").Line.ForeColor.RGB = vbGreen
              ActivePresentation.Slides(5).Shapes("Oval13").Fill.ForeColor.RGB = vbGreen
              ActivePresentation.Slides(5).Shapes("RedClr28").Line.ForeColor.RGB = vbRed
              ActivePresentation.Slides(5).Shapes("RedClr7").Line.ForeColor.RGB = vbRed
              ActivePresentation.Slides(5).Shapes("YellowClr7").Line.ForeColor.RGB = vbYellow
              ActivePresentation.Slides(5).Shapes("BlueClr7").Line.ForeColor.RGB = vbBlue
              ActivePresentation.Slides(5).Shapes("RedClr18").Line.ForeColor.RGB = RGB(191, 191, 191)
              ActivePresentation.Slides(5).Shapes("Orangeclr17").Line.ForeColor.RGB = RGB(255, 102, 0)
              ActivePresentation.Slides(5).Shapes("Oval12").Line.ForeColor.RGB = vbGreen
              ActivePresentation.Slides(5).Shapes("Oval12").Fill.ForeColor.RGB = vbGreen
              ActivePresentation.Slides(5).Shapes("Group21").Line.ForeColor.RGB = vbRed
              ActivePresentation.Slides(5).Shapes("RedClr34").Line.ForeColor.RGB = vbRed
              ActivePresentation.Slides(5).Shapes("RedClr35").Line.ForeColor.RGB = vbRed
              ActivePresentation.Slides(5).Shapes("RedClr36").Line.ForeColor.RGB = vbRed
              ActivePresentation.Slides(5).Shapes("RedClr38").Line.ForeColor.RGB = vbRed
              ActivePresentation.Slides(5).Shapes("RedClr37").Line.ForeColor.RGB = RGB(191, 191, 191)
              ActivePresentation.Slides(5).Shapes("Group19").Line.ForeColor.RGB = vbRed
              ActivePresentation.Slides(5).Shapes("Curved Down Arrow 253").Fill.ForeColor.RGB = vbGreen
          End If
          ' 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(5).Shapes(ShpArrRot(x))
              Ratio = 0
              Do
                  ' Rotate clockwise
                  Ratio = Ratio + 0.02
                  If ActivePresentation.Slides(5).Shapes("MIXER ON/OFF").TextFrame.TextRange.Text = "OFF" Then Exit Do
                  ' Calc the rotation angle in degrees
                  phi = (MinAngle + (MaxAngle - MinAngle) * Ratio) Mod 360
                  Debug.Print "phi = "; phi
                  ' Rotate shape
                  .Rotation = phi
                  ' Make pause
                  t = Timer + 0.01: While Timer < t: DoEvents: Wend
                  ContinueDo:
              Loop 'While True
          End With
          Dim WAIT As Double
          WAIT = Timer
          While Timer < WAIT + 5
              DoEvents  'do nothing
          Wend
          If ActivePresentation.Slides(5).Shapes("MIXER ON/OFF").TextFrame.TextRange.Text = "ON" Then
              ActivePresentation.Slides(5).Shapes("RedClr36").Line.ForeColor.RGB = RGB(191, 191, 191)
              ActivePresentation.Slides(5).Shapes("RedClr38").Line.ForeColor.RGB = RGB(191, 191, 191)
              ActivePresentation.Slides(5).Shapes("RedClr37").Line.ForeColor.RGB = vbRed
              ActivePresentation.Slides(5).Shapes("Group20").Line.ForeColor.RGB = vbRed
              ActivePresentation.Slides(5).Shapes("Group19").Line.ForeColor.RGB = vbBlack
              For i1 = LBound(shpArrOnOff1) To UBound(shpArrOnOff1)
                  ActivePresentation.Slides(5).Shapes.Range(shpArrOnOff1(i1)).IncrementRotation -45
              Next i1
              For i2 = LBound(shpArrOnOff2) To UBound(shpArrOnOff2)
                  ActivePresentation.Slides(5).Shapes.Range(shpArrOnOff2(i2)).IncrementRotation 45
              Next i2
                  ActivePresentation.Slides(5).Shapes("RedClr10").Line.ForeColor.RGB = vbRed
                  ActivePresentation.Slides(5).Shapes("YellowClr10").Line.ForeColor.RGB = vbYellow
                  ActivePresentation.Slides(5).Shapes("BlueClr10").Line.ForeColor.RGB = vbBlue
                  ActivePresentation.Slides(5).Shapes("Group12").Line.ForeColor.RGB = vbBlue
                  ActivePresentation.Slides(5).Shapes("Group22").Line.ForeColor.RGB = vbBlue
                  ActivePresentation.Slides(5).Shapes("Group11").Line.ForeColor.RGB = vbYellow
                  ActivePresentation.Slides(5).Shapes("Group23").Line.ForeColor.RGB = vbYellow
                  ActivePresentation.Slides(5).Shapes("Group10").Line.ForeColor.RGB = vbRed
                  ActivePresentation.Slides(5).Shapes("Group24").Line.ForeColor.RGB = vbRed
            End If
        End If
    End With
End Sub

---

this code is running my loop command

Code:

---

Sub MIXER_6K1_ON_OFF_SD()
    Dim shp As Shape, shpArrColor, shpArrColor1, shpArrOnOff, ShpArrRot, shpArrOnOff1, _
    shpArrOnOff2, i As Long, i1 As Long, i2 As Long, j As Long, j1 As Long, j2 As Long, x As Long
    Set shp = ActivePresentation.Slides(5).Shapes("MIXER ON/OFF")
    shpArrOnOff = Array("Orangeclr17", "RedClr7", "YellowClr7", "BlueClr7", "RedClr28")
    shpArrOnOff1 = Array("RedClr50", "YellowClr50", "BlueClr50")
    shpArrOnOff2 = Array("RedClr10", "YellowClr10", "BlueClr10")
    shpArrColor = Array("Group7", "Group8", "Group9", "Group10", "Group11", "Group12", "Group16", "Group17", "Group18", _
    "Group19", "Group20", "Group21", "Group22", "Group23", "Group24")
    shpArrColor1 = Array("Oval11", "Oval12")
    ShpArrRot = Array("Curved Down Arrow 253")
    With shp
        If .TextFrame.TextRange.Text = "ON" Then
            .Fill.ForeColor.RGB = vbRed
            .TextFrame.TextRange.Text = "OFF"
            .TextFrame.TextRange.Font.Bold = True
            For i = LBound(shpArrOnOff) To UBound(shpArrOnOff)
                ActivePresentation.Slides(5).Shapes.Range(shpArrOnOff(i)).IncrementRotation -45
                ActivePresentation.Slides(5).Shapes.Range(shpArrOnOff(i)).Line.ForeColor.RGB = vbBlack
            Next i
            For i1 = LBound(shpArrOnOff1) To UBound(shpArrOnOff1)
                If ActivePresentation.Slides(5).Shapes("Group19").Line.ForeColor.RGB = vbRed Then
                    ActivePresentation.Slides(5).Shapes.Range(shpArrOnOff1(i1)).IncrementRotation -45
                End If
            Next i1
            For i2 = LBound(shpArrOnOff2) To UBound(shpArrOnOff2)
                If ActivePresentation.Slides(5).Shapes("Group20").Line.ForeColor.RGB = vbRed Then
                    ActivePresentation.Slides(5).Shapes.Range(shpArrOnOff2(i2)).IncrementRotation -45
                    ActivePresentation.Slides(5).Shapes.Range(shpArrOnOff2(i2)).Line.ForeColor.RGB = vbBlack
                End If
                Next i2
                For j = LBound(shpArrColor) To UBound(shpArrColor)
                    ActivePresentation.Slides(5).Shapes.Range(shpArrColor(j)).Line.ForeColor.RGB = vbBlack
                Next j
                For j1 = LBound(shpArrColor1) To UBound(shpArrColor1)
                    ActivePresentation.Slides(5).Shapes(shpArrColor1(j1)).Line.ForeColor.RGB = vbBlack
                    ActivePresentation.Slides(5).Shapes(shpArrColor1(j1)).Fill.ForeColor.RGB = vbBlack
                Next j1
                ActivePresentation.Slides(5).Shapes("RedClr19").Line.ForeColor.RGB = RGB(191, 191, 191)
                ActivePresentation.Slides(5).Shapes("RedClr20").Line.ForeColor.RGB = RGB(191, 191, 191)
                ActivePresentation.Slides(5).Shapes("Oval14").Line.ForeColor.RGB = RGB(191, 191, 191)
                ActivePresentation.Slides(5).Shapes("Oval14").Fill.ForeColor.RGB = RGB(191, 191, 191)
                ActivePresentation.Slides(5).Shapes("Oval13").Line.ForeColor.RGB = RGB(191, 191, 191)
                ActivePresentation.Slides(5).Shapes("Oval13").Fill.ForeColor.RGB = RGB(191, 191, 191)
                ActivePresentation.Slides(5).Shapes("RedClr18").Line.ForeColor.RGB = vbRed
                ActivePresentation.Slides(5).Shapes("Curved Down Arrow 253").Fill.ForeColor.RGB = vbRed
                ActivePresentation.Slides(5).Shapes("RedClr34").Line.ForeColor.RGB = RGB(191, 191, 191)
                ActivePresentation.Slides(5).Shapes("RedClr35").Line.ForeColor.RGB = RGB(191, 191, 191)
                ActivePresentation.Slides(5).Shapes("RedClr36").Line.ForeColor.RGB = RGB(191, 191, 191)
                ActivePresentation.Slides(5).Shapes("RedClr38").Line.ForeColor.RGB = RGB(191, 191, 191)
                ActivePresentation.Slides(5).Shapes("RedClr37").Line.ForeColor.RGB = RGB(191, 191, 191)
            Else
                If ActivePresentation.Slides(5).Shapes("6Q1").TextFrame.TextRange.Text = "ON" _
                  And ActivePresentation.Slides(5).Shapes("6F2").TextFrame.TextRange.Text = "ON" _
                  And ActivePresentation.Slides(5).Shapes("INPUT_ON_OFF").TextFrame.TextRange.Text = "ON" Then
                  .Fill.ForeColor.RGB = vbGreen
                  .TextFrame.TextRange.Text = "ON"
                  .TextFrame.TextRange.Font.Bold = True
              End If
              If ActivePresentation.Slides(5).Shapes("MIXER ON/OFF").TextFrame.TextRange.Text = "ON" Then
                  ActivePresentation.Slides(5).Shapes("Oval11").Line.ForeColor.RGB = vbGreen
                  ActivePresentation.Slides(5).Shapes("Oval11").Fill.ForeColor.RGB = vbGreen
                  ActivePresentation.Slides(5).Shapes("Group17").Line.ForeColor.RGB = RGB(255, 102, 0)
                  ActivePresentation.Slides(5).Shapes("RedClr19").Line.ForeColor.RGB = vbRed
                  ActivePresentation.Slides(5).Shapes("RedClr20").Line.ForeColor.RGB = vbRed
                  ActivePresentation.Slides(5).Shapes("Group18").Line.ForeColor.RGB = vbRed
                  For i = LBound(shpArrOnOff) To UBound(shpArrOnOff)
                      If ActivePresentation.Slides(5).Shapes("MIXER ON/OFF").TextFrame.TextRange.Text = "ON" _
                          And ActivePresentation.Slides(5).Shapes("INPUT_ON_OFF").TextFrame.TextRange.Text = "ON" Then
                          ActivePresentation.Slides(5).Shapes.Range(shpArrOnOff(i)).IncrementRotation 45
                      End If
                Next i
                For i1 = LBound(shpArrOnOff1) To UBound(shpArrOnOff1)
                    If ActivePresentation.Slides(5).Shapes("MIXER ON/OFF").TextFrame.TextRange.Text = "ON" _
                        And ActivePresentation.Slides(5).Shapes("INPUT_ON_OFF").TextFrame.TextRange.Text = "ON" Then
                        ActivePresentation.Slides(5).Shapes.Range(shpArrOnOff1(i1)).IncrementRotation 45
                    End If
                Next i1
                ActivePresentation.Slides(5).Shapes("Group7").Line.ForeColor.RGB = vbRed
                ActivePresentation.Slides(5).Shapes("Group8").Line.ForeColor.RGB = vbYellow
                ActivePresentation.Slides(5).Shapes("Group9").Line.ForeColor.RGB = vbBlue
                ActivePresentation.Slides(5).Shapes("Group16").Line.ForeColor.RGB = RGB(255, 102, 0)
                ActivePresentation.Slides(5).Shapes("Oval14").Line.ForeColor.RGB = vbGreen
                ActivePresentation.Slides(5).Shapes("Oval14").Fill.ForeColor.RGB = vbGreen
                ActivePresentation.Slides(5).Shapes("Oval13").Line.ForeColor.RGB = vbGreen
                ActivePresentation.Slides(5).Shapes("Oval13").Fill.ForeColor.RGB = vbGreen
                ActivePresentation.Slides(5).Shapes("RedClr28").Line.ForeColor.RGB = vbRed
                ActivePresentation.Slides(5).Shapes("RedClr7").Line.ForeColor.RGB = vbRed
                ActivePresentation.Slides(5).Shapes("YellowClr7").Line.ForeColor.RGB = vbYellow
                ActivePresentation.Slides(5).Shapes("BlueClr7").Line.ForeColor.RGB = vbBlue
                ActivePresentation.Slides(5).Shapes("RedClr18").Line.ForeColor.RGB = RGB(191, 191, 191)
                ActivePresentation.Slides(5).Shapes("Orangeclr17").Line.ForeColor.RGB = RGB(255, 102, 0)
                ActivePresentation.Slides(5).Shapes("Oval12").Line.ForeColor.RGB = vbGreen
                ActivePresentation.Slides(5).Shapes("Oval12").Fill.ForeColor.RGB = vbGreen
                ActivePresentation.Slides(5).Shapes("Group21").Line.ForeColor.RGB = vbRed
                ActivePresentation.Slides(5).Shapes("RedClr34").Line.ForeColor.RGB = vbRed
                ActivePresentation.Slides(5).Shapes("RedClr35").Line.ForeColor.RGB = vbRed
                ActivePresentation.Slides(5).Shapes("RedClr36").Line.ForeColor.RGB = vbRed
                ActivePresentation.Slides(5).Shapes("RedClr38").Line.ForeColor.RGB = vbRed
                ActivePresentation.Slides(5).Shapes("RedClr37").Line.ForeColor.RGB = RGB(191, 191, 191)
                ActivePresentation.Slides(5).Shapes("Group19").Line.ForeColor.RGB = vbRed
                ActivePresentation.Slides(5).Shapes("Curved Down Arrow 253").Fill.ForeColor.RGB = vbGreen
            End If
            ' 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(5).Shapes(ShpArrRot(x))
              Ratio = 0
              Do
                  ' Rotate clockwise
                  Ratio = Ratio + 0.02
                  If ActivePresentation.Slides(5).Shapes("MIXER ON/OFF").TextFrame.TextRange.Text = "OFF" Then Exit Do
                  ' Calc the rotation angle in degrees
                  phi = (MinAngle + (MaxAngle - MinAngle) * Ratio) Mod 360
                  Debug.Print "phi = "; phi
                  ' Rotate shape
                  .Rotation = phi
                  ' Make pause
                  t = Timer + 0.01: While Timer < t: DoEvents: Wend
                  ContinueDo:
              Loop 'While True
          End With

---

Once it is reached after 5 second it should run the below command

Code:

---

Dim WAIT As DoubleWAIT = Timer
While Timer < WAIT + 5
  DoEvents  'do nothing
Wend
    If ActivePresentation.Slides(5).Shapes("MIXER ON/OFF").TextFrame.TextRange.Text = "ON" Then
        ActivePresentation.Slides(5).Shapes("RedClr36").Line.ForeColor.RGB = RGB(191, 191, 191)
        ActivePresentation.Slides(5).Shapes("RedClr38").Line.ForeColor.RGB = RGB(191, 191, 191)
        ActivePresentation.Slides(5).Shapes("RedClr37").Line.ForeColor.RGB = vbRed
        ActivePresentation.Slides(5).Shapes("Group20").Line.ForeColor.RGB = vbRed
        ActivePresentation.Slides(5).Shapes("Group19").Line.ForeColor.RGB = vbBlack
        For i1 = LBound(shpArrOnOff1) To UBound(shpArrOnOff1)
            ActivePresentation.Slides(5).Shapes.Range(shpArrOnOff1(i1)).IncrementRotation -45
        Next i1
        For i2 = LBound(shpArrOnOff2) To UBound(shpArrOnOff2)
            ActivePresentation.Slides(5).Shapes.Range(shpArrOnOff2(i2)).IncrementRotation 45
        Next i2
        ActivePresentation.Slides(5).Shapes("RedClr10").Line.ForeColor.RGB = vbRed
        ActivePresentation.Slides(5).Shapes("YellowClr10").Line.ForeColor.RGB = vbYellow
        ActivePresentation.Slides(5).Shapes("BlueClr10").Line.ForeColor.RGB = vbBlue
        ActivePresentation.Slides(5).Shapes("Group12").Line.ForeColor.RGB = vbBlue
        ActivePresentation.Slides(5).Shapes("Group22").Line.ForeColor.RGB = vbBlue
        ActivePresentation.Slides(5).Shapes("Group11").Line.ForeColor.RGB = vbYellow
        ActivePresentation.Slides(5).Shapes("Group23").Line.ForeColor.RGB = vbYellow
        ActivePresentation.Slides(5).Shapes("Group10").Line.ForeColor.RGB = vbRed
        ActivePresentation.Slides(5).Shapes("Group24").Line.ForeColor.RGB = vbRed
    End If

---

But is not working. means after loop it is not going to next command.

Can you please help me how to do this

It's easier to check if you can attach a presentation with the macros and shapes and slides and etc.

Dear Paul,

Attached my file here. Go to slide no 5

Dear Paul,

Please reply me for above my problem

Sorry

I was not able to figure it out

Maybe someone else here can help