Méthode Document.FindShapesByTag (Publisher)

Article
04/07/2023

Renvoie un objet ShapeRange qui représente les formes dotées de la balise spécifiée.

Syntaxe

expression. FindShapesByTag (TagName)

Expression Variable qui représente un objet Document .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Tagname	Obligatoire	String	Nom de la balise.

Valeur renvoyée

ShapeRange

Exemple

Cet exemple ajoute deux formes sur la première page de la composition active, leur affecte une balise à chacune, puis affiche le nom de chaque balise dans le cadre de texte de la forme correspondante.

Sub FindShape() 
 Dim strTag1 As String 
 Dim strTag2 As String 
 
 With ActiveDocument.Pages(1).Shapes 
 With .AddShape(Type:=msoShape5pointStar, Left:=50, _ 
 Top:=50, Width:=75, Height:=75) 
 strTag1 = .Tags.Add(Name:="Star", _ 
 Value:="This is a star.").Name 
 End With 
 
 With .AddShape(Type:=msoShapeHeart, Left:=100, _ 
 Top:=100, Width:=75, Height:=75) 
 strTag2 = .Tags.Add(Name:="Heart", _ 
 Value:="This is a heart.").Name 
 End With 
 End With 
 
 With ActiveDocument 
 .FindShapesByTag(TagName:=strTag1).TextFrame _ 
 .TextRange.Text = strTag1 
 .FindShapesByTag(TagName:=strTag2).TextFrame _ 
 .TextRange.Text = strTag2 
 End With 
End Sub

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