Classe Selection (PowerPoint VBA)

La classe Selection représente la sélection de la fenêtre du document indiquée. L’objet Selection est supprimé si vous modifiez les diapositives du mode Diapositive actif (la propriété Type renvoie ppSelectionNone).

Les procédures principales de la classe Selection sont Copy et Delete

Set

Pour utiliser une variable de classe Selection, elle doit d'abord être instanciée, par exemple

Dim slc as Selection
Set slc = ActiveWindow.Selection

Les variables du type Selection peuvent être définies à l'aide de la procédure DocumentWindow.Selection

Méthodes

Les méthodes principales de la classe Selection sont

Copy - Copie l’objet spécifié dans le Presse-papiers.

ActiveWindow.Selection.Copy

Delete - Supprime l’objet Selection spécifié.

ActiveWindow.Selection.Delete

Propriétés

ChildShapeRange Renvoie un objet ShapeRange qui représente les formes enfants d’une sélection.

Dim sreChildShapeRange As ShapeRange
Set sreChildShapeRange = ActiveWindow.Selection.ChildShapeRange

HasChildShapeRange True si la sélection contienne des formes enfants. En lecture seule.

Dim booHasChildShapeRange As Boolean
booHasChildShapeRange = ActiveWindow.Selection.HasChildShapeRange

Parent Renvoie l’objet parent de l’objet spécifié.

Dim objParent As Object
Set objParent = ActiveWindow.Selection.Parent

ShapeRange Renvoie un objet ShapeRange qui représente tous les objets de diapositive sélectionnés dans la diapositive spécifiée. En lecture seule.

Dim sreShapeRange As ShapeRange
Set sreShapeRange = ActiveWindow.Selection.ShapeRange

SlideRange Renvoie un objet SlideRange qui représente une plage de diapositives sélectionnées. En lecture seule.

Dim sreSlideRange As SlideRange
Set sreSlideRange = ActiveWindow.Selection.SlideRange

TextRange Renvoie un objet TextRange qui représente le texte sélectionné. En lecture seule.

Dim treTextRange As TextRange
Set treTextRange = ActiveWindow.Selection.TextRange

TextRange2 Renvoie l’objet TextRange2 de l’objet Selection actif. En lecture seule.

Dim tr2TextRange2 As Office.TextRange2
Set tr2TextRange2 = ActiveWindow.Selection.TextRange2

Type Renvoie le type des objets d’une sélection. En lecture seule.

Dim pstType As PpSelectionType
pstType = ActiveWindow.Selection.Type