Export (0) Print
Expand All
This topic has not yet been rated - Rate this topic

Document.Tags Property

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



expression   A variable that represents a Document object.


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

Did you find this helpful?
(1500 characters remaining)
Thank you for your feedback

Community Additions

© 2014 Microsoft. All rights reserved.