Publisher) (TextFrame.Parent 屬性

會傳回代表所指定物件之父物件的物件。 例如，如果是 TextFrame 物件，則會傳回代表文字圖文框之父圖案的 Shape 物件。 唯讀。

語法

運算式。父母

表達 代表 TextFrame 物件的變數。

範例

本範例存取選取圖案的父物件，然後將新圖案加入其中，再設定新圖案的填滿。

Sub ParentObject() 
 Dim shp As Shape 
 Dim pg As Page 
 
 Set pg = Selection.ShapeRange(1).Parent 
 Set shp = pg.Shapes.AddShape(Type:=msoShape5pointStar, _ 
 Left:=72, Top:=72, Width:=72, Height:=72) 
 
 shp.Fill.ForeColor.RGB = RGB(Red:=180, Green:=180, Blue:=180) 
End Sub

本範例會先傳回文字框的父物件，也就是使用中出版物的第一個圖案，然後使用圖樣來填滿圖案。

Sub ParentShape() 
 Dim shpParent As Shape 
 Set shpParent = ActiveDocument.Pages(1).Shapes(1).TextFrame.Parent 
 shpParent.Fill.Patterned Pattern:=msoPatternSphere 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。