Свойство Section.Parent (издатель)

Возвращает объект, представляющий родительский объект указанного объекта. Например, для объекта TextFrame возвращает объект Shape , представляющий родительскую фигуру текстового фрейма. Только для чтения.

Синтаксис

выражение. Родитель

выражение Переменная, представляющая объект Section .

Пример

В этом примере делается обращение к родительскому объекту выделенной фигуры, к которому добавляется новая фигура и задается заливка для новой фигуры.

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 и обратная связь.