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 支援與意見反應。