J
Jeff
I'm looking for some help with a bit of vb code.
I'm have a text box on a slide to allow users to type in the box. There is
also a command button that looks at the contents of the box and goes to the
appropriate slide. I have listed the vb code below
Private Sub CommandButton1_Click()
With Slide1
If UCase(TextBox1.Text) = "TEST" Then
MsgBox "You typed TEST. I should now go to slide 3"
With SlideShowWindows(1).View
.GotoSlide 3, msoTrue
End With
Else
MsgBox "You typed something else. I should now go to slide 2"
With SlideShowWindows(1).View
.GotoSlide 2, msoTrue
End With
End If
End With
End Sub
All works well until I exit PowerPoint. When I open the presentation again
the button doesn't work. If I copy the code to a new presentation it works
fine until I exit.
I'm obviously missing something. Any help greatly appreciated.
I'm have a text box on a slide to allow users to type in the box. There is
also a command button that looks at the contents of the box and goes to the
appropriate slide. I have listed the vb code below
Private Sub CommandButton1_Click()
With Slide1
If UCase(TextBox1.Text) = "TEST" Then
MsgBox "You typed TEST. I should now go to slide 3"
With SlideShowWindows(1).View
.GotoSlide 3, msoTrue
End With
Else
MsgBox "You typed something else. I should now go to slide 2"
With SlideShowWindows(1).View
.GotoSlide 2, msoTrue
End With
End If
End With
End Sub
All works well until I exit PowerPoint. When I open the presentation again
the button doesn't work. If I copy the code to a new presentation it works
fine until I exit.
I'm obviously missing something. Any help greatly appreciated.