Tag オブジェクト (Publisher)
図形、図形範囲、ページ、または文書に対して作成できるタグまたはユーザー設定プロパティを表します。 各 Tag オブジェクトには、ユーザー設定プロパティの名前およびそのプロパティの値が含まれます。 タグ オブジェクトは、 Tags コレクションのメンバーです。
組み込みのプロパティによって表されていない属性に基づいてコレクションの特定のメンバーを選択して操作できるようにする場合は、タグを作成します。
Tag オブジェクトを取得するには、 Tags.Itemメソッドを使用 します。
Tag オブジェクトを追加するには、 Tags.Addメソッドを使用 します。
次の使用例は、作業中の文書の先頭ページにある図形の最初のタグの値が "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.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 のサポートおよびフィードバックを参照してください。