VBA to Ungroup all shapes on a page?

[daniels012]

Probably impossible, but I thought I would ask.

I need code to do this: When I select a range of cells, say E20:H24 then hit a button the code behind the button would ungroup all the shapes in that area. So if I have grouped shapes elsewhere, they would be uneffected.

Thank You in advance!!!
Michael

 

[daniels012]

ideas?

 

[Norie]

Michael

What is it you are actually trying to do?

I'm sure there's code out there to do what you describe, but I can't imagine it being particularly straightforward.

I'm envisaging the use of cell/shape co-ordinates and other properties like TopLeftCell.

 

[daniels012]

With the little knowledge I have, These sound like great possibilites.

Let's say I have Range E7:H16 selected. With a touch of a button, I would like any shape in this are to be ungrouped then deleted.
If I decide to to it in another area, do the same ie: A14:F35 is selected then any shape in the selection would be ungrouped and deleted.

Hope this is clearer,
Michael

 

[daniels012]

no such thing... HUH?

 

[Datsmart]

This code will delete any objects in the selected range.

Sub DeleteObjectFromSelection()
Dim isect As Range
    For Each PicObj In ActiveSheet.Shapes
        TheLeft = PicObj.TopLeftCell.Address
        Set isect = Application.Intersect(Range(TheLeft), Selection)
        If Not isect Is Nothing Then PicObj.Delete
    Next PicObj
End Sub

Don't know about bothering with "ungrouping" them first. If the objects are gone does that make a difference?

 

[daniels012]

Datsmart,
This is perfect!!
That is exactly what I have been looking for!!
ray: ray:
I have been trying to figure this one out for some time now.

Thank You,
Michael