• Next Slide (2000)

    Author
    Topic
    #401339

    Is there any other way to move to the next slide using VBA other than:

    SlideShowWindows(1).View.GotoSlide 3

    The reason I ask is that the above code falls over if the PPS file is run from a web page. Basically all I want the show to do at a certain point is go to the next slide.
    Is there a command like:

    Application.goto.NextSlide

    or similar? Thanks for your help!

    Viewing 5 reply threads
    Author
    Replies
    • #790357

      I take it then that

      SlideShowWindows(1).View.GotoSlide 3

      is the only way to go to the next slide? Just happens to be slide 3 on this code.
      This code seems error prone. It assumes that the current slideshow is always in the same position on the Windows menu. Further, if you edit your slideshow you have to go in and change every little one of these suckers. Surely there is a more efficient way!

      If you know of one, please let me know! Thanks for your help.

    • #790358

      I take it then that

      SlideShowWindows(1).View.GotoSlide 3

      is the only way to go to the next slide? Just happens to be slide 3 on this code.
      This code seems error prone. It assumes that the current slideshow is always in the same position on the Windows menu. Further, if you edit your slideshow you have to go in and change every little one of these suckers. Surely there is a more efficient way!

      If you know of one, please let me know! Thanks for your help.

    • #790411

      I’m not sure I understand your situation. Is this a ppt presentation that has been made into a web presentation and is actually stored in HTML? If that’s the case you are pretty much limited to VB Script.

      • #791124

        Thanks Stuart and Wendell for your input.

        Wendell, just to explain, I load my PPS onto an intranet site and link it to an HTML page via its URL. So when the user looks at the web page s/he reads “To start this mindblowing presentation, click here”. When the user clicks on ‘click here’, the PPS starts.

        The transitions work fine, but on the second slide the show grinds to a halt at the “SlideShowWindows(1).View.GotoSlide 3” command, which is accessed via VB, hence my enquiry as to an alternative way of moving to the next slide.

        The reason for this code is that I’ve put two text boxes on that slide and the ‘login’ button tests to ensure that the correct entries are made into those text boxes. Here is the code for that button:

        If UNam.Text = “TUSER1” Then
        If Pword.Text = “TUSER1” Then
        UNam.Text = “”
        Pword = “”
        SlideShowWindows(1).View.GotoSlide 3
        Exit Sub
        Else
        MsgBox “You did not enter the correct Password. Please try again.” & vbCrLf & vbCrLf & “Remember to use EXACT CASE.”, vbOKOnly, “Incorrect Password”
        ‘Pword = “”
        Exit Sub
        End If
        End If
        MsgBox “You did not enter the correct Username. Please try again.” & vbCrLf & vbCrLf & “Remember to use EXACT CASE.”, vbOKOnly, “Incorrect Username”

        Thanks again for your help.

      • #791125

        Thanks Stuart and Wendell for your input.

        Wendell, just to explain, I load my PPS onto an intranet site and link it to an HTML page via its URL. So when the user looks at the web page s/he reads “To start this mindblowing presentation, click here”. When the user clicks on ‘click here’, the PPS starts.

        The transitions work fine, but on the second slide the show grinds to a halt at the “SlideShowWindows(1).View.GotoSlide 3” command, which is accessed via VB, hence my enquiry as to an alternative way of moving to the next slide.

        The reason for this code is that I’ve put two text boxes on that slide and the ‘login’ button tests to ensure that the correct entries are made into those text boxes. Here is the code for that button:

        If UNam.Text = “TUSER1” Then
        If Pword.Text = “TUSER1” Then
        UNam.Text = “”
        Pword = “”
        SlideShowWindows(1).View.GotoSlide 3
        Exit Sub
        Else
        MsgBox “You did not enter the correct Password. Please try again.” & vbCrLf & vbCrLf & “Remember to use EXACT CASE.”, vbOKOnly, “Incorrect Password”
        ‘Pword = “”
        Exit Sub
        End If
        End If
        MsgBox “You did not enter the correct Username. Please try again.” & vbCrLf & vbCrLf & “Remember to use EXACT CASE.”, vbOKOnly, “Incorrect Username”

        Thanks again for your help.

    • #790412

      I’m not sure I understand your situation. Is this a ppt presentation that has been made into a web presentation and is actually stored in HTML? If that’s the case you are pretty much limited to VB Script.

    • #790473

      A quick look through the object browser suggests that SlideShowWindows(1).View.Next may do what you need.

      StuartR

    • #790474

      A quick look through the object browser suggests that SlideShowWindows(1).View.Next may do what you need.

      StuartR

    Viewing 5 reply threads
    Reply To: Next Slide (2000)

    You can use BBCodes to format your content.
    Your account can't use all available BBCodes, they will be stripped before saving.

    Your information: