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.
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.
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
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.