Retourner des objets à partir de collections

The Item method returns a single object from a collection. L’exemple suivant définit la variable firstPres sur un objet Presentation qui représente une variable presentation one à un objet Presentation qui représente la présentation 1.

Set firstPres = Presentations.Item(1)

La méthode Item est la méthode par défaut pour la plupart des collections ; vous pouvez donc écrire la même instruction de manière plus concise en omettant le mot clé Item.

Set firstPres = Presentations(1)

Pour plus d’informations sur une collection spécifique, consultez la rubrique d’aide ou la méthode Item de cette collection.

Objets nommés

Vous pouvez généralement spécifier un nombre entier avec la méthode Item. Toutefois, il peut être plus simple de renvoyer un objet par son nom. Par exemple, la première diapositive que vous créez sera automatiquement nommée « Slide1 ». Si les deux premières formes que vous créez sont un rectangle et un ovale, leurs noms par défaut sont « Rectangle 1 » et « Oval 2 ». Si les deux premières formes créées sont un rectangle et un ovale, leur nom par défaut est Rectangle 1  et Ovale 2. Cela est généralement effectué en définissant la propriété Name de l'objet. L’exemple suivant montre comment attribuer un nom significatif à une diapositive lorsqu’elle est ajoutée. Vous pouvez ensuite utiliser le nom à la place du numéro d’index pour désigner la diapositive.

ActivePresentation.Slides.Add(1, 1).Name = "Home Page Slide"
With ActivePresentation.Slides("Home Page Slide")
    .FollowMasterBackground = False
    .Background.Fill.PresetGradient _
        msoGradientDiagonalDown, 1, msoGradientBrass
End With

Valeurs d’index prédéfinies

Certaines collections ont des valeurs d’index prédéfinies que vous pouvez utiliser pour renvoyer des objets uniques. Chaque valeur d'index prédéfinie est représentée par une constante. Par exemple, vous spécifiez une constante PpTextStyleType avec la méthode Item de la collection TextStyles pour renvoyer un style de texte unique.

L’exemple suivant montre comment définir les marges de la zone du corps des diapositives dans la présentation active.

With ActivePresentation.SlideMaster _
        .TextStyles(ppBodyStyle).TextFrame
    .MarginBottom = 50
    .MarginLeft = 50
    .MarginRight = 50
    .MarginTop = 50
End With

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.