Объект Tag (publisher)
Представляет тег или пользовательское свойство, которое можно создать для фигуры, диапазона фигур, страницы или публикации. Каждый объект Tag содержит имя настраиваемого свойства и значение для этого свойства. Объекты тегов являются членами коллекции Tags .
Создайте тег, если вы хотите иметь возможность выборочной работы с определенными членами коллекции на основе атрибута, который еще не представлен встроенным свойством.
Замечания
Используйте метод Tags.Item , чтобы вернуть объект Tag .
Используйте метод Tags.Add , чтобы добавить объект Tag .
Пример
В этом примере заполняются все фигуры на первой странице активной публикации, если первый тег фигуры имеет значение Oval.
Sub FormatTaggedShapes()
Dim shp As Shape
With ActiveDocument.Pages(1)
For Each shp In .Shapes
If shp.Tags.Count > 0 Then
If shp.Tags.Item(1).Value = "Oval" Then
shp.Fill.ForeColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
End If
End If
Next
End With
End Sub
В этом примере тег добавляется ко всем овальным фигурам в активной публикации.
Sub TagShapes()
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:="Oval", Value:="This is an oval shape."
End If
Next shp
End With
End Sub
Методы
Свойства
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.