Share via


Shape.Tags Property

Publisher Developer Reference

Returns a Tags collection representing tags or custom properties applied to a shape, shape range, page, or publication.

Syntax

expression.Tags

expression   A variable that represents a Shape object.

Example

This example adds a tag to each oval shape on the first page of the active publication.

Visual Basic for Applications
  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

See Also