Share via

标记发布服务器) (对象

  • 项目

表示一个标记或可以为形状、 形状范围、 页面或出版物创建的自定义属性。 每个 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。