Document.FindShapesByTag 方法 (Publisher)

會傳回 ShapeRange 物件，代表包含指定標語的圖案。

語法

運算式。FindShapesByTag (TagName)

表達 代表 Document 物件的變數。

參數

名稱	必要/選用	資料類型	描述
TagName	必要	String	標籤的名稱。

傳回值

ShapeRange

範例

本範例將兩個圖案加入使用中出版物，為圖案分別指派標語，然後將每個標語的名稱輸入其指定圖案的文字框架中。

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