Tags Property
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.
Returns a Tags collection representing tags or custom properties applied to a shape, shape range, page, or publication.
expression.Tags
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example adds a tag to each oval shape on the first page of the active publication.
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