Solved Office PowerPoint

forum.sourcecode (2000-2005) & forum.td.sourcecode (2005-2010)
Nicole Fernholz

Office PowerPoint

Post by Nicole Fernholz » 29 Dec 2006, 10:29

 Posted by:  Nicole Fernholz 

Hallo,

I would like to manage a powerpoint via an small program written in gupta
2005.1.
When included the MS Office (XP) PowerPoint Object Library 10 it would be
possible to open the PowerPoint-Application but I have problems to load a
ppt-file into it.

Code: Select all

If oApp.Create(  )
	Call oApp.CreateObject( "PowerPoint.Application" )
	!
	Call oApp.PropSetWindowState( 1 )
	Call oApp.PropSetVisible( TRUE )
	Call oApp.Activate(  )
	Call oApp.PropSetWindowState( PowerPoint_PpWindowState_ppWindowMaximized )
	!
	Call oPres.Open( 'C:\\test.ppt', 1, 1, 2, oPre )
	...
Is there anyone who can help me?

nic

Dave Rabelink
Founder/Site Admin
Founder/Site Admin
Netherlands
Posts: 3384
Joined: 24 Feb 2017, 09:12
Location: Gouda, The Netherlands

Re: Office PowerPoint

Post by Dave Rabelink » 29 Dec 2006, 13:24

Try this :

Code: Select all

Variables:
	PowerPoint_Application: oApp
	PowerPoint_Presentations: oPresentations
	PowerPoint_Presentation: oPresentation

If oApp.Create(  )
  If oApp.PropGetPresentations( oPresentations )
     If oPresentations.Open( 'c:\\test.ppt', 1, 1, 2, oPresentation )
Dave

Nicole Fernholz

Re: Office PowerPoint

Post by Nicole Fernholz » 29 Dec 2006, 13:29

 Posted by:  Nicole Fernholz 

Thanks :-)

2006

Nic

Re: Office PowerPoint

Post by Nic » 02 Jan 2007, 10:26

 Posted by:  Nic 

Hallo Dave,

do you also know how to run the presenation?

thanks n.

Dave Rabelink
Founder/Site Admin
Founder/Site Admin
Netherlands
Posts: 3384
Joined: 24 Feb 2017, 09:12
Location: Gouda, The Netherlands

Re: Office PowerPoint

Post by Dave Rabelink » 02 Jan 2007, 12:14

Code: Select all

Variables:
 	PowerPoint_Application: oApp
 	PowerPoint_Presentations: oPresentations
 	PowerPoint_Presentation: oPresentation

	PowerPoint_SlideShowSettings: oSlideShowSettings
	PowerPoint_SlideShowWindow: oSlideShowWindow

 If oApp.Create(  )
   If oApp.PropGetPresentations( oPresentations )
      If oPresentations.Open( 'c:\\test.ppt', 1, 1, 2, oPresentation )
After this :

Code: Select all

If oPresentation.PropGetSlideShowSettings( oSlideShowSettings )
   If oSlideShowSettings.Run( oSlideShowWindow )
You can find some samples (eg running from first or last slide etc)
here :

https://www.codeproject.com/Articles/25 ... plications

Best regards & a happy new year !

Dave

Return to “td.sourcecode”

Who is online

Users browsing this forum: [Ccbot] and 0 guests