View Single Post
Old 15-03-2017, 23:43
ager ager is offline
Join Date: Jul 2010
Location: Russia
Posts: 44
Default Optimization and phantom object

If you execute this code for any group shapes:
Dim sr As ShapeRange
Set sr = ActiveSelectionRange
If sr.Shapes.Count < 1 Then Exit Sub
Optimization = True
    sr.Shapes(1).Delete ' or do something else with the shapes
Optimization = False: ActiveWindow.refresh
the phantom object appears in the Object Manager:

I can't select this object, can't delete it. Is this a bug or not?
Reply With Quote