PowerPoint - Got the INC, need some help - PowerBASIC Peer Support Community

Scott Turchin

Member

Join Date: Aug 1998
Posts: 3171

PowerPoint - Got the INC, need some help

23 Jun 2008, 11:05 AM

I've done what another user did (Thanks to thesearch function).

GOt Powerpoint opening just fine, but I need to open a presentation, a spe cific file so I can look for my objects and modify them as necessary.

Any ideas here?

I'm going to paste the include file , both of these will let you get powerpoint open, you may have to change back to version 8 though - I changed it to version 11 as I am running Office 2003.

'Based on the oWord example:

Code:

#Compile Exe
#Dim All
#Include "ppt.inc"

Declare Sub DisplayResult(msg As String)


'------------------------------------------------------------------------------
' Compiler-independent helper function to display feedback and errors
'
Sub DisplayResult(msg As String)

    #If %Def(%Pb_Cc32)
        Print msg
        Print "Press a key...";
        WAITKEY$
        LOCATE ,1
    #Else
        MsgBox msg, &H00001000& ' %MB_SYSTEMMODAL
    #EndIf

End Sub


'------------------------------------------------------------------------------
' Main application entry point...
'
Function PBMain () As Long

    Dim oPPTApp     As PowerPointApplication ' Application Interface
    Dim oPPTDoc     As PowerPointPresentations    ' Document Interface
    Dim oPPTSel     As PowerPointSlide   ' Selection
    Dim sProgID_Word As String

    Dim vBool     As Variant
    Dim vText     As Variant
    Dim vFile     As Variant
    Dim vFileFmt  As Variant
    Dim vVnt      As Variant
    Dim Result    As String

    DisplayResult "About to Open MSPPT..."
    '----------------------------------------------------------------
    ' Note: For some components, the full version needs to be used,
    '       but else a version independent part of it is enough.
    sProgID_Word = ProgId$(ClsId$("PowerPoint.Application.11" ))
    If Len(sProgID_Word) = 0 Then sProgID_Word = "PowerPoint.Application.11"
    '----------------------------------------------------------------

    ' Open an instance of MSPPT
    oPPTApp = PowerPointApplication In sProgID_Word
    If IsFalse IsObject(oPPTApp) Then _
        oPPTApp = New PowerPointApplication In sProgID_Word

    ' Could MSPPT be opened? If not, terminate this app
    If IsFalse IsObject(oPPTApp) Then
        DisplayResult "Unable to open or start PowerPoint!"
        Exit Function
    End If

    ' Make MSPPT visible in for example normal show state
    Let vBool = %ppWindowMaximized   ' or %wdWindowStateMaximize
    Object Let oPPTApp.WindowState = vBool
    Let vBool = 1
    Object Let oPPTApp.Visible = vBool
    '----------------------------------------------------------------
    vFile = "ASMExportData.ppt"


MsgBox "PowerPoint should now be running"

    '----------------------------------------------------------------

Terminate:
    ' Close the current document and then close MSPPT completely
    Object Call oPPTApp.ActiveWindow.CLOSE
    Object Call oPPTApp.Quit

    ' Close all of the Interfaces
    oPPTSel  = Nothing
    oPPTDoc  = Nothing
    oPPTApp  = Nothing

End Function

THen the header file - thanks to Lance for posting it...

Code:

' ------------------------------------------------------------
' Library Name:      Microsoft PowerPoint 8.0 Object Library 2.5
' Library File:      C:\Program Files\Microsoft Office\Office\msppt8.olb
' ------------------------------------------------------------
' Version Info:
' -------------
' Company Name:      Microsoft Corporation
' File Description:  Microsoft PowerPoint Object Library
' File Version:      8.0
' Legal Copyright:   Copyright © Microsoft Corp. 1987-1996
' Product Name:      Microsoft PowerPoint for Windows
' Product Version:   8.0
' ------------------------------------------------------------
' ProgID:            PowerPoint.Application.11
' Interface Name:    PowerPointApplication
'
' Interface Prefix:  PowerPoint
' ------------------------------------------------------------
 
$PROGID_PowerPointApplication11 = "PowerPoint.Application.11"
 
'Enumeration PpActionType
%ppActionMixed                                          = &HFFFFFFFE
%ppActionNone                                           = &H0
%ppActionNextSlide                                      = &H1
%ppActionPreviousSlide                                  = &H2
%ppActionFirstSlide                                     = &H3
%ppActionLastSlide                                      = &H4
%ppActionLastSlideViewed                                = &H5
%ppActionEndShow                                        = &H6
%ppActionHyperlink                                      = &H7
%ppActionRunMacro                                       = &H8
%ppActionRunProgram                                     = &H9
%ppActionNamedSlideShow                                 = &HA
%ppActionOLEVerb                                        = &HB
%ppActionPlay                                           = &HC
 
'Enumeration PpAdvanceMode
%ppAdvanceModeMixed                                     = &HFFFFFFFE
%ppAdvanceOnClick                                       = &H1
%ppAdvanceOnTime                                        = &H2
 
'Enumeration PpAfterEffect
%ppAfterEffectMixed                                     = &HFFFFFFFE
%ppAfterEffectNothing                                   = &H0
%ppAfterEffectHide                                      = &H1
%ppAfterEffectDim                                       = &H2
%ppAfterEffectHideOnClick                               = &H3
 
'Enumeration PpArrangeStyle
%ppArrangeTiled                                         = &H1
%ppArrangeCascade                                       = &H2
 
'Enumeration PpAutoSize
%ppAutoSizeMixed                                        = &HFFFFFFFE
%ppAutoSizeNone                                         = &H0
%ppAutoSizeShapeToFitText                               = &H1
 
'Enumeration PpBaselineAlignment
%ppBaselineAlignMixed                                   = &HFFFFFFFE
%ppBaselineAlignBaseline                                = &H1
%ppBaselineAlignTop                                     = &H2
%ppBaselineAlignCenter                                  = &H3
%ppBaselineAlignFarEast50                               = &H4
 
'Enumeration PpChangeCase
%ppCaseSentence                                         = &H1
%ppCaseLower                                            = &H2
%ppCaseUpper                                            = &H3
%ppCaseTitle                                            = &H4
%ppCaseToggle                                           = &H5
 
'Enumeration PpChartUnitEffect
%ppAnimateChartMixed                                    = &HFFFFFFFE
%ppAnimateBySeries                                      = &H1
%ppAnimateByCategory                                    = &H2
%ppAnimateBySeriesElements                              = &H3
%ppAnimateByCategoryElements                            = &H4
 
'Enumeration PpColorSchemeIndex
%ppSchemeColorMixed                                     = &HFFFFFFFE
%ppNotSchemeColor                                       = &H0
%ppBackground                                           = &H1
%ppForeground                                           = &H2
%ppShadow                                               = &H3
%ppTitle                                                = &H4
%ppFill                                                 = &H5
%ppAccent1                                              = &H6
%ppAccent2                                              = &H7
%ppAccent3                                              = &H8
 
'Enumeration PpDateTimeFormat
%ppDateTimeFormatMixed                                  = &HFFFFFFFE
%ppDateTimeMdyy                                         = &H1
%ppDateTimeddddMMMMddyyyy                               = &H2
%ppDateTimedMMMMyyyy                                    = &H3
%ppDateTimeMMMMdyyyy                                    = &H4
%ppDateTimedMMMyy                                       = &H5
%ppDateTimeMMMMyy                                       = &H6
%ppDateTimeMMyy                                         = &H7
%ppDateTimeMMddyyHmm                                    = &H8
%ppDateTimeMMddyyhmmAMPM                                = &H9
%ppDateTimeHmm                                          = &HA
%ppDateTimeHmmss                                        = &HB
%ppDateTimehmmAMPM                                      = &HC
%ppDateTimehmmssAMPM                                    = &HD
 
'Enumeration PpDirection
%ppDirectionMixed                                       = &HFFFFFFFE
%ppDirectionLeftToRight                                 = &H1
%ppDirectionRightToLeft                                 = &H2
 
'Enumeration PpEntryEffect
%ppEffectMixed                                          = &HFFFFFFFE
%ppEffectNone                                           = &H0
%ppEffectCut                                            = &H101
%ppEffectCutThroughBlack                                = &H102
%ppEffectRandom                                         = &H201
%ppEffectBlindsHorizontal                               = &H301
%ppEffectBlindsVertical                                 = &H302
%ppEffectCheckerboardAcross                             = &H401
%ppEffectCheckerboardDown                               = &H402
%ppEffectCoverLeft                                      = &H501
%ppEffectCoverUp                                        = &H502
%ppEffectCoverRight                                     = &H503
%ppEffectCoverDown                                      = &H504
%ppEffectCoverLeftUp                                    = &H505
%ppEffectCoverRightUp                                   = &H506
%ppEffectCoverLeftDown                                  = &H507
%ppEffectCoverRightDown                                 = &H508
%ppEffectDissolve                                       = &H601
%ppEffectFade                                           = &H701
%ppEffectUncoverLeft                                    = &H801
%ppEffectUncoverUp                                      = &H802
%ppEffectUncoverRight                                   = &H803
%ppEffectUncoverDown                                    = &H804
%ppEffectUncoverLeftUp                                  = &H805
%ppEffectUncoverRightUp                                 = &H806
%ppEffectUncoverLeftDown                                = &H807
%ppEffectUncoverRightDown                               = &H808
%ppEffectRandomBarsHorizontal                           = &H901
%ppEffectRandomBarsVertical                             = &H902
%ppEffectStripsUpLeft                                   = &HA01
%ppEffectStripsUpRight                                  = &HA02
%ppEffectStripsDownLeft                                 = &HA03
%ppEffectStripsDownRight                                = &HA04
%ppEffectStripsLeftUp                                   = &HA05
%ppEffectStripsRightUp                                  = &HA06
%ppEffectStripsLeftDown                                 = &HA07
%ppEffectStripsRightDown                                = &HA08
%ppEffectWipeLeft                                       = &HB01
%ppEffectWipeUp                                         = &HB02
%ppEffectWipeRight                                      = &HB03
%ppEffectWipeDown                                       = &HB04
%ppEffectBoxOut                                         = &HC01
%ppEffectBoxIn                                          = &HC02
%ppEffectFlyFromLeft                                    = &HD01
%ppEffectFlyFromTop                                     = &HD02
%ppEffectFlyFromRight                                   = &HD03
%ppEffectFlyFromBottom                                  = &HD04
%ppEffectFlyFromTopLeft                                 = &HD05
%ppEffectFlyFromTopRight                                = &HD06
%ppEffectFlyFromBottomLeft                              = &HD07
%ppEffectFlyFromBottomRight                             = &HD08
%ppEffectPeekFromLeft                                   = &HD09
%ppEffectPeekFromDown                                   = &HD0A
%ppEffectPeekFromRight                                  = &HD0B
%ppEffectPeekFromUp                                     = &HD0C
%ppEffectCrawlFromLeft                                  = &HD0D
%ppEffectCrawlFromUp                                    = &HD0E
%ppEffectCrawlFromRight                                 = &HD0F
%ppEffectCrawlFromDown                                  = &HD10
%ppEffectZoomIn                                         = &HD11
%ppEffectZoomInSlightly                                 = &HD12
%ppEffectZoomOut                                        = &HD13
%ppEffectZoomOutSlightly                                = &HD14
%ppEffectZoomCenter                                     = &HD15
%ppEffectZoomBottom                                     = &HD16
%ppEffectStretchAcross                                  = &HD17
%ppEffectStretchLeft                                    = &HD18
%ppEffectStretchUp                                      = &HD19
%ppEffectStretchRight                                   = &HD1A
%ppEffectStretchDown                                    = &HD1B
%ppEffectSwivel                                         = &HD1C
%ppEffectSpiral                                         = &HD1D
%ppEffectSplitHorizontalOut                             = &HE01
%ppEffectSplitHorizontalIn                              = &HE02
%ppEffectSplitVerticalOut                               = &HE03
%ppEffectSplitVerticalIn                                = &HE04
%ppEffectFlashOnceFast                                  = &HF01
%ppEffectFlashOnceMedium                                = &HF02
%ppEffectFlashOnceSlow                                  = &HF03
%ppEffectAppear                                         = &HF04
 
'Enumeration PpFarEastLineBreakLevel
%ppFarEastLineBreakLevelNormal                          = &H1
%ppFarEastLineBreakLevelStrict                          = &H2
%ppFarEastLineBreakLevelCustom                          = &H3
 
'Enumeration PpFollowColors
%ppFollowColorsMixed                                    = &HFFFFFFFE
%ppFollowColorsNone                                     = &H0
%ppFollowColorsScheme                                   = &H1
%ppFollowColorsTextAndBackground                        = &H2
 
'Enumeration PpIndentControl
%ppIndentControlMixed                                   = &HFFFFFFFE
%ppIndentReplaceAttr                                    = &H1
%ppIndentKeepAttr                                       = &H2
 
'Enumeration PpMediaType
%ppMediaTypeMixed                                       = &HFFFFFFFE
%ppMediaTypeOther                                       = &H1
%ppMediaTypeSound                                       = &H2
%ppMediaTypeMovie                                       = &H3
 
'Enumeration PpMouseActivation
%ppMouseClick                                           = &H1
%ppMouseOver                                            = &H2
 
'Enumeration PpParagraphAlignment
%ppAlignmentMixed                                       = &HFFFFFFFE
%ppAlignLeft                                            = &H1
%ppAlignCenter                                          = &H2
%ppAlignRight                                           = &H3
%ppAlignJustify                                         = &H4
%ppAlignDistribute                                      = &H5
 
'Enumeration PpPlaceholderType
%ppPlaceholderMixed                                     = &HFFFFFFFE
%ppPlaceholderTitle                                     = &H1
%ppPlaceholderBody                                      = &H2
%ppPlaceholderCenterTitle                               = &H3
%ppPlaceholderSubtitle                                  = &H4
%ppPlaceholderVerticalTitle                             = &H5
%ppPlaceholderVerticalBody                              = &H6
%ppPlaceholderObject                                    = &H7
%ppPlaceholderChart                                     = &H8
%ppPlaceholderBitmap                                    = &H9
%ppPlaceholderMediaClip                                 = &HA
%ppPlaceholderOrgChart                                  = &HB
%ppPlaceholderTable                                     = &HC
%ppPlaceholderSlideNumber                               = &HD
%ppPlaceholderHeader                                    = &HE
%ppPlaceholderFooter                                    = &HF
%ppPlaceholderDate                                      = &H10
 
'Enumeration PpPrintColorType
%ppPrintColor                                           = &H1
%ppPrintBlackAndWhite                                   = &H2
%ppPrintPureBlackAndWhite                               = &H3
 
'Enumeration PpPrintOutputType
%ppPrintOutputSlides                                    = &H1
%ppPrintOutputTwoSlideHandouts                          = &H2
%ppPrintOutputThreeSlideHandouts                        = &H3
%ppPrintOutputSixSlideHandouts                          = &H4
%ppPrintOutputNotesPages                                = &H5
%ppPrintOutputOutline                                   = &H6
%ppPrintOutputBuildSlides                               = &H7
 
'Enumeration PpPrintRangeType
%ppPrintAll                                             = &H1
%ppPrintSelection                                       = &H2
%ppPrintCurrent                                         = &H3
%ppPrintSlideRange                                      = &H4
%ppPrintNamedSlideShow                                  = &H5
 
'Enumeration PpSaveAsFileType
%ppSaveAsPresentation                                   = &H1
%ppSaveAsPowerPoint7                                    = &H2
%ppSaveAsPowerPoint4                                    = &H3
%ppSaveAsPowerPoint3                                    = &H4
%ppSaveAsTemplate                                       = &H5
%ppSaveAsRTF                                            = &H6
%ppSaveAsShow                                           = &H7
%ppSaveAsAddIn                                          = &H8
%ppSaveAsWizard                                         = &H9
%ppSaveAsPowerPoint4FarEast                             = &HA
%ppSaveAsDefault                                        = &HB
 
'Enumeration PpSelectionType
%ppSelectionNone                                        = &H0
%ppSelectionSlides                                      = &H1
%ppSelectionShapes                                      = &H2
%ppSelectionText                                        = &H3
 
'Enumeration PpSlideLayout
%ppLayoutMixed                                          = &HFFFFFFFE
%ppLayoutTitle                                          = &H1
%ppLayoutText                                           = &H2
%ppLayoutTwoColumnText                                  = &H3
%ppLayoutTable                                          = &H4
%ppLayoutTextAndChart                                   = &H5
%ppLayoutChartAndText                                   = &H6
%ppLayoutOrgchart                                       = &H7
%ppLayoutChart                                          = &H8
%ppLayoutTextAndClipart                                 = &H9
%ppLayoutClipartAndText                                 = &HA
%ppLayoutTitleOnly                                      = &HB
%ppLayoutBlank                                          = &HC
%ppLayoutTextAndObject                                  = &HD
%ppLayoutObjectAndText                                  = &HE
%ppLayoutLargeObject                                    = &HF
%ppLayoutObject                                         = &H10
%ppLayoutTextAndMediaClip                               = &H11
%ppLayoutMediaClipAndText                               = &H12
%ppLayoutObjectOverText                                 = &H13
%ppLayoutTextOverObject                                 = &H14
%ppLayoutTextAndTwoObjects                              = &H15
%ppLayoutTwoObjectsAndText                              = &H16
%ppLayoutTwoObjectsOverText                             = &H17
%ppLayoutFourObjects                                    = &H18
%ppLayoutVerticalText                                   = &H19
%ppLayoutClipArtAndVerticalText                         = &H1A
%ppLayoutVerticalTitleAndText                           = &H1B
%ppLayoutVerticalTitleAndTextOverChart                  = &H1C
 
'Enumeration PpSlideShowAdvanceMode
%ppSlideShowManualAdvance                               = &H1
%ppSlideShowUseSlideTimings                             = &H2
%ppSlideShowRehearseNewTimings                          = &H3
 
'Enumeration PpSlideShowPointerType
%ppSlideShowPointerNone                                 = &H0
%ppSlideShowPointerArrow                                = &H1
%ppSlideShowPointerPen                                  = &H2
%ppSlideShowPointerAlwaysHidden                         = &H3
 
'Enumeration PpSlideShowRangeType
%ppShowAll                                              = &H1
%ppShowSlideRange                                       = &H2
%ppShowNamedSlideShow                                   = &H3
 
'Enumeration PpSlideShowState
%ppSlideShowRunning                                     = &H1
%ppSlideShowPaused                                      = &H2
%ppSlideShowBlackScreen                                 = &H3
%ppSlideShowWhiteScreen                                 = &H4
%ppSlideShowDone                                        = &H5
 
'Enumeration PpSlideShowType
%ppShowTypeSpeaker                                      = &H1
%ppShowTypeWindow                                       = &H2
%ppShowTypeKiosk                                        = &H3
 
'Enumeration PpSlideSizeType
%ppSlideSizeOnScreen                                    = &H1
%ppSlideSizeLetterPaper                                 = &H2
%ppSlideSizeA4Paper                                     = &H3
%ppSlideSize35MM                                        = &H4
%ppSlideSizeOverhead                                    = &H5
%ppSlideSizeBanner                                      = &H6
%ppSlideSizeCustom                                      = &H7
 
'Enumeration PpSoundEffectType
%ppSoundEffectsMixed                                    = &HFFFFFFFE
%ppSoundNone                                            = &H0
%ppSoundStopPrevious                                    = &H1
%ppSoundFile                                            = &H2
 
'Enumeration PpSoundFormatType
%ppSoundFormatMixed                                     = &HFFFFFFFE
%ppSoundFormatNone                                      = &H0
%ppSoundFormatWAV                                       = &H1
%ppSoundFormatMIDI                                      = &H2
%ppSoundFormatCDAudio                                   = &H3
 
'Enumeration PpTabStopType
%ppTabStopMixed                                         = &HFFFFFFFE
%ppTabStopLeft                                          = &H1
%ppTabStopCenter                                        = &H2
%ppTabStopRight                                         = &H3
%ppTabStopDecimal                                       = &H4
 
'Enumeration PpTextLevelEffect
%ppAnimateLevelMixed                                    = &HFFFFFFFE
%ppAnimateLevelNone                                     = &H0
%ppAnimateByFirstLevel                                  = &H1
%ppAnimateBySecondLevel                                 = &H2
%ppAnimateByThirdLevel                                  = &H3
%ppAnimateByFourthLevel                                 = &H4
%ppAnimateByFifthLevel                                  = &H5
%ppAnimateByAllLevels                                   = &H10
 
'Enumeration PpTextStyleType
%ppDefaultStyle                                         = &H1
%ppTitleStyle                                           = &H2
%ppBodyStyle                                            = &H3
 
'Enumeration PpTextUnitEffect
%ppAnimateUnitMixed                                     = &HFFFFFFFE
%ppAnimateByParagraph                                   = &H0
%ppAnimateByWord                                        = &H1
%ppAnimateByCharacter                                   = &H2
 
'Enumeration PpTransitionSpeed
%ppTransitionSpeedMixed                                 = &HFFFFFFFE
%ppTransitionSpeedSlow                                  = &H1
%ppTransitionSpeedMedium                                = &H2
%ppTransitionSpeedFast                                  = &H3
 
'Enumeration PpUpdateOption
%ppUpdateOptionMixed                                    = &HFFFFFFFE
%ppUpdateOptionManual                                   = &H1
%ppUpdateOptionAutomatic                                = &H2
 
'Enumeration PpViewType
%ppViewSlide                                            = &H1
%ppViewSlideMaster                                      = &H2
%ppViewNotesPage                                        = &H3
%ppViewHandoutMaster                                    = &H4
%ppViewNotesMaster                                      = &H5
%ppViewOutline                                          = &H6
%ppViewSlideSorter                                      = &H7
%ppViewTitleMaster                                      = &H8
 
'Enumeration PpWindowState
%ppWindowNormal                                         = &H1
%ppWindowMinimized                                      = &H2
%ppWindowMaximized                                      = &H3
 
 
Interface Dispatch PowerPointApplication
    Member Get Presentations<&H7D1>() As PowerPointPresentations
    Member Get Windows<&H7D2>() As PowerPointDocumentWindows
    Member Get Dialogs<&H7D3>() As PowerPointPPDialogs
    Member Get ActiveWindow<&H7D4>() As PowerPointDocumentWindow
    Member Get ActivePresentation<&H7D5>() As PowerPointPresentation
    Member Get SlideShowWindows<&H7D6>() As PowerPointSlideShowWindows
    Member Get CommandBars<&H7D7>() As PowerPointCommandBars
    Member Get Path<&H7D8>() As String
    Member Get Name<&H0>() As String
    Member Get Caption<&H7D9>() As String
    Member Let Caption<&H7D9>()   'Parameter Type As String
    Member Get Assistant<&H7DA>() As PowerPointAssistant
    Member Get FileSearch<&H7DB>() As PowerPointFileSearch
    Member Get FileFind<&H7DC>() As PowerPointIFind
    Member Get Build<&H7DD>() As String
    Member Get Version<&H7DE>() As String
    Member Get OperatingSystem<&H7DF>() As String
    Member Get ActivePrinter<&H7E0>() As String
    Member Get Creator<&H7E1>() As Long
    Member Get AddIns<&H7E2>() As PowerPointAddIns
    Member Get VBE<&H7E3>() As PowerPointVBE
    Member Call Help<&H7E4>(optional in HelpFile As String<&H0>, optional in ContextID As Long<&H1> )
    Member Call Quit<&H7E5>()
    Member Call Run<&H7E6>(in MacroName As String<&H0>, in safeArrayOfParams As Variant<&H1> ) As Variant
    Member Call FileDialog<&H7E7>(in Type As %PpFileDialogType<&H0> ) As PowerPointFileDialog
    Member Get Left<&H7E9>() As Single
    Member Let Left<&H7E9>()   'Parameter Type As Single
    Member Get Top<&H7EA>() As Single
    Member Let Top<&H7EA>()   'Parameter Type As Single
    Member Get Width<&H7EB>() As Single
    Member Let Width<&H7EB>()   'Parameter Type As Single
    Member Get Height<&H7EC>() As Single
    Member Let Height<&H7EC>()   'Parameter Type As Single
    Member Get WindowState<&H7ED>() As Long   'PpWindowState
    Member Let WindowState<&H7ED>()   'Parameter Type As %PpWindowState
    Member Get Visible<&H7EE>() As Long   'MsoTriState
    Member Let Visible<&H7EE>()   'Parameter Type As %MsoTriState
    Member Get Active<&H7F0>() As Long   'MsoTriState
    Member Call Activate<&H7F1>()
End Interface
 
Interface Dispatch PowerPointActionSetting
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get Action<&H7D3>() As Long   'PpActionType
    Member Let Action<&H7D3>()   'Parameter Type As %PpActionType
    Member Get ActionVerb<&H7D4>() As String
    Member Let ActionVerb<&H7D4>()   'Parameter Type As String
    Member Get AnimateAction<&H7D5>() As Long   'MsoTriState
    Member Let AnimateAction<&H7D5>()   'Parameter Type As %MsoTriState
    Member Get Run<&H7D6>() As String
    Member Let Run<&H7D6>()   'Parameter Type As String
    Member Get SlideShowName<&H7D7>() As String
    Member Let SlideShowName<&H7D7>()   'Parameter Type As String
    Member Get Hyperlink<&H7D8>() As PowerPointHyperlink
    Member Get SoundEffect<&H7D9>() As PowerPointSoundEffect
End Interface
 
Interface Dispatch PowerPointActionSettings
    Member Get Count<&HB>() As Long
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Call Item<&H0>(in index As %PpMouseActivation<&H0> ) As PowerPointActionSetting
End Interface
 
Interface Dispatch PowerPointAddIn
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get FullName<&H7D3>() As String
    Member Get Name<&H7D4>() As String
    Member Get Path<&H7D5>() As String
    Member Get Registered<&H7D6>() As Long   'MsoTriState
    Member Let Registered<&H7D6>()   'Parameter Type As %MsoTriState
    Member Get AutoLoad<&H7D7>() As Long   'MsoTriState
    Member Let AutoLoad<&H7D7>()   'Parameter Type As %MsoTriState
    Member Get Loaded<&H7D8>() As Long   'MsoTriState
    Member Let Loaded<&H7D8>()   'Parameter Type As %MsoTriState
    Member Get DisplayAlerts<&H7D9>() As Long   'MsoTriState
    Member Let DisplayAlerts<&H7D9>()   'Parameter Type As %MsoTriState
    Member Get RegisteredInHKLM<&H7DA>() As Long   'MsoTriState
End Interface
 
Interface Dispatch PowerPointAddIns
    Member Get Count<&HB>() As Long
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Call Item<&H0>(in index As Variant<&H0> ) As PowerPointAddIn
    Member Call Add<&H7D3>(in FileName As String<&H0> ) As PowerPointAddIn
    Member Call Remove<&H7D4>(in index As Variant<&H0> )
End Interface
 
Interface Dispatch PowerPointAdjustments
    Member Get Application<&H7D1>() As Variant
    Member Get Creator<&H7D2>() As Long
    Member Get Parent<&H1>() As Variant
    Member Get Count<&H2>() As Long
    Member Get Item<&H0>(in index As Long<&H0> ) As Single
    Member Let Item<&H0>(in index As Long<&H0> )
End Interface
 
Interface Dispatch PowerPointAnimationSettings
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get DimColor<&H7D3>() As PowerPointColorFormat
    Member Get SoundEffect<&H7D4>() As PowerPointSoundEffect
    Member Get EntryEffect<&H7D5>() As Long   'PpEntryEffect
    Member Let EntryEffect<&H7D5>()   'Parameter Type As %PpEntryEffect
    Member Get AfterEffect<&H7D6>() As Long   'PpAfterEffect
    Member Let AfterEffect<&H7D6>()   'Parameter Type As %PpAfterEffect
    Member Get AnimationOrder<&H7D7>() As Long
    Member Let AnimationOrder<&H7D7>()   'Parameter Type As Long
    Member Get AdvanceMode<&H7D8>() As Long   'PpAdvanceMode
    Member Let AdvanceMode<&H7D8>()   'Parameter Type As %PpAdvanceMode
    Member Get AdvanceTime<&H7D9>() As Single
    Member Let AdvanceTime<&H7D9>()   'Parameter Type As Single
    Member Get PlaySettings<&H7DA>() As PowerPointPlaySettings
    Member Get TextLevelEffect<&H7DB>() As Long   'PpTextLevelEffect
    Member Let TextLevelEffect<&H7DB>()   'Parameter Type As %PpTextLevelEffect
    Member Get TextUnitEffect<&H7DC>() As Long   'PpTextUnitEffect
    Member Let TextUnitEffect<&H7DC>()   'Parameter Type As %PpTextUnitEffect
    Member Get Animate<&H7DD>() As Long   'MsoTriState
    Member Let Animate<&H7DD>()   'Parameter Type As %MsoTriState
    Member Get AnimateBackground<&H7DE>() As Long   'MsoTriState
    Member Let AnimateBackground<&H7DE>()   'Parameter Type As %MsoTriState
    Member Get AnimateTextInReverse<&H7DF>() As Long   'MsoTriState
    Member Let AnimateTextInReverse<&H7DF>()   'Parameter Type As %MsoTriState
    Member Get ChartUnitEffect<&H7E0>() As Long   'PpChartUnitEffect
    Member Let ChartUnitEffect<&H7E0>()   'Parameter Type As %PpChartUnitEffect
End Interface
 
Interface Dispatch PowerPointBulletFormat
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get Visible<&H0>() As Long   'MsoTriState
    Member Let Visible<&H0>()   'Parameter Type As %MsoTriState
    Member Get Character<&H7D3>() As Long
    Member Let Character<&H7D3>()   'Parameter Type As Long
    Member Get RelativeSize<&H7D4>() As Single
    Member Let RelativeSize<&H7D4>()   'Parameter Type As Single
    Member Get UseTextColor<&H7D5>() As Long   'MsoTriState
    Member Let UseTextColor<&H7D5>()   'Parameter Type As %MsoTriState
    Member Get UseTextFont<&H7D6>() As Long   'MsoTriState
    Member Let UseTextFont<&H7D6>()   'Parameter Type As %MsoTriState
    Member Get Font<&H7D7>() As PowerPointFont
End Interface
 
Interface Dispatch PowerPointCalloutFormat
    Member Get Application<&H7D1>() As Variant
    Member Get Creator<&H7D2>() As Long
    Member Get Parent<&H1>() As Variant
    Member Call AutomaticLength<&HA>()
    Member Call CustomDrop<&HB>(in Drop As Single<&H0> )
    Member Call CustomLength<&HC>(in Length As Single<&H0> )
    Member Call PresetDrop<&HD>(in DropType As %MsoCalloutDropType<&H0> )
    Member Get Accent<&H64>() As Long   'MsoTriState
    Member Let Accent<&H64>()   'Parameter Type As %MsoTriState
    Member Get Angle<&H65>() As Long   'MsoCalloutAngleType
    Member Let Angle<&H65>()   'Parameter Type As %MsoCalloutAngleType
    Member Get AutoAttach<&H66>() As Long   'MsoTriState
    Member Let AutoAttach<&H66>()   'Parameter Type As %MsoTriState
    Member Get AutoLength<&H67>() As Long   'MsoTriState
    Member Get Border<&H68>() As Long   'MsoTriState
    Member Let Border<&H68>()   'Parameter Type As %MsoTriState
    Member Get Drop<&H69>() As Single
    Member Get DropType<&H6A>() As Long   'MsoCalloutDropType
    Member Get Gap<&H6B>() As Single
    Member Let Gap<&H6B>()   'Parameter Type As Single
    Member Get Length<&H6C>() As Single
    Member Get Type<&H6D>() As Long   'MsoCalloutType
    Member Let Type<&H6D>()   'Parameter Type As %MsoCalloutType
End Interface
 
Interface Dispatch PowerPointColorFormat
    Member Get Application<&H7D1>() As Variant
    Member Get Creator<&H7D2>() As Long
    Member Get Parent<&H1>() As Variant
    Member Get RGB<&H0>() As PowerPointMsoRGBType
    Member Let RGB<&H0>()   'Parameter Type As PowerPointMsoRGBType
    Member Get Type<&H65>() As Long   'MsoColorType
    Member Get SchemeColor<&H7D3>() As Long   'PpColorSchemeIndex
    Member Let SchemeColor<&H7D3>()   'Parameter Type As %PpColorSchemeIndex
End Interface
 
Interface Dispatch PowerPointColorScheme
    Member Get Count<&HB>() As Long
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Call Colors<&H0>(in SchemeColor As %PpColorSchemeIndex<&H0> ) As PowerPointRGBColor
    Member Call Delete<&H7D3>()
End Interface
 
Interface Dispatch PowerPointColorSchemes
    Member Get Count<&HB>() As Long
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Call Item<&H0>(in index As Long<&H0> ) As PowerPointColorScheme
    Member Call Add<&H7D3>(optional in Scheme As PowerPointColorScheme<&H0> ) As PowerPointColorScheme
End Interface
 
Interface Dispatch PowerPointConnectorFormat
    Member Get Application<&H7D1>() As Variant
    Member Get Creator<&H7D2>() As Long
    Member Get Parent<&H1>() As Variant
    Member Call BeginConnect<&HA>(in ConnectedShape As PowerPointShape<&H0>, in ConnectionSite As Long<&H1> )
    Member Call BeginDisconnect<&HB>()
    Member Call EndConnect<&HC>(in ConnectedShape As PowerPointShape<&H0>, in ConnectionSite As Long<&H1> )
    Member Call EndDisconnect<&HD>()
    Member Get BeginConnected<&H64>() As Long   'MsoTriState
    Member Get BeginConnectedShape<&H65>() As PowerPointShape
    Member Get BeginConnectionSite<&H66>() As Long
    Member Get EndConnected<&H67>() As Long   'MsoTriState
    Member Get EndConnectedShape<&H68>() As PowerPointShape
    Member Get EndConnectionSite<&H69>() As Long
    Member Get Type<&H6A>() As Long   'MsoConnectorType
    Member Let Type<&H6A>()   'Parameter Type As %MsoConnectorType
End Interface
 
Interface Dispatch PowerPointDocumentWindow
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get Selection<&H7D3>() As PowerPointSelection
    Member Get View<&H7D4>() As PowerPointView
    Member Get Presentation<&H7D5>() As PowerPointPresentation
    Member Get ViewType<&H7D6>() As Long   'PpViewType
    Member Let ViewType<&H7D6>()   'Parameter Type As %PpViewType
    Member Get BlackAndWhite<&H7D7>() As Long   'MsoTriState
    Member Let BlackAndWhite<&H7D7>()   'Parameter Type As %MsoTriState
    Member Get Active<&H7D8>() As Long   'MsoTriState
    Member Get WindowState<&H7D9>() As Long   'PpWindowState
    Member Let WindowState<&H7D9>()   'Parameter Type As %PpWindowState
    Member Get Caption<&H0>() As String
    Member Get Left<&H7DA>() As Single
    Member Let Left<&H7DA>()   'Parameter Type As Single
    Member Get Top<&H7DB>() As Single
    Member Let Top<&H7DB>()   'Parameter Type As Single
    Member Get Width<&H7DC>() As Single
    Member Let Width<&H7DC>()   'Parameter Type As Single
    Member Get Height<&H7DD>() As Single
    Member Let Height<&H7DD>()   'Parameter Type As Single
    Member Call FitToPage<&H7DE>()
    Member Call Activate<&H7DF>()
    Member Call LargeScroll<&H7E0>(optional in Down As Long<&H0>, optional in Up As Long<&H1>, optional in ToRight As Long<&H2>, optional in ToLeft As Long<&H3> )
    Member Call SmallScroll<&H7E1>(optional in Down As Long<&H0>, optional in Up As Long<&H1>, optional in ToRight As Long<&H2>, optional in ToLeft As Long<&H3> )
    Member Call NewWindow<&H7E2>() As PowerPointDocumentWindow
    Member Call Close<&H7E3>()
End Interface
 
Interface Dispatch PowerPointDocumentWindows
    Member Get Count<&HB>() As Long
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Call Item<&H0>(in index As Long<&H0> ) As PowerPointDocumentWindow
    Member Call Arrange<&H7D3>(optional in arrangeStyle As %PpArrangeStyle<&H0> )
End Interface
 
Interface Dispatch PowerPointExtraColors
    Member Get Count<&HB>() As Long
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Call Item<&H0>(in index As Long<&H0> ) As PowerPointMsoRGBType
    Member Call Add<&H7D3>(in Type As PowerPointMsoRGBType<&H0> )
End Interface
 
Interface Dispatch PowerPointFillFormat
    Member Get Application<&H7D1>() As Variant
    Member Get Creator<&H7D2>() As Long
    Member Get Parent<&H1>() As Variant
    Member Call Background<&HA>()
    Member Call OneColorGradient<&HB>(in Style As %MsoGradientStyle<&H0>, in Variant As Long<&H1>, in Degree As Single<&H2> )
    Member Call Patterned<&HC>(in Pattern As %MsoPatternType<&H0> )
    Member Call PresetGradient<&HD>(in Style As %MsoGradientStyle<&H0>, in Variant As Long<&H1>, in PresetGradientType As %MsoPresetGradientType<&H2> )
    Member Call PresetTextured<&HE>(in PresetTexture As %MsoPresetTexture<&H0> )
    Member Call Solid<&HF>()
    Member Call TwoColorGradient<&H10>(in Style As %MsoGradientStyle<&H0>, in Variant As Long<&H1> )
    Member Call UserPicture<&H11>(in PictureFile As String<&H0> )
    Member Call UserTextured<&H12>(in TextureFile As String<&H0> )
    Member Get BackColor<&H64>() As PowerPointColorFormat
    Member Let BackColor<&H64>()   'Parameter Type As PowerPointColorFormat
    Member Get ForeColor<&H65>() As PowerPointColorFormat
    Member Let ForeColor<&H65>()   'Parameter Type As PowerPointColorFormat
    Member Get GradientColorType<&H66>() As Long   'MsoGradientColorType
    Member Get GradientDegree<&H67>() As Single
    Member Get GradientStyle<&H68>() As Long   'MsoGradientStyle
    Member Get GradientVariant<&H69>() As Long
    Member Get Pattern<&H6A>() As Long   'MsoPatternType
    Member Get PresetGradientType<&H6B>() As Long   'MsoPresetGradientType
    Member Get PresetTexture<&H6C>() As Long   'MsoPresetTexture
    Member Get TextureName<&H6D>() As String
    Member Get TextureType<&H6E>() As Long   'MsoTextureType
    Member Get Transparency<&H6F>() As Single
    Member Let Transparency<&H6F>()   'Parameter Type As Single
    Member Get Type<&H70>() As Long   'MsoFillType
    Member Get Visible<&H71>() As Long   'MsoTriState
    Member Let Visible<&H71>()   'Parameter Type As %MsoTriState
End Interface
 
Interface Dispatch PowerPointFont
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get Color<&H7D3>() As PowerPointColorFormat
    Member Get Bold<&H7D4>() As Long   'MsoTriState
    Member Let Bold<&H7D4>()   'Parameter Type As %MsoTriState
    Member Get Italic<&H7D5>() As Long   'MsoTriState
    Member Let Italic<&H7D5>()   'Parameter Type As %MsoTriState
    Member Get Shadow<&H7D6>() As Long   'MsoTriState
    Member Let Shadow<&H7D6>()   'Parameter Type As %MsoTriState
    Member Get Emboss<&H7D7>() As Long   'MsoTriState
    Member Let Emboss<&H7D7>()   'Parameter Type As %MsoTriState
    Member Get Underline<&H7D8>() As Long   'MsoTriState
    Member Let Underline<&H7D8>()   'Parameter Type As %MsoTriState
    Member Get Subscript<&H7D9>() As Long   'MsoTriState
    Member Let Subscript<&H7D9>()   'Parameter Type As %MsoTriState
    Member Get Superscript<&H7DA>() As Long   'MsoTriState
    Member Let Superscript<&H7DA>()   'Parameter Type As %MsoTriState
    Member Get BaselineOffset<&H7DB>() As Single
    Member Let BaselineOffset<&H7DB>()   'Parameter Type As Single
    Member Get Embedded<&H7DC>() As Long   'MsoTriState
    Member Get Embeddable<&H7DD>() As Long   'MsoTriState
    Member Get Size<&H7DE>() As Single
    Member Let Size<&H7DE>()   'Parameter Type As Single
    Member Get Name<&H7DF>() As String
    Member Let Name<&H7DF>()   'Parameter Type As String
    Member Get NameFarEast<&H7E0>() As String
    Member Let NameFarEast<&H7E0>()   'Parameter Type As String
    Member Get NameAscii<&H7E1>() As String
    Member Let NameAscii<&H7E1>()   'Parameter Type As String
    Member Get AutoRotateNumbers<&H7E2>() As Long   'MsoTriState
    Member Let AutoRotateNumbers<&H7E2>()   'Parameter Type As %MsoTriState
    Member Get NameOther<&H7E3>() As String
    Member Let NameOther<&H7E3>()   'Parameter Type As String
End Interface
 
Interface Dispatch PowerPointFonts
    Member Get Count<&HB>() As Long
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Call Item<&H0>(in index As Variant<&H0> ) As PowerPointFont
    Member Call Replace<&H7D3>(in Original As String<&H0>, in Replacement As String<&H1> )
End Interface
 
Interface Dispatch PowerPointFreeformBuilder
    Member Get Application<&H7D1>() As Variant
    Member Get Creator<&H7D2>() As Long
    Member Get Parent<&H1>() As Variant
    Member Call AddNodes<&HA>(in SegmentType As %MsoSegmentType<&H0>, in EditingType As %MsoEditingType<&H1>, in X1 As Single<&H2>, in Y1 As Single<&H3>, optional in X2 As Single<&H4>, optional in Y2 As Single<&H5>, _
        optional in X3 As Single<&H6>, optional in Y3 As Single<&H7> )
    Member Call ConvertToShape<&HB>() As PowerPointShape
End Interface
 
Interface Dispatch PowerPointGroupShapes
    Member Get Application<&H7D1>() As Variant
    Member Get Creator<&H7D2>() As Long
    Member Get Parent<&H1>() As Variant
    Member Get Count<&H2>() As Long
    Member Call Item<&H0>(in index As Variant<&H0> ) As PowerPointShape
End Interface
 
Interface Dispatch PowerPointHeaderFooter
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get Visible<&H7D3>() As Long   'MsoTriState
    Member Let Visible<&H7D3>()   'Parameter Type As %MsoTriState
    Member Get Text<&H7D4>() As String
    Member Let Text<&H7D4>()   'Parameter Type As String
    Member Get UseFormat<&H7D5>() As Long   'MsoTriState
    Member Let UseFormat<&H7D5>()   'Parameter Type As %MsoTriState
    Member Get Format<&H7D6>() As Long   'PpDateTimeFormat
    Member Let Format<&H7D6>()   'Parameter Type As %PpDateTimeFormat
End Interface
 
Interface Dispatch PowerPointHeadersFooters
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get DateAndTime<&H7D3>() As PowerPointHeaderFooter
    Member Get SlideNumber<&H7D4>() As PowerPointHeaderFooter
    Member Get Header<&H7D5>() As PowerPointHeaderFooter
    Member Get Footer<&H7D6>() As PowerPointHeaderFooter
    Member Get DisplayOnTitleSlide<&H7D7>() As Long   'MsoTriState
    Member Let DisplayOnTitleSlide<&H7D7>()   'Parameter Type As %MsoTriState
    Member Call Clear<&H7D8>()
End Interface
 
Interface Dispatch PowerPointHyperlink
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get Type<&H7D3>() As Long   'MsoHyperlinkType
    Member Get Address<&H7D4>() As String
    Member Let Address<&H7D4>()   'Parameter Type As String
    Member Get SubAddress<&H7D5>() As String
    Member Let SubAddress<&H7D5>()   'Parameter Type As String
    Member Call AddToFavorites<&H7D6>()
End Interface
 
Interface Dispatch PowerPointHyperlinks
    Member Get Count<&HB>() As Long
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Call Item<&H0>(in index As Long<&H0> ) As PowerPointHyperlink
End Interface
 
Interface Dispatch PowerPointLineFormat
    Member Get Application<&H7D1>() As Variant
    Member Get Creator<&H7D2>() As Long
    Member Get Parent<&H1>() As Variant
    Member Get BackColor<&H64>() As PowerPointColorFormat
    Member Let BackColor<&H64>()   'Parameter Type As PowerPointColorFormat
    Member Get BeginArrowheadLength<&H65>() As Long   'MsoArrowheadLength
    Member Let BeginArrowheadLength<&H65>()   'Parameter Type As %MsoArrowheadLength
    Member Get BeginArrowheadStyle<&H66>() As Long   'MsoArrowheadStyle
    Member Let BeginArrowheadStyle<&H66>()   'Parameter Type As %MsoArrowheadStyle
    Member Get BeginArrowheadWidth<&H67>() As Long   'MsoArrowheadWidth
    Member Let BeginArrowheadWidth<&H67>()   'Parameter Type As %MsoArrowheadWidth
    Member Get DashStyle<&H68>() As Long   'MsoLineDashStyle
    Member Let DashStyle<&H68>()   'Parameter Type As %MsoLineDashStyle
    Member Get EndArrowheadLength<&H69>() As Long   'MsoArrowheadLength
    Member Let EndArrowheadLength<&H69>()   'Parameter Type As %MsoArrowheadLength
    Member Get EndArrowheadStyle<&H6A>() As Long   'MsoArrowheadStyle
    Member Let EndArrowheadStyle<&H6A>()   'Parameter Type As %MsoArrowheadStyle
    Member Get EndArrowheadWidth<&H6B>() As Long   'MsoArrowheadWidth
    Member Let EndArrowheadWidth<&H6B>()   'Parameter Type As %MsoArrowheadWidth
    Member Get ForeColor<&H6C>() As PowerPointColorFormat
    Member Let ForeColor<&H6C>()   'Parameter Type As PowerPointColorFormat
    Member Get Pattern<&H6D>() As Long   'MsoPatternType
    Member Let Pattern<&H6D>()   'Parameter Type As %MsoPatternType
    Member Get Style<&H6E>() As Long   'MsoLineStyle
    Member Let Style<&H6E>()   'Parameter Type As %MsoLineStyle
    Member Get Transparency<&H6F>() As Single
    Member Let Transparency<&H6F>()   'Parameter Type As Single
    Member Get Visible<&H70>() As Long   'MsoTriState
    Member Let Visible<&H70>()   'Parameter Type As %MsoTriState
    Member Get Weight<&H71>() As Single
    Member Let Weight<&H71>()   'Parameter Type As Single
End Interface
 
Interface Dispatch PowerPointLinkFormat
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get SourceFullName<&H7D3>() As String
    Member Let SourceFullName<&H7D3>()   'Parameter Type As String
    Member Get AutoUpdate<&H7D4>() As Long   'PpUpdateOption
    Member Let AutoUpdate<&H7D4>()   'Parameter Type As %PpUpdateOption
    Member Call Update<&H7D5>()
End Interface
 
Interface Dispatch PowerPointMaster
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get Shapes<&H7D3>() As PowerPointShapes
    Member Get HeadersFooters<&H7D4>() As PowerPointHeadersFooters
    Member Get ColorScheme<&H7D5>() As PowerPointColorScheme
    Member Let ColorScheme<&H7D5>()   'Parameter Type As PowerPointColorScheme
    Member Get Background<&H7D6>() As PowerPointShapeRange
    Member Get Name<&H7D7>() As String
    Member Let Name<&H7D7>()   'Parameter Type As String
    Member Call Delete<&H7D8>()
    Member Get Height<&H7D9>() As Single
    Member Get Width<&H7DA>() As Single
    Member Get TextStyles<&H7DB>() As PowerPointTextStyles
    Member Get Hyperlinks<&H7DC>() As PowerPointHyperlinks
End Interface
 
Interface Dispatch PowerPointNamedSlideShow
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get Name<&H7D3>() As String
    Member Call Delete<&H7D4>()
    Member Get SlideIDs<&H7D5>() As Variant
    Member Get Count<&H7D6>() As Long
End Interface
 
Interface Dispatch PowerPointNamedSlideShows
    Member Get Count<&HB>() As Long
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Call Item<&H0>(in index As Variant<&H0> ) As PowerPointNamedSlideShow
    Member Call Add<&H7D3>(in Name As String<&H0>, in safeArrayOfSlideIDs As Variant<&H1> ) As PowerPointNamedSlideShow
End Interface
 
Interface Dispatch PowerPointObjectVerbs
    Member Get Count<&HB>() As Long
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Call Item<&H0>(in index As Long<&H0> ) As String
End Interface
 
Interface Dispatch PowerPointOLEFormat
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get ObjectVerbs<&H7D3>() As PowerPointObjectVerbs
    Member Get Object<&H7D4>() As Variant
    Member Get ProgID<&H7D5>() As String
    Member Get FollowColors<&H7D6>() As Long   'PpFollowColors
    Member Let FollowColors<&H7D6>()   'Parameter Type As %PpFollowColors
    Member Call DoVerb<&H7D7>(optional in index As Long<&H0> )
    Member Call Activate<&H7D8>()
End Interface
 
Interface Dispatch PowerPointPageSetup
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get FirstSlideNumber<&H7D3>() As Long
    Member Let FirstSlideNumber<&H7D3>()   'Parameter Type As Long
    Member Get SlideHeight<&H7D4>() As Single
    Member Let SlideHeight<&H7D4>()   'Parameter Type As Single
    Member Get SlideWidth<&H7D5>() As Single
    Member Let SlideWidth<&H7D5>()   'Parameter Type As Single
    Member Get SlideSize<&H7D6>() As Long   'PpSlideSizeType
    Member Let SlideSize<&H7D6>()   'Parameter Type As %PpSlideSizeType
    Member Get NotesOrientation<&H7D7>() As Long   'MsoOrientation
    Member Let NotesOrientation<&H7D7>()   'Parameter Type As %MsoOrientation
    Member Get SlideOrientation<&H7D8>() As Long   'MsoOrientation
    Member Let SlideOrientation<&H7D8>()   'Parameter Type As %MsoOrientation
End Interface
 
Interface Dispatch PowerPointParagraphFormat
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get Alignment<&H7D3>() As Long   'PpParagraphAlignment
    Member Let Alignment<&H7D3>()   'Parameter Type As %PpParagraphAlignment
    Member Get Bullet<&H7D4>() As PowerPointBulletFormat
    Member Get LineRuleBefore<&H7D5>() As Long   'MsoTriState
    Member Let LineRuleBefore<&H7D5>()   'Parameter Type As %MsoTriState
    Member Get LineRuleAfter<&H7D6>() As Long   'MsoTriState
    Member Let LineRuleAfter<&H7D6>()   'Parameter Type As %MsoTriState
    Member Get LineRuleWithin<&H7D7>() As Long   'MsoTriState
    Member Let LineRuleWithin<&H7D7>()   'Parameter Type As %MsoTriState
    Member Get SpaceBefore<&H7D8>() As Single
    Member Let SpaceBefore<&H7D8>()   'Parameter Type As Single
    Member Get SpaceAfter<&H7D9>() As Single
    Member Let SpaceAfter<&H7D9>()   'Parameter Type As Single
    Member Get SpaceWithin<&H7DA>() As Single
    Member Let SpaceWithin<&H7DA>()   'Parameter Type As Single
    Member Get BaseLineAlignment<&H7DB>() As Long   'PpBaselineAlignment
    Member Let BaseLineAlignment<&H7DB>()   'Parameter Type As %PpBaselineAlignment
    Member Get FarEastLineBreakControl<&H7DC>() As Long   'MsoTriState
    Member Let FarEastLineBreakControl<&H7DC>()   'Parameter Type As %MsoTriState
    Member Get WordWrap<&H7DD>() As Long   'MsoTriState
    Member Let WordWrap<&H7DD>()   'Parameter Type As %MsoTriState
    Member Get HangingPunctuation<&H7DE>() As Long   'MsoTriState
    Member Let HangingPunctuation<&H7DE>()   'Parameter Type As %MsoTriState
    Member Get TextDirection<&H7DF>() As Long   'PpDirection
    Member Let TextDirection<&H7DF>()   'Parameter Type As %PpDirection
End Interface
 
Interface Dispatch PowerPointPictureFormat
    Member Get Application<&H7D1>() As Variant
    Member Get Creator<&H7D2>() As Long
    Member Get Parent<&H1>() As Variant
    Member Call IncrementBrightness<&HA>(in Increment As Single<&H0> )
    Member Call IncrementContrast<&HB>(in Increment As Single<&H0> )
    Member Get Brightness<&H64>() As Single
    Member Let Brightness<&H64>()   'Parameter Type As Single
    Member Get ColorType<&H65>() As Long   'MsoPictureColorType
    Member Let ColorType<&H65>()   'Parameter Type As %MsoPictureColorType
    Member Get Contrast<&H66>() As Single
    Member Let Contrast<&H66>()   'Parameter Type As Single
    Member Get CropBottom<&H67>() As Single
    Member Let CropBottom<&H67>()   'Parameter Type As Single
    Member Get CropLeft<&H68>() As Single
    Member Let CropLeft<&H68>()   'Parameter Type As Single
    Member Get CropRight<&H69>() As Single
    Member Let CropRight<&H69>()   'Parameter Type As Single
    Member Get CropTop<&H6A>() As Single
    Member Let CropTop<&H6A>()   'Parameter Type As Single
    Member Get TransparencyColor<&H6B>() As PowerPointMsoRGBType
    Member Let TransparencyColor<&H6B>()   'Parameter Type As PowerPointMsoRGBType
    Member Get TransparentBackground<&H6C>() As Long   'MsoTriState
    Member Let TransparentBackground<&H6C>()   'Parameter Type As %MsoTriState
End Interface
 
Interface Dispatch PowerPointPlaceholderFormat
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get Type<&H7D3>() As Long   'PpPlaceholderType
End Interface
 
Interface Dispatch PowerPointPlaceholders
    Member Get Count<&HB>() As Long
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Call Item<&H0>(in index As Long<&H0> ) As PowerPointShape
End Interface
 
Interface Dispatch PowerPointPlaySettings
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get ActionVerb<&H7D3>() As String
    Member Let ActionVerb<&H7D3>()   'Parameter Type As String
    Member Get HideWhileNotPlaying<&H7D4>() As Long   'MsoTriState
    Member Let HideWhileNotPlaying<&H7D4>()   'Parameter Type As %MsoTriState
    Member Get LoopUntilStopped<&H7D5>() As Long   'MsoTriState
    Member Let LoopUntilStopped<&H7D5>()   'Parameter Type As %MsoTriState
    Member Get PlayOnEntry<&H7D6>() As Long   'MsoTriState
    Member Let PlayOnEntry<&H7D6>()   'Parameter Type As %MsoTriState
    Member Get RewindMovie<&H7D7>() As Long   'MsoTriState
    Member Let RewindMovie<&H7D7>()   'Parameter Type As %MsoTriState
    Member Get PauseAnimation<&H7D8>() As Long   'MsoTriState
    Member Let PauseAnimation<&H7D8>()   'Parameter Type As %MsoTriState
    Member Get StopAfterSlides<&H7D9>() As Long
    Member Let StopAfterSlides<&H7D9>()   'Parameter Type As Long
End Interface
 
Interface Dispatch PowerPointPresentation
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get SlideMaster<&H7D3>() As PowerPointMaster
    Member Get TitleMaster<&H7D4>() As PowerPointMaster
    Member Get HasTitleMaster<&H7D5>() As Long   'MsoTriState
    Member Call AddTitleMaster<&H7D6>() As PowerPointMaster
    Member Call ApplyTemplate<&H7D7>(in FileName As String<&H0> )
    Member Get TemplateName<&H7D8>() As String
    Member Get NotesMaster<&H7D9>() As PowerPointMaster
    Member Get HandoutMaster<&H7DA>() As PowerPointMaster
    Member Get Slides<&H7DB>() As PowerPointSlides
    Member Get PageSetup<&H7DC>() As PowerPointPageSetup
    Member Get ColorSchemes<&H7DD>() As PowerPointColorSchemes
    Member Get ExtraColors<&H7DE>() As PowerPointExtraColors
    Member Get SlideShowSettings<&H7DF>() As PowerPointSlideShowSettings
    Member Get Fonts<&H7E0>() As PowerPointFonts
    Member Get Windows<&H7E1>() As PowerPointDocumentWindows
    Member Get Tags<&H7E2>() As PowerPointTags
    Member Get DefaultShape<&H7E3>() As PowerPointShape
    Member Get BuiltInDocumentProperties<&H7E4>() As Variant
    Member Get CustomDocumentProperties<&H7E5>() As Variant
    Member Get VBProject<&H7E6>() As PowerPointVBProject
    Member Get ReadOnly<&H7E7>() As Long   'MsoTriState
    Member Get FullName<&H7E8>() As String
    Member Get Name<&H7E9>() As String
    Member Get Path<&H7EA>() As String
    Member Get Saved<&H7EB>() As Long   'MsoTriState
    Member Let Saved<&H7EB>()   'Parameter Type As %MsoTriState
    Member Get LayoutDirection<&H7EC>() As Long   'PpDirection
    Member Let LayoutDirection<&H7EC>()   'Parameter Type As %PpDirection
    Member Call NewWindow<&H7ED>() As PowerPointDocumentWindow
    Member Call FollowHyperlink<&H7EE>(in Address As String<&H0>, optional in SubAddress As String<&H1>, optional in NewWindow As Long<&H2>, optional in AddHistory As Long<&H3>, optional in ExtraInfo As String<&H4>, _
        optional in Method As %MsoExtraInfoMethod<&H5>, optional in HeaderInfo As String<&H6> )
    Member Call AddToFavorites<&H7EF>()
    Member Get PrintOptions<&H7F1>() As PowerPointPrintOptions
    Member Call PrintOut<&H7F2>(optional in From As Long<&H0>, optional in To As Long<&H1>, optional in PrintToFile As String<&H2>, optional in Copies As Long<&H3>, optional in Collate As %MsoTriState<&H4> )
    Member Call Save<&H7F3>()
    Member Call SaveAs<&H7F4>(in FileName As String<&H0>, optional in FileFormat As %PpSaveAsFileType<&H1>, optional in EmbedTrueTypeFonts As %MsoTriState<&H2> )
    Member Call SaveCopyAs<&H7F5>(in FileName As String<&H0>, optional in FileFormat As %PpSaveAsFileType<&H1>, optional in EmbedTrueTypeFonts As %MsoTriState<&H2> )
    Member Call Export<&H7F6>(in Path As String<&H0>, in FilterName As String<&H1>, optional in ScaleWidth As Long<&H2>, optional in ScaleHeight As Long<&H3> )
    Member Call Close<&H7F7>()
    Member Call SetUndoText<&H7F8>(in Text As String<&H0> )
    Member Get Container<&H7F9>() As Variant
    Member Get DisplayComments<&H7FA>() As Long   'MsoTriState
    Member Let DisplayComments<&H7FA>()   'Parameter Type As %MsoTriState
    Member Get FarEastLineBreakLevel<&H7FB>() As Long   'PpFarEastLineBreakLevel
    Member Let FarEastLineBreakLevel<&H7FB>()   'Parameter Type As %PpFarEastLineBreakLevel
    Member Get NoLineBreakBefore<&H7FC>() As String
    Member Let NoLineBreakBefore<&H7FC>()   'Parameter Type As String
    Member Get NoLineBreakAfter<&H7FD>() As String
    Member Let NoLineBreakAfter<&H7FD>()   'Parameter Type As String
    Member Call UpdateLinks<&H7FE>()
    Member Get SlideShowWindow<&H7FF>() As PowerPointSlideShowWindow
End Interface
 
Interface Dispatch PowerPointPresentations
    Member Get Count<&HB>() As Long
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Call Item<&H0>(in index As Variant<&H0> ) As PowerPointPresentation
    Member Call Add<&H7D3>(optional in WithWindow As %MsoTriState<&H0> ) As PowerPointPresentation
    Member Call Open<&H7D4>(in FileName As String<&H0>, optional in ReadOnly As %MsoTriState<&H1>, optional in Untitled As %MsoTriState<&H2>, optional in WithWindow As %MsoTriState<&H3> ) As PowerPointPresentation
End Interface
 
Interface Dispatch PowerPointPrintOptions
    Member Get Application<&H7D1>() As Variant
    Member Get PrintColorType<&H7D2>() As Long   'PpPrintColorType
    Member Let PrintColorType<&H7D2>()   'Parameter Type As %PpPrintColorType
    Member Get Collate<&H7D3>() As Long   'MsoTriState
    Member Let Collate<&H7D3>()   'Parameter Type As %MsoTriState
    Member Get FitToPage<&H7D4>() As Long   'MsoTriState
    Member Let FitToPage<&H7D4>()   'Parameter Type As %MsoTriState
    Member Get FrameSlides<&H7D5>() As Long   'MsoTriState
    Member Let FrameSlides<&H7D5>()   'Parameter Type As %MsoTriState
    Member Get NumberOfCopies<&H7D6>() As Long
    Member Let NumberOfCopies<&H7D6>()   'Parameter Type As Long
    Member Get OutputType<&H7D7>() As Long   'PpPrintOutputType
    Member Let OutputType<&H7D7>()   'Parameter Type As %PpPrintOutputType
    Member Get Parent<&H7D8>() As Variant
    Member Get PrintHiddenSlides<&H7D9>() As Long   'MsoTriState
    Member Let PrintHiddenSlides<&H7D9>()   'Parameter Type As %MsoTriState
    Member Get PrintInBackground<&H7DA>() As Long   'MsoTriState
    Member Let PrintInBackground<&H7DA>()   'Parameter Type As %MsoTriState
    Member Get RangeType<&H7DB>() As Long   'PpPrintRangeType
    Member Let RangeType<&H7DB>()   'Parameter Type As %PpPrintRangeType
    Member Get Ranges<&H7DC>() As PowerPointPrintRanges
    Member Get PrintFontsAsGraphics<&H7DD>() As Long   'MsoTriState
    Member Let PrintFontsAsGraphics<&H7DD>()   'Parameter Type As %MsoTriState
    Member Get SlideShowName<&H7DE>() As String
    Member Let SlideShowName<&H7DE>()   'Parameter Type As String
    Member Get ActivePrinter<&H7DF>() As String
    Member Let ActivePrinter<&H7DF>()   'Parameter Type As String
End Interface
 
Interface Dispatch PowerPointPrintRange
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get Start<&H7D3>() As Long
    Member Get End<&H7D4>() As Long
    Member Call Delete<&H7D5>()
End Interface
 
Interface Dispatch PowerPointPrintRanges
    Member Get Count<&HB>() As Long
    Member Call Add<&H7D1>(in Start As Long<&H0>, in End As Long<&H1> ) As PowerPointPrintRange
    Member Get Application<&H7D2>() As Variant
    Member Call ClearAll<&H7D3>()
    Member Call Item<&H0>(in index As Long<&H0> ) As PowerPointPrintRange
    Member Get Parent<&H7D4>() As Variant
End Interface
 
Interface Dispatch PowerPointRGBColor
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get RGB<&H0>() As PowerPointMsoRGBType
    Member Let RGB<&H0>()   'Parameter Type As PowerPointMsoRGBType
End Interface
 
Interface Dispatch PowerPointRuler
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get TabStops<&H7D3>() As PowerPointTabStops
    Member Get Levels<&H7D4>() As PowerPointRulerLevels
End Interface
 
Interface Dispatch PowerPointRulerLevel
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get FirstMargin<&H7D3>() As Single
    Member Let FirstMargin<&H7D3>()   'Parameter Type As Single
    Member Get LeftMargin<&H7D4>() As Single
    Member Let LeftMargin<&H7D4>()   'Parameter Type As Single
End Interface
 
Interface Dispatch PowerPointRulerLevels
    Member Get Count<&HB>() As Long
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Call Item<&H0>(in index As Long<&H0> ) As PowerPointRulerLevel
End Interface
 
Interface Dispatch PowerPointSelection
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Call Cut<&H7D3>()
    Member Call Copy<&H7D4>()
    Member Call Delete<&H7D5>()
    Member Call Unselect<&H7D6>()
    Member Get Type<&H7D7>() As Long   'PpSelectionType
    Member Get SlideRange<&H7D8>() As PowerPointSlideRange
    Member Get ShapeRange<&H7D9>() As PowerPointShapeRange
    Member Get TextRange<&H7DA>() As PowerPointTextRange
End Interface
 
Interface Dispatch PowerPointShadowFormat
    Member Get Application<&H7D1>() As Variant
    Member Get Creator<&H7D2>() As Long
    Member Get Parent<&H1>() As Variant
    Member Call IncrementOffsetX<&HA>(in Increment As Single<&H0> )
    Member Call IncrementOffsetY<&HB>(in Increment As Single<&H0> )
    Member Get ForeColor<&H64>() As PowerPointColorFormat
    Member Let ForeColor<&H64>()   'Parameter Type As PowerPointColorFormat
    Member Get Obscured<&H65>() As Long   'MsoTriState
    Member Let Obscured<&H65>()   'Parameter Type As %MsoTriState
    Member Get OffsetX<&H66>() As Single
    Member Let OffsetX<&H66>()   'Parameter Type As Single
    Member Get OffsetY<&H67>() As Single
    Member Let OffsetY<&H67>()   'Parameter Type As Single
    Member Get Transparency<&H68>() As Single
    Member Let Transparency<&H68>()   'Parameter Type As Single
    Member Get Type<&H69>() As Long   'MsoShadowType
    Member Let Type<&H69>()   'Parameter Type As %MsoShadowType
    Member Get Visible<&H6A>() As Long   'MsoTriState
    Member Let Visible<&H6A>()   'Parameter Type As %MsoTriState
End Interface
 
Interface Dispatch PowerPointShape
    Member Get Application<&H7D1>() As Variant
    Member Get Creator<&H7D2>() As Long
    Member Get Parent<&H1>() As Variant
    Member Call Apply<&HA>()
    Member Call Delete<&HB>()
    Member Call Flip<&HD>(in FlipCmd As %MsoFlipCmd<&H0> )
    Member Call IncrementLeft<&HE>(in Increment As Single<&H0> )
    Member Call IncrementRotation<&HF>(in Increment As Single<&H0> )
    Member Call IncrementTop<&H10>(in Increment As Single<&H0> )
    Member Call PickUp<&H11>()
    Member Call RerouteConnections<&H12>()
    Member Call ScaleHeight<&H13>(in Factor As Single<&H0>, in RelativeToOriginalSize As %MsoTriState<&H1>, optional in fScale As %MsoScaleFrom<&H2> )
    Member Call ScaleWidth<&H14>(in Factor As Single<&H0>, in RelativeToOriginalSize As %MsoTriState<&H1>, optional in fScale As %MsoScaleFrom<&H2> )
    Member Call SetShapesDefaultProperties<&H16>()
    Member Call Ungroup<&H17>() As PowerPointShapeRange
    Member Call ZOrder<&H18>(in ZOrderCmd As %MsoZOrderCmd<&H0> )
    Member Get Adjustments<&H64>() As PowerPointAdjustments
    Member Get AutoShapeType<&H65>() As Long   'MsoAutoShapeType
    Member Let AutoShapeType<&H65>()   'Parameter Type As %MsoAutoShapeType
    Member Get BlackWhiteMode<&H66>() As Long   'MsoBlackWhiteMode
    Member Let BlackWhiteMode<&H66>()   'Parameter Type As %MsoBlackWhiteMode
    Member Get Callout<&H67>() As PowerPointCalloutFormat
    Member Get ConnectionSiteCount<&H68>() As Long
    Member Get Connector<&H69>() As Long   'MsoTriState
    Member Get ConnectorFormat<&H6A>() As PowerPointConnectorFormat
    Member Get Fill<&H6B>() As PowerPointFillFormat
    Member Get GroupItems<&H6C>() As PowerPointGroupShapes
    Member Get Height<&H6D>() As Single
    Member Let Height<&H6D>()   'Parameter Type As Single
    Member Get HorizontalFlip<&H6E>() As Long   'MsoTriState
    Member Get Left<&H6F>() As Single
    Member Let Left<&H6F>()   'Parameter Type As Single
    Member Get Line<&H70>() As PowerPointLineFormat
    Member Get LockAspectRatio<&H71>() As Long   'MsoTriState
    Member Let LockAspectRatio<&H71>()   'Parameter Type As %MsoTriState
    Member Get Name<&H73>() As String
    Member Let Name<&H73>()   'Parameter Type As String
    Member Get Nodes<&H74>() As PowerPointShapeNodes
    Member Get Rotation<&H75>() As Single
    Member Let Rotation<&H75>()   'Parameter Type As Single
    Member Get PictureFormat<&H76>() As PowerPointPictureFormat
    Member Get Shadow<&H77>() As PowerPointShadowFormat
    Member Get TextEffect<&H78>() As PowerPointTextEffectFormat
    Member Get TextFrame<&H79>() As PowerPointTextFrame
    Member Get ThreeD<&H7A>() As PowerPointThreeDFormat
    Member Get Top<&H7B>() As Single
    Member Let Top<&H7B>()   'Parameter Type As Single
    Member Get Type<&H7C>() As Long   'MsoShapeType
    Member Get VerticalFlip<&H7D>() As Long   'MsoTriState
    Member Get Vertices<&H7E>() As Variant
    Member Get Visible<&H7F>() As Long   'MsoTriState
    Member Let Visible<&H7F>()   'Parameter Type As %MsoTriState
    Member Get Width<&H80>() As Single
    Member Let Width<&H80>()   'Parameter Type As Single
    Member Get ZOrderPosition<&H81>() As Long
    Member Get OLEFormat<&H7D3>() As PowerPointOLEFormat
    Member Get LinkFormat<&H7D4>() As PowerPointLinkFormat
    Member Get PlaceholderFormat<&H7D5>() As PowerPointPlaceholderFormat
    Member Get AnimationSettings<&H7D6>() As PowerPointAnimationSettings
    Member Get ActionSettings<&H7D7>() As PowerPointActionSettings
    Member Get Tags<&H7D8>() As PowerPointTags
    Member Call Cut<&H7D9>()
    Member Call Copy<&H7DA>()
    Member Call Select<&H7DB>(optional in Replace As %MsoTriState<&H0> )
    Member Call Duplicate<&H7DC>() As PowerPointShapeRange
    Member Get MediaType<&H7DD>() As Long   'PpMediaType
    Member Get HasTextFrame<&H7DE>() As Long   'MsoTriState
    Member Get SoundFormat<&H7DF>() As PowerPointSoundFormat
End Interface
 
Interface Dispatch PowerPointShapeNode
    Member Get Application<&H7D1>() As Variant
    Member Get Creator<&H7D2>() As Long
    Member Get Parent<&H1>() As Variant
    Member Get EditingType<&H64>() As Long   'MsoEditingType
    Member Get Points<&H65>() As Variant
    Member Get SegmentType<&H66>() As Long   'MsoSegmentType
End Interface
 
Interface Dispatch PowerPointShapeNodes
    Member Get Application<&H7D1>() As Variant
    Member Get Creator<&H7D2>() As Long
    Member Get Parent<&H1>() As Variant
    Member Get Count<&H2>() As Long
    Member Call Item<&H0>(in index As Variant<&H0> ) As PowerPointShapeNode
    Member Call Delete<&HB>(in index As Long<&H0> )
    Member Call Insert<&HC>(in index As Long<&H0>, in SegmentType As %MsoSegmentType<&H1>, in EditingType As %MsoEditingType<&H2>, in X1 As Single<&H3>, in Y1 As Single<&H4>, optional in X2 As Single<&H5>, optional in Y2 As Single<&H6>, _
        optional in X3 As Single<&H7>, optional in Y3 As Single<&H8> )
    Member Call SetEditingType<&HD>(in index As Long<&H0>, in EditingType As %MsoEditingType<&H1> )
    Member Call SetPosition<&HE>(in index As Long<&H0>, in X1 As Single<&H1>, in Y1 As Single<&H2> )
    Member Call SetSegmentType<&HF>(in index As Long<&H0>, in SegmentType As %MsoSegmentType<&H1> )
End Interface
 
Interface Dispatch PowerPointShapeRange
    Member Get Application<&H7D1>() As Variant
    Member Get Creator<&H7D2>() As Long
    Member Get Parent<&H1>() As Variant
    Member Call Apply<&HA>()
    Member Call Delete<&HB>()
    Member Call Flip<&HD>(in FlipCmd As %MsoFlipCmd<&H0> )
    Member Call IncrementLeft<&HE>(in Increment As Single<&H0> )
    Member Call IncrementRotation<&HF>(in Increment As Single<&H0> )
    Member Call IncrementTop<&H10>(in Increment As Single<&H0> )
    Member Call PickUp<&H11>()
    Member Call RerouteConnections<&H12>()
    Member Call ScaleHeight<&H13>(in Factor As Single<&H0>, in RelativeToOriginalSize As %MsoTriState<&H1>, optional in fScale As %MsoScaleFrom<&H2> )
    Member Call ScaleWidth<&H14>(in Factor As Single<&H0>, in RelativeToOriginalSize As %MsoTriState<&H1>, optional in fScale As %MsoScaleFrom<&H2> )
    Member Call SetShapesDefaultProperties<&H16>()
    Member Call Ungroup<&H17>() As PowerPointShapeRange
    Member Call ZOrder<&H18>(in ZOrderCmd As %MsoZOrderCmd<&H0> )
    Member Get Adjustments<&H64>() As PowerPointAdjustments
    Member Get AutoShapeType<&H65>() As Long   'MsoAutoShapeType
    Member Let AutoShapeType<&H65>()   'Parameter Type As %MsoAutoShapeType
    Member Get BlackWhiteMode<&H66>() As Long   'MsoBlackWhiteMode
    Member Let BlackWhiteMode<&H66>()   'Parameter Type As %MsoBlackWhiteMode
    Member Get Callout<&H67>() As PowerPointCalloutFormat
    Member Get ConnectionSiteCount<&H68>() As Long
    Member Get Connector<&H69>() As Long   'MsoTriState
    Member Get ConnectorFormat<&H6A>() As PowerPointConnectorFormat
    Member Get Fill<&H6B>() As PowerPointFillFormat
    Member Get GroupItems<&H6C>() As PowerPointGroupShapes
    Member Get Height<&H6D>() As Single
    Member Let Height<&H6D>()   'Parameter Type As Single
    Member Get HorizontalFlip<&H6E>() As Long   'MsoTriState
    Member Get Left<&H6F>() As Single
    Member Let Left<&H6F>()   'Parameter Type As Single
    Member Get Line<&H70>() As PowerPointLineFormat
    Member Get LockAspectRatio<&H71>() As Long   'MsoTriState
    Member Let LockAspectRatio<&H71>()   'Parameter Type As %MsoTriState
    Member Get Name<&H73>() As String
    Member Let Name<&H73>()   'Parameter Type As String
    Member Get Nodes<&H74>() As PowerPointShapeNodes
    Member Get Rotation<&H75>() As Single
    Member Let Rotation<&H75>()   'Parameter Type As Single
    Member Get PictureFormat<&H76>() As PowerPointPictureFormat
    Member Get Shadow<&H77>() As PowerPointShadowFormat
    Member Get TextEffect<&H78>() As PowerPointTextEffectFormat
    Member Get TextFrame<&H79>() As PowerPointTextFrame
    Member Get ThreeD<&H7A>() As PowerPointThreeDFormat
    Member Get Top<&H7B>() As Single
    Member Let Top<&H7B>()   'Parameter Type As Single
    Member Get Type<&H7C>() As Long   'MsoShapeType
    Member Get VerticalFlip<&H7D>() As Long   'MsoTriState
    Member Get Vertices<&H7E>() As Variant
    Member Get Visible<&H7F>() As Long   'MsoTriState
    Member Let Visible<&H7F>()   'Parameter Type As %MsoTriState
    Member Get Width<&H80>() As Single
    Member Let Width<&H80>()   'Parameter Type As Single
    Member Get ZOrderPosition<&H81>() As Long
    Member Get OLEFormat<&H7D3>() As PowerPointOLEFormat
    Member Get LinkFormat<&H7D4>() As PowerPointLinkFormat
    Member Get PlaceholderFormat<&H7D5>() As PowerPointPlaceholderFormat
    Member Get AnimationSettings<&H7D6>() As PowerPointAnimationSettings
    Member Get ActionSettings<&H7D7>() As PowerPointActionSettings
    Member Get Tags<&H7D8>() As PowerPointTags
    Member Call Cut<&H7D9>()
    Member Call Copy<&H7DA>()
    Member Call Select<&H7DB>(optional in Replace As %MsoTriState<&H0> )
    Member Call Duplicate<&H7DC>() As PowerPointShapeRange
    Member Get MediaType<&H7DD>() As Long   'PpMediaType
    Member Get HasTextFrame<&H7DE>() As Long   'MsoTriState
    Member Get SoundFormat<&H7DF>() As PowerPointSoundFormat
    Member Call Item<&H0>(in index As Variant<&H0> ) As PowerPointShape
    Member Get Count<&H9>() As Long
    Member Call Group<&H7E0>() As PowerPointShape
    Member Call Regroup<&H7E1>() As PowerPointShape
    Member Call Align<&H7E2>(in AlignCmd As %MsoAlignCmd<&H0>, in RelativeTo As %MsoTriState<&H1> )
    Member Call Distribute<&H7E3>(in DistributeCmd As %MsoDistributeCmd<&H0>, in RelativeTo As %MsoTriState<&H1> )
End Interface
 
Interface Dispatch PowerPointShapes
    Member Get Application<&H7D1>() As Variant
    Member Get Creator<&H7D2>() As Long
    Member Get Parent<&H1>() As Variant
    Member Get Count<&H2>() As Long
    Member Call Item<&H0>(in index As Variant<&H0> ) As PowerPointShape
    Member Call AddCallout<&HA>(in Type As %MsoCalloutType<&H0>, in Left As Single<&H1>, in Top As Single<&H2>, in Width As Single<&H3>, in Height As Single<&H4> ) As PowerPointShape
    Member Call AddConnector<&HB>(in Type As %MsoConnectorType<&H0>, in BeginX As Single<&H1>, in BeginY As Single<&H2>, in EndX As Single<&H3>, in EndY As Single<&H4> ) As PowerPointShape
    Member Call AddCurve<&HC>(in SafeArrayOfPoints As Variant<&H0> ) As PowerPointShape
    Member Call AddLabel<&HD>(in Orientation As %MsoTextOrientation<&H0>, in Left As Single<&H1>, in Top As Single<&H2>, in Width As Single<&H3>, in Height As Single<&H4> ) As PowerPointShape
    Member Call AddLine<&HE>(in BeginX As Single<&H0>, in BeginY As Single<&H1>, in EndX As Single<&H2>, in EndY As Single<&H3> ) As PowerPointShape
    Member Call AddPicture<&HF>(in FileName As String<&H0>, in LinkToFile As %MsoTriState<&H1>, in SaveWithDocument As %MsoTriState<&H2>, in Left As Single<&H3>, in Top As Single<&H4>, in Width As Single<&H5>, _
        in Height As Single<&H6> ) As PowerPointShape
    Member Call AddPolyline<&H10>(in SafeArrayOfPoints As Variant<&H0> ) As PowerPointShape
    Member Call AddShape<&H11>(in Type As %MsoAutoShapeType<&H0>, in Left As Single<&H1>, in Top As Single<&H2>, in Width As Single<&H3>, in Height As Single<&H4> ) As PowerPointShape
    Member Call AddTextEffect<&H12>(in PresetTextEffect As %MsoPresetTextEffect<&H0>, in Text As String<&H1>, in FontName As String<&H2>, in FontSize As Single<&H3>, in FontBold As %MsoTriState<&H4>, in FontItalic As %MsoTriState<&H5>, _
        in Left As Single<&H6>, in Top As Single<&H7> ) As PowerPointShape
    Member Call AddTextbox<&H13>(in Orientation As %MsoTextOrientation<&H0>, in Left As Single<&H1>, in Top As Single<&H2>, in Width As Single<&H3>, in Height As Single<&H4> ) As PowerPointShape
    Member Call BuildFreeform<&H14>(in EditingType As %MsoEditingType<&H0>, in X1 As Single<&H1>, in Y1 As Single<&H2> ) As PowerPointFreeformBuilder
    Member Call SelectAll<&H16>()
    Member Call Range<&H7D3>(optional in index As Variant<&H0> ) As PowerPointShapeRange
    Member Get HasTitle<&H7D4>() As Long   'MsoTriState
    Member Call AddTitle<&H7D5>() As PowerPointShape
    Member Get Title<&H7D6>() As PowerPointShape
    Member Get Placeholders<&H7D7>() As PowerPointPlaceholders
    Member Call AddOLEObject<&H7D8>(optional in Left As Single<&H0>, optional in Top As Single<&H1>, optional in Width As Single<&H2>, optional in Height As Single<&H3>, optional in ClassName As String<&H4>, optional in FileName As String<&H5>, _
        optional in DisplayAsIcon As %MsoTriState<&H6>, optional in IconFileName As String<&H7>, optional in IconIndex As Long<&H8>, optional in IconLabel As String<&H9>, optional in Link As %MsoTriState<&HA> ) As PowerPointShape
    Member Call AddComment<&H7D9>(optional in Left As Single<&H0>, optional in Top As Single<&H1>, optional in Width As Single<&H2>, optional in Height As Single<&H3> ) As PowerPointShape
    Member Call AddPlaceholder<&H7DA>(in Type As %PpPlaceholderType<&H0>, optional in Left As Single<&H1>, optional in Top As Single<&H2>, optional in Width As Single<&H3>, optional in Height As Single<&H4> ) As PowerPointShape
    Member Call AddMediaObject<&H7DB>(in FileName As String<&H0>, optional in Left As Single<&H1>, optional in Top As Single<&H2>, optional in Width As Single<&H3>, optional in Height As Single<&H4> ) As PowerPointShape
    Member Call Paste<&H7DC>() As PowerPointShapeRange
End Interface
 
Interface Dispatch PowerPointSlide
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get Shapes<&H7D3>() As PowerPointShapes
    Member Get HeadersFooters<&H7D4>() As PowerPointHeadersFooters
    Member Get SlideShowTransition<&H7D5>() As PowerPointSlideShowTransition
    Member Get ColorScheme<&H7D6>() As PowerPointColorScheme
    Member Let ColorScheme<&H7D6>()   'Parameter Type As PowerPointColorScheme
    Member Get Background<&H7D7>() As PowerPointShapeRange
    Member Get Name<&H7D8>() As String
    Member Let Name<&H7D8>()   'Parameter Type As String
    Member Get SlideID<&H7D9>() As Long
    Member Get PrintSteps<&H7DA>() As Long
    Member Call Select<&H7DB>()
    Member Call Cut<&H7DC>()
    Member Call Copy<&H7DD>()
    Member Get Layout<&H7DE>() As Long   'PpSlideLayout
    Member Let Layout<&H7DE>()   'Parameter Type As %PpSlideLayout
    Member Call Duplicate<&H7DF>() As PowerPointSlideRange
    Member Call Delete<&H7E0>()
    Member Get Tags<&H7E1>() As PowerPointTags
    Member Get SlideIndex<&H7E2>() As Long
    Member Get SlideNumber<&H7E3>() As Long
    Member Get DisplayMasterShapes<&H7E4>() As Long   'MsoTriState
    Member Let DisplayMasterShapes<&H7E4>()   'Parameter Type As %MsoTriState
    Member Get FollowMasterBackground<&H7E5>() As Long   'MsoTriState
    Member Let FollowMasterBackground<&H7E5>()   'Parameter Type As %MsoTriState
    Member Get NotesPage<&H7E6>() As PowerPointSlideRange
    Member Get Master<&H7E7>() As PowerPointMaster
    Member Get Hyperlinks<&H7E8>() As PowerPointHyperlinks
    Member Call Export<&H7E9>(in FileName As String<&H0>, in FilterName As String<&H1>, optional in ScaleWidth As Long<&H2>, optional in ScaleHeight As Long<&H3> )
End Interface
 
Interface Dispatch PowerPointSlideRange
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get Shapes<&H7D3>() As PowerPointShapes
    Member Get HeadersFooters<&H7D4>() As PowerPointHeadersFooters
    Member Get SlideShowTransition<&H7D5>() As PowerPointSlideShowTransition
    Member Get ColorScheme<&H7D6>() As PowerPointColorScheme
    Member Let ColorScheme<&H7D6>()   'Parameter Type As PowerPointColorScheme
    Member Get Background<&H7D7>() As PowerPointShapeRange
    Member Get Name<&H7D8>() As String
    Member Let Name<&H7D8>()   'Parameter Type As String
    Member Get SlideID<&H7D9>() As Long
    Member Get PrintSteps<&H7DA>() As Long
    Member Call Select<&H7DB>()
    Member Call Cut<&H7DC>()
    Member Call Copy<&H7DD>()
    Member Get Layout<&H7DE>() As Long   'PpSlideLayout
    Member Let Layout<&H7DE>()   'Parameter Type As %PpSlideLayout
    Member Call Duplicate<&H7DF>() As PowerPointSlideRange
    Member Call Delete<&H7E0>()
    Member Get Tags<&H7E1>() As PowerPointTags
    Member Get SlideIndex<&H7E2>() As Long
    Member Get SlideNumber<&H7E3>() As Long
    Member Get DisplayMasterShapes<&H7E4>() As Long   'MsoTriState
    Member Let DisplayMasterShapes<&H7E4>()   'Parameter Type As %MsoTriState
    Member Get FollowMasterBackground<&H7E5>() As Long   'MsoTriState
    Member Let FollowMasterBackground<&H7E5>()   'Parameter Type As %MsoTriState
    Member Get NotesPage<&H7E6>() As PowerPointSlideRange
    Member Get Master<&H7E7>() As PowerPointMaster
    Member Get Hyperlinks<&H7E8>() As PowerPointHyperlinks
    Member Call Export<&H7E9>(in FileName As String<&H0>, in FilterName As String<&H1>, optional in ScaleWidth As Long<&H2>, optional in ScaleHeight As Long<&H3> )
    Member Call Item<&H0>(in index As Variant<&H0> ) As PowerPointSlide
    Member Get Count<&HB>() As Long
End Interface
 
Interface Dispatch PowerPointSlides
    Member Get Count<&HB>() As Long
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Call Item<&H0>(in index As Variant<&H0> ) As PowerPointSlide
    Member Call FindBySlideID<&H7D3>(in SlideID As Long<&H0> ) As PowerPointSlide
    Member Call Add<&H7D4>(in index As Long<&H0>, in Layout As %PpSlideLayout<&H1> ) As PowerPointSlide
    Member Call InsertFromFile<&H7D5>(in FileName As String<&H0>, in index As Long<&H1>, optional in SlideStart As Long<&H2>, optional in SlideEnd As Long<&H3> ) As Long
    Member Call Range<&H7D6>(optional in index As Variant<&H0> ) As PowerPointSlideRange
    Member Call Paste<&H7D7>(optional in index As Long<&H0> ) As PowerPointSlideRange
End Interface
 
Interface Dispatch PowerPointSlideShowSettings
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get PointerColor<&H7D3>() As PowerPointColorFormat
    Member Get NamedSlideShows<&H7D4>() As PowerPointNamedSlideShows
    Member Get StartingSlide<&H7D5>() As Long
    Member Let StartingSlide<&H7D5>()   'Parameter Type As Long
    Member Get EndingSlide<&H7D6>() As Long
    Member Let EndingSlide<&H7D6>()   'Parameter Type As Long
    Member Get AdvanceMode<&H7D7>() As Long   'PpSlideShowAdvanceMode
    Member Let AdvanceMode<&H7D7>()   'Parameter Type As %PpSlideShowAdvanceMode
    Member Call Run<&H7D8>() As PowerPointSlideShowWindow
    Member Get LoopUntilStopped<&H7D9>() As Long   'MsoTriState
    Member Let LoopUntilStopped<&H7D9>()   'Parameter Type As %MsoTriState
    Member Get ShowType<&H7DA>() As Long   'PpSlideShowType
    Member Let ShowType<&H7DA>()   'Parameter Type As %PpSlideShowType
    Member Get ShowWithNarration<&H7DB>() As Long   'MsoTriState
    Member Let ShowWithNarration<&H7DB>()   'Parameter Type As %MsoTriState
    Member Get ShowWithAnimation<&H7DC>() As Long   'MsoTriState
    Member Let ShowWithAnimation<&H7DC>()   'Parameter Type As %MsoTriState
    Member Get SlideShowName<&H7DD>() As String
    Member Let SlideShowName<&H7DD>()   'Parameter Type As String
    Member Get RangeType<&H7DE>() As Long   'PpSlideShowRangeType
    Member Let RangeType<&H7DE>()   'Parameter Type As %PpSlideShowRangeType
End Interface
 
Interface Dispatch PowerPointSlideShowTransition
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get AdvanceOnClick<&H7D3>() As Long   'MsoTriState
    Member Let AdvanceOnClick<&H7D3>()   'Parameter Type As %MsoTriState
    Member Get AdvanceOnTime<&H7D4>() As Long   'MsoTriState
    Member Let AdvanceOnTime<&H7D4>()   'Parameter Type As %MsoTriState
    Member Get AdvanceTime<&H7D5>() As Single
    Member Let AdvanceTime<&H7D5>()   'Parameter Type As Single
    Member Get EntryEffect<&H7D6>() As Long   'PpEntryEffect
    Member Let EntryEffect<&H7D6>()   'Parameter Type As %PpEntryEffect
    Member Get Hidden<&H7D7>() As Long   'MsoTriState
    Member Let Hidden<&H7D7>()   'Parameter Type As %MsoTriState
    Member Get LoopSoundUntilNext<&H7D8>() As Long   'MsoTriState
    Member Let LoopSoundUntilNext<&H7D8>()   'Parameter Type As %MsoTriState
    Member Get SoundEffect<&H7D9>() As PowerPointSoundEffect
    Member Get Speed<&H7DA>() As Long   'PpTransitionSpeed
    Member Let Speed<&H7DA>()   'Parameter Type As %PpTransitionSpeed
End Interface
 
Interface Dispatch PowerPointSlideShowView
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get Zoom<&H7D3>() As Long
    Member Get Slide<&H7D4>() As PowerPointSlide
    Member Get PointerType<&H7D5>() As Long   'PpSlideShowPointerType
    Member Let PointerType<&H7D5>()   'Parameter Type As %PpSlideShowPointerType
    Member Get State<&H7D6>() As Long   'PpSlideShowState
    Member Let State<&H7D6>()   'Parameter Type As %PpSlideShowState
    Member Get AcceleratorsEnabled<&H7D7>() As Long   'MsoTriState
    Member Let AcceleratorsEnabled<&H7D7>()   'Parameter Type As %MsoTriState
    Member Get PresentationElapsedTime<&H7D8>() As Single
    Member Get SlideElapsedTime<&H7D9>() As Single
    Member Let SlideElapsedTime<&H7D9>()   'Parameter Type As Single
    Member Get LastSlideViewed<&H7DA>() As PowerPointSlide
    Member Get AdvanceMode<&H7DB>() As Long   'PpSlideShowAdvanceMode
    Member Get PointerColor<&H7DC>() As PowerPointColorFormat
    Member Get IsNamedShow<&H7DD>() As Long   'MsoTriState
    Member Get SlideShowName<&H7DE>() As String
    Member Call DrawLine<&H7DF>(in BeginX As Single<&H0>, in BeginY As Single<&H1>, in EndX As Single<&H2>, in EndY As Single<&H3> )
    Member Call EraseDrawing<&H7E0>()
    Member Call First<&H7E1>()
    Member Call Last<&H7E2>()
    Member Call Next<&H7E3>()
    Member Call Previous<&H7E4>()
    Member Call GotoSlide<&H7E5>(in index As Long<&H0>, optional in ResetSlide As %MsoTriState<&H1> )
    Member Call GotoNamedShow<&H7E6>(in SlideShowName As String<&H0> )
    Member Call EndNamedShow<&H7E7>()
    Member Call ResetSlideTime<&H7E8>()
    Member Call Exit<&H7E9>()
    Member Call InstallTracker<&H7EA>(in pTracker As PowerPointMouseTracker<&H0>, in Presenter As %MsoTriState<&H1> )
    Member Get CurrentShowPosition<&H7EB>() As Long
End Interface
 
Interface Dispatch PowerPointSlideShowWindow
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get View<&H7D3>() As PowerPointSlideShowView
    Member Get Presentation<&H7D4>() As PowerPointPresentation
    Member Get IsFullScreen<&H7D5>() As Long   'MsoTriState
    Member Get Left<&H7D6>() As Single
    Member Let Left<&H7D6>()   'Parameter Type As Single
    Member Get Top<&H7D7>() As Single
    Member Let Top<&H7D7>()   'Parameter Type As Single
    Member Get Width<&H7D8>() As Single
    Member Let Width<&H7D8>()   'Parameter Type As Single
    Member Get Height<&H7D9>() As Single
    Member Let Height<&H7D9>()   'Parameter Type As Single
    Member Get Active<&H7DB>() As Long   'MsoTriState
    Member Call Activate<&H7DC>()
End Interface
 
Interface Dispatch PowerPointSlideShowWindows
    Member Get Count<&HB>() As Long
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Call Item<&H0>(in index As Long<&H0> ) As PowerPointSlideShowWindow
End Interface
 
Interface Dispatch PowerPointSoundEffect
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get Name<&H7D3>() As String
    Member Let Name<&H7D3>()   'Parameter Type As String
    Member Get Type<&H7D4>() As Long   'PpSoundEffectType
    Member Let Type<&H7D4>()   'Parameter Type As %PpSoundEffectType
    Member Call ImportFromFile<&H7D5>(in FileName As String<&H0> )
    Member Call Play<&H7D6>()
End Interface
 
Interface Dispatch PowerPointTabStop
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get Type<&H7D3>() As Long   'PpTabStopType
    Member Let Type<&H7D3>()   'Parameter Type As %PpTabStopType
    Member Get Position<&H7D4>() As Single
    Member Let Position<&H7D4>()   'Parameter Type As Single
    Member Call Clear<&H7D5>()
End Interface
 
Interface Dispatch PowerPointTabStops
    Member Get Count<&HB>() As Long
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Call Item<&H0>(in index As Long<&H0> ) As PowerPointTabStop
    Member Get DefaultSpacing<&H7D3>() As Single
    Member Let DefaultSpacing<&H7D3>()   'Parameter Type As Single
    Member Call Add<&H7D4>(in Type As %PpTabStopType<&H0>, in Position As Single<&H1> ) As PowerPointTabStop
End Interface

Interface Dispatch PowerPointTags
    Member Get Count<&HB>() As Long
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Call Item<&H0>(in Name As String<&H0> ) As String
    Member Call Add<&H7D3>(in Name As String<&H0>, in Value As String<&H1> )
    Member Call Delete<&H7D4>(in Name As String<&H0> )
    Member Call AddBinary<&H7D5>(in Name As String<&H0>, in FilePath As String<&H1> )
    Member Call BinaryValue<&H7D6>(in Name As String<&H0> ) As Long
    Member Call Name<&H7D7>(in index As Long<&H0> ) As String
    Member Call Value<&H7D8>(in index As Long<&H0> ) As String
End Interface
 
Interface Dispatch PowerPointTextEffectFormat
    Member Get Application<&H7D1>() As Variant
    Member Get Creator<&H7D2>() As Long
    Member Get Parent<&H1>() As Variant
    Member Call ToggleVerticalText<&HA>()
    Member Get Alignment<&H64>() As Long   'MsoTextEffectAlignment
    Member Let Alignment<&H64>()   'Parameter Type As %MsoTextEffectAlignment
    Member Get FontBold<&H65>() As Long   'MsoTriState
    Member Let FontBold<&H65>()   'Parameter Type As %MsoTriState
    Member Get FontItalic<&H66>() As Long   'MsoTriState
    Member Let FontItalic<&H66>()   'Parameter Type As %MsoTriState
    Member Get FontName<&H67>() As String
    Member Let FontName<&H67>()   'Parameter Type As String
    Member Get FontSize<&H68>() As Single
    Member Let FontSize<&H68>()   'Parameter Type As Single
    Member Get KernedPairs<&H69>() As Long   'MsoTriState
    Member Let KernedPairs<&H69>()   'Parameter Type As %MsoTriState
    Member Get NormalizedHeight<&H6A>() As Long   'MsoTriState
    Member Let NormalizedHeight<&H6A>()   'Parameter Type As %MsoTriState
    Member Get PresetShape<&H6B>() As Long   'MsoPresetTextEffectShape
    Member Let PresetShape<&H6B>()   'Parameter Type As %MsoPresetTextEffectShape
    Member Get PresetTextEffect<&H6C>() As Long   'MsoPresetTextEffect
    Member Let PresetTextEffect<&H6C>()   'Parameter Type As %MsoPresetTextEffect
    Member Get RotatedChars<&H6D>() As Long   'MsoTriState
    Member Let RotatedChars<&H6D>()   'Parameter Type As %MsoTriState
    Member Get Text<&H6E>() As String
    Member Let Text<&H6E>()   'Parameter Type As String
    Member Get Tracking<&H6F>() As Single
    Member Let Tracking<&H6F>()   'Parameter Type As Single
End Interface
 
Interface Dispatch PowerPointTextFrame
    Member Get Application<&H7D1>() As Variant
    Member Get Creator<&H7D2>() As Long
    Member Get Parent<&H1>() As Variant
    Member Get MarginBottom<&H64>() As Single
    Member Let MarginBottom<&H64>()   'Parameter Type As Single
    Member Get MarginLeft<&H65>() As Single
    Member Let MarginLeft<&H65>()   'Parameter Type As Single
    Member Get MarginRight<&H66>() As Single
    Member Let MarginRight<&H66>()   'Parameter Type As Single
    Member Get MarginTop<&H67>() As Single
    Member Let MarginTop<&H67>()   'Parameter Type As Single
    Member Get Orientation<&H68>() As Long   'MsoTextOrientation
    Member Let Orientation<&H68>()   'Parameter Type As %MsoTextOrientation
    Member Get HasText<&H7D3>() As Long   'MsoTriState
    Member Get TextRange<&H7D4>() As PowerPointTextRange
    Member Get Ruler<&H7D5>() As PowerPointRuler
    Member Get HorizontalAnchor<&H7D6>() As Long   'MsoHorizontalAnchor
    Member Let HorizontalAnchor<&H7D6>()   'Parameter Type As %MsoHorizontalAnchor
    Member Get VerticalAnchor<&H7D7>() As Long   'MsoVerticalAnchor
    Member Let VerticalAnchor<&H7D7>()   'Parameter Type As %MsoVerticalAnchor
    Member Get AutoSize<&H7D8>() As Long   'PpAutoSize
    Member Let AutoSize<&H7D8>()   'Parameter Type As %PpAutoSize
    Member Get WordWrap<&H7D9>() As Long   'MsoTriState
    Member Let WordWrap<&H7D9>()   'Parameter Type As %MsoTriState
    Member Call DeleteText<&H7DA>()
End Interface
 
Interface Dispatch PowerPointTextRange
    Member Get Count<&HB>() As Long
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get ActionSettings<&H7D3>() As PowerPointActionSettings
    Member Get Start<&H7D4>() As Long
    Member Get Length<&H7D5>() As Long
    Member Get BoundLeft<&H7D6>() As Single
    Member Get BoundTop<&H7D7>() As Single
    Member Get BoundWidth<&H7D8>() As Single
    Member Get BoundHeight<&H7D9>() As Single
    Member Call Paragraphs<&H7DA>(optional in Start As Long<&H0>, optional in Length As Long<&H1> ) As PowerPointTextRange
    Member Call Sentences<&H7DB>(optional in Start As Long<&H0>, optional in Length As Long<&H1> ) As PowerPointTextRange
    Member Call Words<&H7DC>(optional in Start As Long<&H0>, optional in Length As Long<&H1> ) As PowerPointTextRange
    Member Call Characters<&H7DD>(optional in Start As Long<&H0>, optional in Length As Long<&H1> ) As PowerPointTextRange
    Member Call Lines<&H7DE>(optional in Start As Long<&H0>, optional in Length As Long<&H1> ) As PowerPointTextRange
    Member Call Runs<&H7DF>(optional in Start As Long<&H0>, optional in Length As Long<&H1> ) As PowerPointTextRange
    Member Call TrimText<&H7E0>() As PowerPointTextRange
    Member Get Text<&H0>() As String
    Member Let Text<&H0>()   'Parameter Type As String
    Member Call InsertAfter<&H7E1>(optional in NewText As String<&H0> ) As PowerPointTextRange
    Member Call InsertBefore<&H7E2>(optional in NewText As String<&H0> ) As PowerPointTextRange
    Member Call InsertDateTime<&H7E3>(in DateTimeFormat As %PpDateTimeFormat<&H0>, optional in InsertAsField As %MsoTriState<&H1> ) As PowerPointTextRange
    Member Call InsertSlideNumber<&H7E4>() As PowerPointTextRange
    Member Call InsertSymbol<&H7E5>(in FontName As String<&H0>, in CharNumber As Long<&H1>, optional in Unicode As %MsoTriState<&H2> ) As PowerPointTextRange
    Member Get Font<&H7E6>() As PowerPointFont
    Member Get ParagraphFormat<&H7E7>() As PowerPointParagraphFormat
    Member Get IndentLevel<&H7E8>() As Long
    Member Let IndentLevel<&H7E8>()   'Parameter Type As Long
    Member Call Select<&H7E9>()
    Member Call Cut<&H7EA>()
    Member Call Copy<&H7EB>()
    Member Call Delete<&H7EC>()
    Member Call Paste<&H7ED>() As PowerPointTextRange
    Member Call ChangeCase<&H7EE>(in Type As %PpChangeCase<&H0> )
    Member Call AddPeriods<&H7EF>()
    Member Call RemovePeriods<&H7F0>()
    Member Call Find<&H7F1>(in FindWhat As String<&H0>, optional in After As Long<&H1>, optional in MatchCase As %MsoTriState<&H2>, optional in WholeWords As %MsoTriState<&H3> ) As PowerPointTextRange
    Member Call Replace<&H7F2>(in FindWhat As String<&H0>, in ReplaceWhat As String<&H1>, optional in After As Long<&H2>, optional in MatchCase As %MsoTriState<&H3>, optional in WholeWords As %MsoTriState<&H4> ) As PowerPointTextRange
    Member Call RotatedBounds<&H7F3>(out X1 As Single<&H0>, out Y1 As Single<&H1>, out X2 As Single<&H2>, out Y2 As Single<&H3>, out X3 As Single<&H4>, out Y3 As Single<&H5>, out x4 As Single<&H6>, out y4 As Single<&H7> )
End Interface
 
Interface Dispatch PowerPointTextStyle
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get Ruler<&H7D3>() As PowerPointRuler
    Member Get TextFrame<&H7D4>() As PowerPointTextFrame
    Member Get Levels<&H7D5>() As PowerPointTextStyleLevels
End Interface
 
Interface Dispatch PowerPointTextStyleLevel
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get ParagraphFormat<&H7D3>() As PowerPointParagraphFormat
    Member Get Font<&H7D4>() As PowerPointFont
End Interface
 
Interface Dispatch PowerPointTextStyleLevels
    Member Get Count<&HB>() As Long
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Call Item<&H0>(in Level As Long<&H0> ) As PowerPointTextStyleLevel
End Interface
 
Interface Dispatch PowerPointTextStyles
    Member Get Count<&HB>() As Long
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Call Item<&H0>(in Type As %PpTextStyleType<&H0> ) As PowerPointTextStyle
End Interface
 
Interface Dispatch PowerPointThreeDFormat
    Member Get Application<&H7D1>() As Variant
    Member Get Creator<&H7D2>() As Long
    Member Get Parent<&H1>() As Variant
    Member Call IncrementRotationX<&HA>(in Increment As Single<&H0> )
    Member Call IncrementRotationY<&HB>(in Increment As Single<&H0> )
    Member Call ResetRotation<&HC>()
    Member Call SetThreeDFormat<&HD>(in PresetThreeDFormat As %MsoPresetThreeDFormat<&H0> )
    Member Call SetExtrusionDirection<&HE>(in PresetExtrusionDirection As %MsoPresetExtrusionDirection<&H0> )
    Member Get Depth<&H64>() As Single
    Member Let Depth<&H64>()   'Parameter Type As Single
    Member Get ExtrusionColor<&H65>() As PowerPointColorFormat
    Member Get ExtrusionColorType<&H66>() As Long   'MsoExtrusionColorType
    Member Let ExtrusionColorType<&H66>()   'Parameter Type As %MsoExtrusionColorType
    Member Get Perspective<&H67>() As Long   'MsoTriState
    Member Let Perspective<&H67>()   'Parameter Type As %MsoTriState
    Member Get PresetExtrusionDirection<&H68>() As Long   'MsoPresetExtrusionDirection
    Member Get PresetLightingDirection<&H69>() As Long   'MsoPresetLightingDirection
    Member Let PresetLightingDirection<&H69>()   'Parameter Type As %MsoPresetLightingDirection
    Member Get PresetLightingSoftness<&H6A>() As Long   'MsoPresetLightingSoftness
    Member Let PresetLightingSoftness<&H6A>()   'Parameter Type As %MsoPresetLightingSoftness
    Member Get PresetMaterial<&H6B>() As Long   'MsoPresetMaterial
    Member Let PresetMaterial<&H6B>()   'Parameter Type As %MsoPresetMaterial
    Member Get PresetThreeDFormat<&H6C>() As Long   'MsoPresetThreeDFormat
    Member Get RotationX<&H6D>() As Single
    Member Let RotationX<&H6D>()   'Parameter Type As Single
    Member Get RotationY<&H6E>() As Single
    Member Let RotationY<&H6E>()   'Parameter Type As Single
    Member Get Visible<&H6F>() As Long   'MsoTriState
    Member Let Visible<&H6F>()   'Parameter Type As %MsoTriState
End Interface
 
Interface Dispatch PowerPointView
    Member Get Application<&H7D1>() As Variant
    Member Get Parent<&H7D2>() As Variant
    Member Get Type<&H7D3>() As Long   'PpViewType
    Member Get Zoom<&H7D4>() As Long
    Member Let Zoom<&H7D4>()   'Parameter Type As Long
    Member Call Paste<&H7D5>()
    Member Get Slide<&H7D6>() As Variant
    Member Let Slide<&H7D6>()   'Parameter Type As Variant
    Member Call GotoSlide<&H7D7>(in index As Long<&H0> )
    Member Get DisplaySlideMiniature<&H7D8>() As Long   'MsoTriState
    Member Let DisplaySlideMiniature<&H7D8>()   'Parameter Type As %MsoTriState
    Member Get ZoomToFit<&H7D9>() As Long   'MsoTriState
    Member Let ZoomToFit<&H7D9>()   'Parameter Type As %MsoTriState
End Interface------------------

Scott Turchin
MCSE, MCP+I
http://www.tngbbs.com
----------------------
True Karate-do is this: that in daily life, one's mind and body be trained and developed in a spirit of humility; and that in critical times, one be devoted utterly to the cause of justice. -Gichin Funakoshi

Tags: None

Previous template Next

Announcement

PowerPoint - Got the INC, need some help

PowerPoint - Got the INC, need some help