Excel VBA教程:ParentGroup属性

返回一个Shape对象,该对象代表子图形或子图形区域的公共父图形。

expression.ParentGroup

expression   必需。该表达式返回“应用于”列表中的对象之一。

Excel VBA教程:ParentGroup属性·示例

在本示例中,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

上页:Excel VBA教程:ParentField属性 下页:Excel VBA教程:ParentItem属性

Excel VBA教程:ParentGroup属性

Excel VBA教程:ParentItem属性 Excel VBA教程:ParentItems属性
Excel VBA教程:ParentShowDetail属性 Excel VBA教程:Password属性
Excel VBA教程:PasswordEncryptionAlgorithm属性 Excel VBA教程:PasswordEncryptionFileProperties属性
Excel VBA教程:PasswordEncryptionKeyLength属性 Excel VBA教程:PasswordEncryptionProvider属性
Excel VBA教程:Path属性 Excel VBA教程:PathSeparator属性
Excel VBA教程:Pattern属性 Excel VBA教程:PatternColor属性
Excel VBA教程:PatternColorIndex属性 Excel VBA教程:Period属性
Excel VBA教程:PersonalViewListSettings属性 Excel VBA教程:PersonalViewPrintSettings属性
Excel VBA教程:Perspective属性 Excel VBA教程:Phonetic属性
Excel VBA教程:PhoneticCharacters属性 Excel VBA教程:Phonetics属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号