使用英语阅读

通过


标记发布服务器) (对象

标记对象的集合,这些对象表示应用于形状、形状范围、页面或出版物的标记或自定义属性。

备注

使用 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 支持和反馈,获取有关如何接收支持和提供反馈的指南。