Свойство Shape.ParentGroup (Excel)
Возвращает объект Shape , представляющий общую родительскую фигуру дочерней фигуры или диапазон дочерних фигур.
Синтаксис
expression. ParentGroup
Выражение Переменная, представляющая объект Shape .
Пример
В этом примере 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 и обратная связь.
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по