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.