Plates.Parent 属性 (Publisher)
返回一个对象,代表指定对象的父对象。 例如,对于 TextFrame 对象,返回代表文字框架的父形状的 Shape 对象。 只读。
语法
表达式。父母
表达 一个代表 Plates 对象的变量。
示例
以下示例访问选定形状的父对象,然后向其添加新的形状,并设置新形状的填充内容。
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 支持和反馈,获取有关如何接收支持和提供反馈的指南。