Function Reference

_PPT_SlideRangeSet

Creates a SlideRange object with one or multiple slides.

#Include <PowerPoint.au3>
_PPT_SlideRangeSet($oPresentation[, $vSlides = 0])

 

Parameters

$oPresentation Presentation object.
$vSlides [optional] Slide or Slides to create the SlideRange object from (default = 0 = all Slides). Please see Remarks.

 

Return Value

Success: SlideRange object.
Failure: 0 and sets @error.
    1 - $oPresentation is not an object or not a presentation object
    2 - $vSlides is an object but not a Slide or SlideRange object
    3 - Error occurred creating the SlideRange from $vSlides. @extended is set to the COM error code returned
    4 - $vSlides has invalid format

 

Remarks

The SlideRange parameter $vSlides can be defined using one of the following formats:
* collection of individual slides:
- SlideRange object
- Index number of the first and last slide separated by a hyphen e.g. 1-3 or 1-* (* represents the last slide)
- Index number: -1 (SlideRange consists of all selected slides)
- Zero based array holding the index numbers or names of the slides
* collection of all slides:
- Slides object
- Index number: 0 (SlideRange consists of all slides)
* single slide:
- Slide object
- Index number
- Slide name

 

Related

 

Example


#AutoIt3Wrapper_AU3Check_Parameters= -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=N
#include <Array.au3>
#include <PowerPoint.au3>
#include <MsgBoxConstants.au3>

; **********************************************************
; Create application object and open an example presentation
; **********************************************************
Global $sPresentation = @ScriptDir & "\Presentation1.pptx"
Global $oPPT = _PPT_Open()
If @error Then Exit MsgBox($MB_ICONERROR, "PowerPoint UDF: _PPT_SlideRangeCreate Example", "Error creating the PowerPoint application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Global $oPresentation = _PPT_PresentationOpen($oPPT, $sPresentation)
If @error Then
    MsgBox($MB_ICONERROR, "PowerPoint UDF: _PPT_SlideRangeCreate Example", "Error opening presentation '" & $sPresentation & "'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    _PPT_Close($oPPT)
    Exit
EndIf

; *****************************************************************************
; Create a Slide Range
; *****************************************************************************
Global $oSlideRange, $sSlideRange
Global $aSlides[] = [1,2]

$oSlideRange = _PPT_SlideRangeSet($oPresentation, "1-2")                             ; First and last Slide of the SlideRange
If @error Then Exit MsgBox($MB_ICONERROR, "PowerPoint UDF: _PPT_SlideRangeCreate Example 1", "Error creating a SlideRange for '" & $sPresentation & "'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
For $i = 1 to $oSlideRange.Count
    if $i = 1 Then
        $sSlideRange = $oSlideRange.Item($i).SlideIndex
    Else
        $sSlideRange = $sSlideRange & "," & @CRLF & $oSlideRange.Item($i).SlideIndex
        endif
Next
MsgBox($MB_ICONINFORMATION, "PowerPoint UDF: _PPT_SlideRangeCreate Example 1", "Slide Range created including the following slides:" & @CRLF & $sSlideRange)

; More Examples
; $oSlideRange = _PPT_SlideRangeSet($oPresentation, $oPresentation.Slides(1))        ; Slide object
; $oSlideRange = _PPT_SlideRangeSet($oPresentation, $oPresentation.Slides.Range(1))  ; SlideRange object
; $oSlideRange = _PPT_SlideRangeSet($oPresentation, 1)                               ; SlideIndex
; $oSlideRange = _PPT_SlideRangeSet($oPresentation, $aSlides)                        ; List of Slides passed in an array
; $oSlideRange = _PPT_SlideRangeSet($oPresentation, "2-*")                           ; First and last Slide of the SlideRange