Is Selection Part of a Group?

[bprice]

Hey Everyone,
Quick question... if I search for an object and find it, is there a way to tell if it's contained in a group, and if it is part of a group, select the group that it is in...

Thanks,
B

[shelbym]

There are several ways to do this, here is one example using ParentGroup.

Sub GroupTest()
    Dim s As Shape
    
    Set s = ActivePage.Shapes.FindShape(Name:="MyShape")
    
    If Not s.ParentGroup Is Nothing Then
        MsgBox "I am in a group"
    Else
        MsgBox "I am not in a group"
    End If
End Sub

-Shelby

[bprice]

hahaha Parentgroup... I knew it'd be something quick and easy!

Thank you sir!

[nic]

Originally Posted by bprice

hahaha Parentgroup... I knew it'd be something quick and easy!

Thank you sir!

its all easy - if you know
but if you never heared of Paris you aint going to guess France's capital