Results 1 to 2 of 2

Thread: Changing Slideshow viewing mode to kiosk using vba

  1. #1
    Junior Member
    Join Date
    May 2013
    Posts
    1
    Rep Power
    0

    Changing Slideshow viewing mode to kiosk using vba

    Hello all,


    Additionally this is all part of a large macro which is designed to switch the slideshow from presenter mode to kiosk mode when at a specific slide. The code I am using is below.

    Code:
    Sub Kioskmode()
    With ActivePresentation.SlideShowSettings
    .ShowType = ppShowTypeKiosk ' or ppShowTypeSpeaker etc
    .LoopUntilStopped = msoFalse
    .ShowWithNarration = msoTrue
    .ShowWithAnimation = msoTrue
    .RangeType = ppShowAll
    .AdvanceMode = ppSlideShowUseSlideTimings
    .PointerColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
    .Run
    End With
    
    Sub switchmodes()
    Call Kioskmode
    ActivePresentation.SlideShowWindow.View.Exit
    ActivePresentation.SlideShowSettings.Run
    ActivePresentation.SlideShowWindow.View.GotoSlide (3)
    End Sub
    Is there a better/smoother way to do this without slideshows closing and opening and jumping between slides? Ideally I would like to click a button on slide x and move to slide y changing to kiosk mode on route.

    If this is not possible is there a way to open a slideshow at a specific slide. I am currently using the code below. This opens the slideshow, then moves to the selected slide (3). This looks messy though as it shows slide 1 briefly then slide 3. Any ideas on how to open at slide 3 instead without going via slide 1?

    Code:
    Sub Openslideshow()
    ActivePresentation.SlideShowSettings.Run.
    ActivePresentation.SlideShowWindow.View.GotoSlide (3)
    End Sub
    Thanks for your help!
    Last edited by Excel Fox; 05-10-2013 at 12:28 AM. Reason: Code Tags Added

  2. #2
    Administrator Excel Fox's Avatar
    Join Date
    Mar 2011
    Posts
    1,402
    Rep Power
    10
    To open a slideshow at a specific slide, just hide all the previous slides and save it as a PowerPoint Show. Now, although you can still start from slide 1 from within the application (if you have the file open, and not in Kiosk mode), when the 'Show' loads, it will always show the first 'non-hidden' slide.
    A dream is not something you see when you are asleep, but something you strive for when you are awake.

    It's usually a bad idea to say that something can't be done.

    The difference between dream and aim, is that one requires soundless sleep to see and the other requires sleepless efforts to achieve

    Join us at Facebook

Similar Threads

  1. Combobox Not Working In Excel Workbook Shared Mode
    By peter renton in forum Excel Help
    Replies: 15
    Last Post: 06-03-2013, 01:25 PM
  2. VBA Code Works Only in debug Mode.
    By princ_wns in forum Excel Help
    Replies: 2
    Last Post: 06-17-2012, 06:14 AM
  3. Changing Hyperlink To Another Sheet By Changing Value Of Cell
    By Excel Fox in forum Excel and VBA Tips and Tricks
    Replies: 0
    Last Post: 04-30-2011, 11:55 PM
  4. Replies: 0
    Last Post: 04-03-2011, 07:57 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •