-
Jan 29th, 2013, 09:05 PM
#1
Thread Starter
Junior Member
Bringing PowerPoint Show - .ppsm to front
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
-
Jan 29th, 2013, 09:15 PM
#2
Thread Starter
Junior Member
Re: Bringing PowerPoint Show - .ppsm to front
Just a note - I'm using Windows 7. I someone can help me it would be great, really need this working soon. Ta
-
Jan 29th, 2013, 10:18 PM
#3
Re: Bringing PowerPoint Show - .ppsm to front
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.
-
Feb 4th, 2013, 03:49 AM
#4
Thread Starter
Junior Member
Re: Bringing PowerPoint Show - .ppsm to front
Sorr for late replay here is my code
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
-
Feb 4th, 2013, 05:08 AM
#5
PowerPoster
Re: Bringing PowerPoint Show - .ppsm to front
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!!
I have a huge free products range, of computer software in which you can download using any kind of 64-Bit Web Browser. Also there is coming a Social Networking section that I am making on my Website...
|Ambra Productions Inc. | The Black Sun Society | The Black Shield | Ambra College | Church of the Black Sun | Ambra Productions Inc's Homepage | Boomtick Event's Venues: Ambar Nightclub, Jack Rabbit Slim's, Villa Nightclub and Lucy's Bar | Pasta Ambra | Fish Feast Company | Wallet Wizard | Ambrose Liquor | Ambar Tavern | Ambra University |
Do you wish to do unpaid work for me??? If so, the PM me on this Forum, and then we can get to work, programming for the future of computers go by the name of ThEiMp. This is my ghost writers name. Also my nickname, means that I am: The Imperial of the Technology Industry, so then to make it really short, I just then wrote: The Imp, which is where I get the nickname from...
-
Feb 4th, 2013, 06:24 AM
#6
Thread Starter
Junior Member
Re: Bringing PowerPoint Show - .ppsm to front
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?
-
Feb 4th, 2013, 09:35 AM
#7
Re: Bringing PowerPoint Show - .ppsm to front
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)/
Code:
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
-
Feb 5th, 2013, 12:21 AM
#8
PowerPoster
Re: Bringing PowerPoint Show - .ppsm to front
Cool hey, that was really good. So then we can be able to make a PowerPoint Show work better for us, programmers!!
I have a huge free products range, of computer software in which you can download using any kind of 64-Bit Web Browser. Also there is coming a Social Networking section that I am making on my Website...
|Ambra Productions Inc. | The Black Sun Society | The Black Shield | Ambra College | Church of the Black Sun | Ambra Productions Inc's Homepage | Boomtick Event's Venues: Ambar Nightclub, Jack Rabbit Slim's, Villa Nightclub and Lucy's Bar | Pasta Ambra | Fish Feast Company | Wallet Wizard | Ambrose Liquor | Ambar Tavern | Ambra University |
Do you wish to do unpaid work for me??? If so, the PM me on this Forum, and then we can get to work, programming for the future of computers go by the name of ThEiMp. This is my ghost writers name. Also my nickname, means that I am: The Imperial of the Technology Industry, so then to make it really short, I just then wrote: The Imp, which is where I get the nickname from...
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|