Auf Englisch lesen

Freigeben über


Tags-Objekt (Publisher)

Eine Auflistung von Tag-Objekten , die Tags oder benutzerdefinierte Eigenschaften darstellen, die auf eine Form, einen Formenbereich, eine Seite oder eine Publikation angewendet werden.

Hinweise

Verwenden Sie die Shape.Tags-Eigenschaft , um auf die Tags-Auflistung zuzugreifen.

Verwenden Sie die Add-Methode , um ein Tag-Objekt zu einer Form, einem Formenbereich, einer Seite oder einer Publikation hinzuzufügen.

Verwenden Sie die Count -Eigenschaft, um festzustellen, ob eine Form, einen Formenbereich, eine Seite oder eine Publikation ein oder mehrere Tag -Objekte enthält.

Beispiel

Dieses Beispiel fügt ein Tag zu jeder ovalen Form auf der ersten Seite der aktiven Publikation hinzu.

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

In diesem Beispiel wird füllt alle Formen auf der ersten Seite der aktiven Publikation, wenn der erste Tag der Form dem Wert Oval hat.

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

Methoden

Eigenschaften

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.