Office PowerPoint

[Nicole Fernholz]

 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]

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]

 Posted by:  Nicole Fernholz 

Thanks :-)

2006

[Nic]

 Posted by:  Nic 

Hallo Dave,

do you also know how to run the presenation?

thanks n.

[Dave Rabelink]

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