Поделиться через


Объект 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 и обратная связь.