Freigeben über

ShapeRange.Tags-Eigenschaft (Publisher)

  • Artikel

Gibt eine Tags -Auflistung zurück, die Tags oder benutzerdefinierte Eigenschaften darstellt, die auf eine Form, einen Formenbereich, eine Seite oder eine Publikation angewendet werden.

Syntax

Ausdruck. Schilder

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Beispiel

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

Dim shp As Shape 
Dim tagsAll As Tags 
Dim tagLoop As Tag 
Dim blnTag As Boolean 
 
With ActiveDocument.Pages(1) 
 For Each shp In .Shapes 
 If shp.AutoShapeType = msoShapeOval Then 
 Set tagsAll = shp.Tags 
 blnTag = False 
 
 For Each tagLoop In tagsAll 
 If tagLoop.Name = "Shape" Then 
 blnTag = True 
 Exit For 
 End If 
 Next tagLoop 
 
 If blnTag = False Then 
 tagsAll.Add Name:="Shape", Value:="Oval" 
 End If 
 End If 
 Next shp 
End With

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.