标记发布服务器) (对象
表示一个标记或可以为形状、 形状范围、 页面或出版物创建的自定义属性。 每个 Tag 对象包含该属性的名称的自定义属性和值。 标记 对象是 标记 的成员 集合。
当您希望能够有选择地使用基于尚未由内置属性的属性集合的特定成员时创建的标记。
使用 Tags.Item 方法可返回 Tag 对象。
使用 Tags.Add 方法添加 Tag 对象。
如果形状的第一个标签具有椭圆值,本示例将填充当前出版物的第一页上的所有形状。
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 支持和反馈,获取有关如何接收支持和提供反馈的指南。