Поделиться через

Свойство Shape.ParentGroup (Word)

  • Статья

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

Синтаксис

expression. ParentGroup

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

Пример

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

Sub ParentGroupShape() 
 Dim pgShape As Shape 
 
 'Add two shapes to active document and group 
 With ActiveDocument.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 pgShape = ActiveDocument.Shapes(1) _ 
 .GroupItems(1).ParentGroup 
 pgShape.Fill.ForeColor.RGB = RGB(Red:=100, Green:=0, Blue:=255) 
 
End Sub

См. также

Объект Shape

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

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