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


Объект Tags (Publisher)

Коллекция объектов Tag , представляющих теги или настраиваемые свойства, применяемые к фигуре, диапазону фигур, странице или публикации.

Замечания

Используйте свойство Shape.Tags для доступа к коллекции Tags .

Используйте метод Add , чтобы добавить объект Tag в фигуру, диапазон фигур, страницу или публикацию.

Свойство Count позволяет определить, содержит ли фигура, диапазон фигур, страницу или публикацию один или несколько объектов Tag .

Пример

В этом примере к каждой овальной фигуре на первой странице активной публикации добавляется тег.

Sub AddNewTag() 
 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:="Shape", Value:="Oval" 
 End If 
 Next shp 
 End With 
End Sub

В этом примере заполняются все фигуры на первой странице активной публикации, если первый тег фигуры имеет значение 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(1).Value = "Oval" Then 
 shp.Fill.ForeColor.RGB = RGB(Red:=255, Green:=0, Blue:=0) 
 End If 
 End If 
 Next shp 
 End With 
End Sub

Методы

Свойства

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.