Document.FindShapesByTag メソッド (Publisher)

タグを持つ図形を表す ShapeRange オブジェクトを返します。

構文

式。FindShapesByTag (TagName)

式Document オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
Tagname	必須	String	タグの名前を指定します。

戻り値

ShapeRange

例

次の使用例は、作業中の文書の先頭ページに 2 つの図形を追加し、それぞれにタグを割り当て、割り当てた図形のテキスト枠に各タグの名前を挿入します。

Sub FindShape() 
 Dim strTag1 As String 
 Dim strTag2 As String 
 
 With ActiveDocument.Pages(1).Shapes 
 With .AddShape(Type:=msoShape5pointStar, Left:=50, _ 
 Top:=50, Width:=75, Height:=75) 
 strTag1 = .Tags.Add(Name:="Star", _ 
 Value:="This is a star.").Name 
 End With 
 
 With .AddShape(Type:=msoShapeHeart, Left:=100, _ 
 Top:=100, Width:=75, Height:=75) 
 strTag2 = .Tags.Add(Name:="Heart", _ 
 Value:="This is a heart.").Name 
 End With 
 End With 
 
 With ActiveDocument 
 .FindShapesByTag(TagName:=strTag1).TextFrame _ 
 .TextRange.Text = strTag1 
 .FindShapesByTag(TagName:=strTag2).TextFrame _ 
 .TextRange.Text = strTag2 
 End With 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。