Propriété ShapeRange.Tags (PowerPoint)

Article
04/07/2023

Renvoie un objet Tags qui représente les balises de l’objet spécifié. En lecture seule.

Syntaxe

expression. Tags

Expression Variable qui représente un objet ShapeRange .

Valeur renvoyée

Balises

Exemple

Remarque

Les valeurs des balises sont ajoutées et stockées en majuscules. Effectuez des tests sur les valeurs des balises à l’aide de majuscules, comme illustré dans le deuxième exemple.

Cet exemple ajoute une balise appelée « REGION » et une autre appelée « PRIORITY » à la diapositive 1 de la présentation active.

With Application.ActivePresentation.Slides(1).Tags

    .Add "Region", "East"     'Adds "Region" tag with value "East"

    .Add "Priority", "Low"    'Adds "Priority" tag with value "Low"

End With

Cet exemple recherche les balises de toutes les diapositives de la présentation active. S’il trouve une balise appelée « PRIORITY », un message affiche la valeur de la balise. S’il n’y a pas de balise « PRIORITY », l’exemple ajoute cette balise avec la valeur « Unknown ».

For Each s In Application.ActivePresentation.Slides

    With s.Tags

        found = False

        For i = 1 To .Count

          If .Name(i) = "PRIORITY" Then

              found = True

              slNum = .Parent.SlideIndex

              MsgBox "Slide " & slNum & " Priority: " & .Value(i)

          End If

        Next

        If Not found Then

          slNum = .Parent.SlideIndex

          .Add "Priority", "Unknown"

          MsgBox "Slide " & slNum & " Priority tag added: Unknown"

        End If

    End With

Next

Voir aussi

ShapeRange, objet

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.

Partager via