PowerPoint - VBS - Auto enable - Security Alert – ActiveX Control RRS feed

  • Question

  • We use a script to launch a PowerPoint presentation but within the presentation we have links to other documents and external sites,

    The PowePoint is launched from this script,  it starts up, updates links to other documents but you then get prompted to enable other content…

    Security Alert – ActiveX Control

    can this be done within the startup script? I want It to enable all content and not show any popups as this is running on a PC without a Keyboard or mouse

    The presentation needs to open and run seamlessly without any user input.

    The Script:

     On Error Resume Next

    Const ppAdvanceOnTime = 2

    Const ppShowTypeKiosk = 3

    Const ppSlideShowDone = 100000000

    Set objPPT = CreateObject("PowerPoint.Application")

    objPPT.Visible = True

    Set objPresentation = objPPT.Presentations.Open("\\server1\Test.pptx")


    objPresentation.Slides.Range.SlideShowTransition.AdvanceTime = 10

    objPresentation.Slides.Range.SlideShowTransition.AdvanceOnTime = TRUE

    objPresentation.SlideShowSettings.AdvanceMode = ppAdvanceOnTime

    objPresentation.SlideShowSettings.ShowType = ppShowTypeKiosk

    objPresentation.SlideShowSettings.StartingSlide = 1

    objPresentation.SlideShowSettings.EndingSlide = _


    Set objSlideShow = objPresentation.SlideShowSettings.Run.View

    objPresentation.SlideShowWindow.View.PointerType = ppSlideShowPointerAlwaysHidden

    Do Until objSlideShow.State = ppSlideShowDone


    Monday, July 30, 2012 11:26 AM

All replies

  • Hi DanC383,

    Thanks for posting in the MSDN Forum.

    Would you please clarify your working platform and your PowerPoint's version for further research?

    Have a  good day,


    Tom Xu [MSFT]
    MSDN Community Support | Feedback to us

    Tuesday, July 31, 2012 2:49 AM
  • Hi Tom, The platform is windows 7 enterprise 64 bit And microsoft office 2007 Cheers.
    Thursday, August 2, 2012 9:33 AM