Objet Selection (PowerPoint)

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).

Exemple

La méthode Selection permet de renvoyer l'objet Selection. L'exemple suivant montre comment placer une copie de la sélection de la fenêtre active dans le Presse-papiers.

ActiveWindow.Selection.Copy

Utilisez la propriété ShapeRange, SlideRange ou TextRange pour renvoyer une plage de formes, de diapositives ou de texte à partir de la sélection.

L'exemple suivant montre comment définir la couleur du remplissage de l'avant-plan des formes sélectionnées de la fenêtre 2, en supposant qu'une forme au moins soit sélectionnée et que l'on puisse définir le remplissage de l'avant-plan de toutes les formes sélectionnées.

With Windows(2).Selection.ShapeRange.Fill

    .Visible = True

    .ForeColor.RGB = RGB(255, 0, 255)

End With

L'exemple suivant montre comment définir le texte de la première forme sélectionnée de la fenêtre 2 si cette forme contient un cadre de texte.

With Windows(2).Selection.ShapeRange(1)

    If .HasTextFrame Then

        .TextFrame.TextRange = "Current Choice"

    End If

End With

L'exemple suivant montre comment couper le texte sélectionné de la fenêtre active et le placer dans le Presse-papiers.

ActiveWindow.Selection.TextRange.Cut

L’exemple suivant duplique toutes les diapositives de la sélection (si vous êtes en mode diapositive, cela duplique la diapositive active).

ActiveWindow.Selection.SlideRange.Duplicate

Si aucun objet du type approprié n’est sélectionné quand vous utilisez une de ces propriétés (par exemple, si vous utilisez la propriété ShapeRange quand aucune forme n’est sélectionnée), un message d’erreur s’affiche. Utilisez la propriété Type pour déterminer le ou les types d’objets sélectionnés. L'exemple vérifie si la sélection contient des diapositives. Si c’est le cas, l’exemple définit l’arrière-plan de la première diapositive de la sélection.

With Windows(2).Selection

    If .Type = ppSelectionSlides Then

        With .SlideRange(1)

            .FollowMasterBackground = False

            .Background.Fill.PresetGradient _

                msoGradientHorizontal, 1, msoGradientLateSunset

        End With

    End If

End With

Méthodes

Nom
Copy
Cut
Delete
Unselect

Propriétés

Nom
Application
ChildShapeRange
HasChildShapeRange
Parent
ShapeRange
SlideRange
TextRange
TextRange2
Type

Voir aussi

Référence du modèle objet PowerPoint

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.