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

If you execute this code for any group shapes:
Code:
Dim sr As ShapeRange
Set sr = ActiveSelectionRange
If sr.Shapes.Count < 1 Then Exit Sub
Optimization = True
    sr.Ungroup
    sr.Shapes(1).Delete ' or do something else with the shapes
    ActiveSelection.Group
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