Свойство Shape.ParentGroupShape (Publisher)

  • Статья

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

Синтаксис

expression. ParentGroupShape

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

Возвращаемое значение

Shape

Пример

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

Sub ParentGroupShape() 
 Dim shpGroup As Shape 
 
 With ActiveDocument.Pages(1).Shapes 
 .AddShape Type:=msoShapeOval, Left:=72, _ 
 Top:=72, Width:=100, Height:=100 
 .AddShape Type:=msoShapeHeart, Left:=110, _ 
 Top:=120, Width:=100, Height:=100 
 .Range(Array(1, 2)).Group 
 End With 
 
 Set shpGroup = ActiveDocument.Pages(1).Shapes(1) _ 
 .GroupItems(1).ParentGroupShape 
 shpGroup.Fill.Patterned Pattern:=msoPattern25Percent 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.