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