Tags, objet (Publisher)

Collection d’objets Tag qui représentent des balises ou des propriétés personnalisées appliquées à une forme, une plage de formes, une page ou une composition.

Remarques

Utilisez la propriété Shape.Tags pour accéder à la collection Tags .

Utilisez la méthode Add pour ajouter un objet Tag à une forme, une plage de formes, une page ou une composition.

Utiliser le nombre propriété pour déterminer si une forme, une plage de formes, une page ou une composition contient un ou plusieurs objets de balise.

Exemple

Cet exemple ajoute une balise à chaque forme ovale sur la première page de la composition active.

Sub AddNewTag() 
 Dim shp As Shape 
 With ActiveDocument.Pages(1) 
 For Each shp In .Shapes 
 If InStr(1, shp.Name, "Oval") > 0 Then 
 shp.Tags.Add Name:="Shape", Value:="Oval" 
 End If 
 Next shp 
 End With 
End Sub

Cet exemple remplit toutes les formes sur la première page de la composition active si la première balise de la forme a la valeur Oval.

Sub FormatTaggedShapes() 
 Dim shp As Shape 
 With ActiveDocument.Pages(1) 
 For Each shp In .Shapes 
 If shp.Tags.Count > 0 Then 
 If shp.Tags(1).Value = "Oval" Then 
 shp.Fill.ForeColor.RGB = RGB(Red:=255, Green:=0, Blue:=0) 
 End If 
 End If 
 Next shp 
 End With 
End Sub

Méthodes

• Add
• Élément

Propriétés

• Application
• Count
• Parent

Voir aussi

• Référence du modèle objet Publisher

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.