I am using Access 2007 to create a kiosk application. The main screen has an embedded powerpoint presentation which i have been able to automate so that it will play every x seconds. I also have buttons that will do next, stop and previous so the user can easily navigate if they want to relook at a slide (typically advertisments) The issue now is purely asthetics. I would like the transitions to show and currently they do not. I had to put an echo command in to elimiante the screen from going blank as it reloaded a slide. I am happy where i am at but i know that the users would perfer to have the transitions that you get in powerpoint to display on the kiosks.
Private Sub Form_Load()
On Error GoTo insertShow_Click_Error
' Open PowerPoint
Dim strPowerPointFile As String
Dim pptobj As PowerPoint.Application
Set pptobj = New PowerPoint.Application
pptobj.Visible = True
pptobj.WindowState = ppWindowMinimized
strPowerPointFile = "C:\Users\me\desktop\file.pptx"
' Fill a collection with all Slide IDs.
Set mcolSlideIDs = New Collection
Dim ppSlide As PowerPoint.Slide
For Each ppSlide In .Slides
' Close PowerPoint
Set pptobj = Nothing
' Make object frame visible and enable "navigation" buttons.
pptFrame.Visible = True
' FirstSlide.Enabled = True
'lastSlide.Enabled = True
'nextslide.Enabled = True
' previousSlide.Enabled = True
' Specify OLE Class, Type, SourceDoc, SourceItem and other properties.
.Class = "Microsoft Powerpoint Slide"
.OLETypeAllowed = acOLELinked
.SourceDoc = strPowerPointFile
MsgBox Err.Number & " " & Err.Description