group check

[bprice]

i can't seem to get my head where it needs to be today...

how do i tell if my currently selected objects are grouped?

if my "selection" is all grouped, i want my script to continue... if there is no groups found in my selection, I want it to msgbox an error...

i'm sure this is something silly and easy... but i just can't seem to get in gear today!

thanks in advance!

B

I guess it would be something like this:

If ActiveSelection.Type = cdrGroupShape Then

or

Dim sr as New ShapeRange
Set sr = ActiveSelectionRange.Shapes.FindShapes(Type:=cdrGroupShape)
If sr.Count <> 0 Then

[bprice]

thats what i thought too... but it doesn't work! hence the reason I think I'm going nuts!

Shouldn't this work?

Sub GroupTest()
Dim S As Shape

Set S = ActiveSelection

    If S.Type = cdrGroupShape Then
        S.UngroupAllEx
    Else
        MsgBox "No Group"
    End If

End Sub

This works...

Sub GroupTest()
Dim S As Shape

Set S = ActiveShape

    If S.Type = cdrGroupShape Then
    S.UngroupAllEx
    Else
        MsgBox "No Group"
    End If

[bprice]

Excellent! That worked! Thanks muchly!

[bprice]

i need to throw in a little twist here! what if my "activeshape" has 3 boxes in it... 2 of those boxes are grouped... 1 is not!

Technically the whole object/shape/selection is not a group (even though part of it is)... so it should continue on as if it's NOT a group shouldn't it?

since part of it is a group... it sees the entire things as a group when in fact it isn't...

why would this be?

I guess an example of where I am going would be this....

If I have a bunch of objects selected... and if ANY of the selected objects are NOT in one group... I want it to warn me telling me "some or all of the selected objects are not part of a group" before continuing!