Свойство ShapeRange.ParentGroup (Excel)

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

Синтаксис

expression. ParentGroup

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

Пример

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

Sub ParentGroup() 
 
 Dim pgShape As Shape 
 
 With ActiveSheet.Shapes 
 .AddShape Type:=1, Left:=10, Top:=10, _ 
 Width:=100, Height:=100 
 .AddShape Type:=2, Left:=110, Top:=120, _ 
 Width:=100, Height:=100 
 .Range(Array(1, 2)).Group 
 End With 
 
 ' Using the child shape in the group get the Parent shape. 
 Set pgShape = ActiveSheet.Shapes(1).GroupItems(1).ParentGroup 
 
 MsgBox "The two shapes will now be deleted." 
 
 ' Delete the parent shape. 
 pgShape.Delete 
 
End Sub

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

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