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