Bringing PowerPoint Show - .ppsm to front

[Huttojb]

Hi gents

I'm wrinting some VB6 code, where i open a powerpont presentation show, which works great under debug mode, but as soon as I build the .exe and run the software, the ppsm file is behind the vb6 application.

How can i bring the ppsm application to the front and maximised as a show?

Can anyone help please, ta

Jason

[Huttojb]

Just a note - I'm using Windows 7. I someone can help me it would be great, really need this working soon. Ta

[SamOscarBrown]

Can we see your file export/save? Are you using ".ShowType = ppShowTypeKiosk"? In my use of PPT, I don't do ppsm's, just slide packs (ppt, pptx). All I do is is make it visible and it appears on top of all apps (including my VB)...So, if you could post your export routine, I might be able to assist.

[Huttojb]

Sorr for late replay here is my code

'Option Explicit
Dim WithEvents oPPTAppEvents As PowerPoint.Application
Dim oPPTApp As PowerPoint.Application
Dim oPPTPres As PowerPoint.Presentation
Dim PresPath As String

   Set oPPTApp = CreateObject("PowerPoint.Application")
    
    If Not oPPTApp Is Nothing Then
        
        Set oPPTAppEvents = New PowerPoint.Application
        
        List1.AddItem "All slide show events are being monitored..."
        
        Txt_Data(4).Text = Format(Now(), "dd-mmm-yy hh:mm:ss")
        
        With oPPTApp
            
            Set oPPTPres = .Presentations.Open(PresPath, , , True)
            'Set oPPTPres = .Presentations.Open(PresPath, , , False)

            If Not oPPTPres Is Nothing Then
                
                oPPTPres.SlideShowSettings.Run
            
            Else
                
                MsgBox "The code could not open the specified file." & _
                        "Check if the file is present at the location.", _
                        vbCritical + vbOKOnly, "PowerPoint Automation Example"
            
            End If
        
        End With
    
    Else
        
        MsgBox "The code failed to instantiate PowerPoint session.", _
                vbCritical + vbOKOnly, "PowerPoint Automation Example"
    
    End If

[ThEiMp]

I would like very much to know how to do this, so then I am going to post and then find out for myself...
Thanks, again!!

[Huttojb]

Mine works - It seems to work when I minimize all the forms, and then show them again afterwards! not sure if this is the best way though?

[SamOscarBrown]

I put your code in a command button, changed one of your DIM statements (removed withEvents), changed your 'TRUE' option to false, and it works just fine.....try this in a commandbtn (changed the path/filename to YOURS)/

Dim oPPTAppEvents As PowerPoint.Application 'I REMOVED "WITHEVENTS"
Dim oPPTApp As PowerPoint.Application
Dim oPPTPres As PowerPoint.Presentation
Dim PresPath As String
   Set oPPTApp = CreateObject("PowerPoint.Application")
    PresPath = App.Path & "\test.ppsx"   'CHANGE THIS TO THE PATH AND FILENAME OF YOUR PPT PRESENTATION
    If Not oPPTApp Is Nothing Then
         Set oPPTAppEvents = New PowerPoint.Application
'        List1.AddItem "All slide show events are being monitored..."  'I COMMENTED OUT THIS, AND NEXT LINE, AS I DONT HAVE THESE CONTROLS ON MY FORM...YOU CAN LEAVE THEM UNCOMMENTED
'        Txt_Data(4).Text = Format(Now(), "dd-mmm-yy hh:mm:ss")
        With oPPTApp
            Set oPPTPres = .Presentations.Open(PresPath, , , False)  'I CHANGED TRUE TO FALSE (LIKE YOU ORIG HAD-NEXT LINE)
            'Set oPPTPres = .Presentations.Open(PresPath, , , False)
            If Not oPPTPres Is Nothing Then
                oPPTPres.SlideShowSettings.Run
            Else
                 MsgBox "The code could not open the specified file." & _
                        "Check if the file is present at the location.", _
                        vbCritical + vbOKOnly, "PowerPoint Automation Example"
             End If
         End With
    Else
        MsgBox "The code failed to instantiate PowerPoint session.", _
                vbCritical + vbOKOnly, "PowerPoint Automation Example"
    End If

[ThEiMp]

Cool hey, that was really good. So then we can be able to make a PowerPoint Show work better for us, programmers!!