ClosePresentation     ( ) ,byte,proc
MyPowerPoint.ClosePresentation ()

• Closes the currently open presentation.

CountOpenPresentations     ( ) ,long
if MyPowerPoint.CountOpenPresentations() > 0
...

• Returns the number of currently open presentations.

EndShow     ( )
MyPowerPoint.EndShow()

• If you are currently viewing a presentation, this method will stop it.

FirstSlide     ( )
MyPowerPoint.FirstSlide()

• If you are currently viewing a presentation, this method will load the first slide.

GetInfo     ( byte pOption ) ,string,proc
i# = MyPowerPoint.GetInfo(oip:Width)

• Used to get information from the Power Point object.

Init     ( byte pStartVisible=1, byte pEnableEvents=1 ) ,byte,proc
MyPowerPoint.Init (true, false)

• Initializes the PowerPoint object.  Must be called before you can use any of the other methods.  If you are using the Office Inside templates this method will be called automatically.
• The two parameters are of no use at this time, as the object will always initialize with PowerPoint being visible, and events turned off.

Kill     ( byte pUnloadCOM=1 ) ,byte,proc
MyPowerPoint.Kill()

• Closes down and disposes of the PowerPoint object, as well as the numerous objects used internally by the PowerPoint object.  The templates will generate code to call this method.

LastSlide     ( )
MyPowerPoint.LastSlide()

• If you are currently viewing a presentation, this method will load the last slide.

NextSlide     ( )
MyPowerPoint.NextSlide()

• If you are currently viewing a presentation, this method will load the next slide in sequence.

OpenPresentation ( string pFileName, byte pReadOnly=1 ) ,byte,proc
MyPowerPoint.OpenPresentation (longpath() & '\csoi.ppt')

• Opens a Power Point presentation, as specified by the pFileName parameter.

PreviousSlide ( )
MyPowerPoint.PreviousSlide()

• If you are currently viewing a presentation, this method will load the previous slide in sequence.

SaveAs (string fileName, long fileFormat, long embedFonts), long

The SaveAs method saves the currently loaded and active presentation to a file. The file name and type can both be specified. PowerPoint supports saving as a large variety of files, although not all formats support all the data that can be stored in a presentation. For example you can export the summary to RTF by using SaveAs and setting the fileFormat parameter to oip:ppSaveAsRTF.

Parameters

fileName - the file name to save the document as (for example 'PowerPoint Outline.rtf')'
fileFormat - the format to save the file as (see below for the values allowed for this parameter)
embedFonts - whether to embed fonts into the new document (only applies to formats that allow font embedding)

The supported values for the fileFormat parameter are:

Return Values
The function returns 1 (true) for success and zero (false) for failure,

Simple Example

    MyPowerPoint1.SaveAs ((LongPath() & '\Test.ppt'), oip:ppSaveAsPresentation, true)

Full Example

The below example displays a File Dialog for choosing the file name and type (if the user does not enter the file extension then it is appended to the name for them). The extension is then checked and the SaveAs method is called with the fileFormat parameter set to the equate that matches the selected file type. Not that for document with multiple pages selecting an image format such as Bitmap, JPEG, PNG etc. will create a folder with an image for each page. The folder is given the same name as the filename specified in the Save As dialog box. See the DemoC6 example which contains this code.

fileFormats         string(512)                         ! String containing the file formats string for a filedialog
fileName            string(File:MaxFilename)            ! String to store the file name
fileType            long                                ! The file type, one of the supported equates
i                   long                                ! Loop counter


      fileFormats = 'Presentation |*.ppt |Design Template |*.pot |Show |*.pps |PowerPoint Add-In |*.ppa |' |
                  & 'Web Page |*.htm |Single File Web Page |*.mht |GIF Graphics Interchange Format |*.gif |' |
                  & 'PNG Portable Network Graphics Format |*.png |JPEG File Interchange Format |*.jpg |' |
                  & 'Device Independant Bitmap |*.bmp |Windows Metafile |*.wmf |Enhanced Metafile |*.emf |Outline(RTF) |*.rtf |All Files |*.*'

      if FileDialog('Save As...', fileName, fileFormats , File:Save + File:KeepDir + File:AddExtension + File:LongName)
          ! Get the file extention so that we can tell which type of file is needed
          loop i = Len(Clip(fileName)) to 1 by -1
              if fileName[i] = '.'        ! found the extension position
                  case( Lower( fileName[i + 1 : Len(Clip(fileName))] ) )
                  of 'ppt'
                      fileType = oip:ppSaveAsPresentation
                  of 'pot'
                      fileType = oip:ppSaveAsTemplate
                  of 'pps'
                      fileType = oip:ppSaveAsShow
                  of 'ppa'
                      fileType = oip:ppSaveAsAddIn
                  of 'htm' orof 'html'
                      fileType = oip:ppSaveAsHTML
                  of 'mht' orof 'mhtml'
                      fileType = oip:ppSaveAsWebArchive
                  of 'gif'
                      fileType =oip:ppSaveAsGIF
                  of 'png'
                      fileType = oip:ppSaveAsPNG
                  of 'jpg' orof 'jpeg'
                      fileType = oip:ppSaveAsJPG
                  of 'bmp' fileType = oip:ppSaveAsBMP
                  of 'wmf' fileType = oip:ppSaveAsMetaFile
                  of 'emf'
                      fileType = oip:ppSaveAsEMF
                  of 'rtf'
                      fileType = oip:ppSaveAsRTF
                  else
                      Message('Sorry but an unknown or invalid file type was specified (' & Lower( fileName[i + 1 : Len(Clip(fileName))] ) & ').')
                      break
                  end

                  if not MyPowerPoint1.SaveAs (Clip(fileName), fileType, false)
                      Message('Failed to save document')
                  else
                      Message('Document saved to: ' & Clip(fileName))
                  end
              end
          end
      end

ViewShow     ( )
MyPowerPoint.ViewShow ()

• Once you have opened a Power Point presentation, you can use this method to start viewing the Slide Show.