Tags オブジェクト (Publisher)
図形、図形範囲、ページ、または文書に適用されるタグまたはカスタム プロパティを表す Tag オブジェクトのコレクション。
Tags コレクションにアクセスするには、Shape.Tags プロパティを使用します。
Add メソッドを使用して、Tag オブジェクトを図形、図形範囲、ページ、または文書に追加します。
図形、図形範囲、ページ、または文書に 1 つ以上の Tag オブジェクトが含まれているかどうかを判断するには、Count プロパティを使用します。
次の使用例は、作業中の文書の先頭ページにある個々の楕円にタグを追加します。
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
次の使用例は、作業中の文書の先頭ページにある図形の最初のタグの値が "Oval" に設定されている場合、そのページ上のすべての図形に塗りつぶしを適用します。
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 のサポートおよびフィードバックを参照してください。