Свойство View.Parent (Publisher)
Возвращает объект , представляющий родительский объект указанного объекта. Например, для объекта TextFrame возвращает объект Shape , представляющий родительскую фигуру текстового кадра. Только для чтения.
expression. Родительского
Выражение Переменная, представляющая объект View .
В этом примере показано, как получить доступ к родительскому объекту выбранной фигуры, а затем добавить в него новую фигуру и задать заливку для новой фигуры.
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 и обратная связь.