Table of contents

ShapeRange.Parent 属性 (发布服务器)ShapeRange.Parent Property (Publisher)

office 365 dev account|上次更新日期: 2018/3/13
2 参与人员

返回一个对象,表示指定对象的父对象。例如,对于TextFrame对象,返回一个Shape对象,该对象代表文本框架的父图形。只读的。Returns an object that represents the parent object of the specified object. For example, for a TextFrame object, returns a Shape object representing the parent shape of the text frame. Read-only.


表达式父级expression. Parent

_expression_A 表示一个ShapeRange对象的变量。_expression_A variable that represents a ShapeRange object.


以下示例访问选定形状的父对象,然后向其添加新的形状,并设置新形状的填充内容。This example accesses the parent object of the selected shape, and then adds a new shape to it and sets the fill for the new shape.

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

以下示例返回文字框架的父对象,该对象是当前出版物中的第一个形状,然后以图案填充该形状。This example returns the parent object of a text frame, which is the first shape in the active publication, and then fills the shape with a pattern.

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