标记发布服务器) (对象
标记对象的集合,这些对象表示应用于形状、形状范围、页面或出版物的标记或自定义属性。
使用 Shape.Tags 属性访问 Tags 集合。
使用 Add 方法可向形状、形状范围、页面或出版物添加 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
如果形状的第一个标签具有椭圆值,本示例将填充当前出版物的第一页上的所有形状。
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 支持和反馈,获取有关如何接收支持和提供反馈的指南。