通过

Font.Parent 属性 (Publisher)

  • 项目

返回一个对象，代表指定对象的父对象。 例如，对于 TextFrame 对象，返回代表文字框架的父形状的 Shape 对象。 只读。

语法

表达式。父母

表达 一个代表 Font 对象的变量。

示例

以下示例访问选定形状的父对象，然后向其添加新的形状，并设置新形状的填充内容。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。