英語で読む

次の方法で共有


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 のサポートおよびフィードバックを参照してください。