閱讀英文

共用方式為


Publisher) (Tags 物件

Tag物件的集合,代表套用至圖案、圖案範圍、頁面或出版物的標記或自訂屬性。

註解

使用 Shape.Tags 屬性可存取 Tags 集合。

使用 Add 方法可將 Tag 物件新增至圖案、圖案範圍、頁面或出版物。

使用 計數 若要判斷圖案、 圖案範圍、 頁面或出版物包含一或多個 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 支援與意見反應