Jeff's Delete Small Objects macro

[gorgo2]

You guys are awesome man!
I tried it and it works......but
It takes a bit longer and the 900 objects to be deleted flicker for at least 1minute and 20 seconds. Is there something that needs streamlining??

We're almost there man!

[runflacruiser]

Hi.
Just uncomment the optimization lines...

-John

[gorgo]

Originally Posted by runflacruiser

Hi.
Just uncomment the optimization lines...

-John

I'm embarrased to say this but...I did not know what and how to uncomment so I looked it up and I deleted them quote thingies and tested the macro with success. Although it seemed that even when the progress bar finished, the macro was still running/processing and this was tested with about 1,200 small objects. All in all, I like it John and thanks to you and all that helped.

-Greg

[shelbym]

That is because he used (n Mod 10) to advance the progressbar, which would mean at 1000 shapes you would reach 100% of the progressbar.

****Ooops my bad, I was looking at Alex's Example*****

John actually advances the progressbar on every shape, so it would reach 100% after 100 shapes. I need to look a little closer next time.

-Shelby

[gorgo2]

Interesting....thanks Shelby!

-Greg

[gorgo]

soo....was thinking about what you said and I have to ask...how does one set the progress bar to go through 5oo objects to show 100%?

-Greg

[shelbym]

If you know there are going to be exactly 500 shapes, you could use.

If (n Mod 5) = 0 Then
     stat.UpdateProgress
     If stat.Aborted Then Exit For
End If

This way for every 5th shape it would advance the progressbar 1 ending at 100 or 100%

-Shelby

[gorgo2]

Originally Posted by shelbym

If you know there are going to be exactly 500 shapes, you could use.

If (n Mod 5) = 0 Then
     stat.UpdateProgress
     If stat.Aborted Then Exit For
End If

This way for every 5th shape it would advance the progressbar 1 ending at 100 or 100%

-Shelby

So I would need to make code that counts each object and then builds the progress bar accordingly if I want it to show a more precise status for any number of objects. Is that correct? I wonder how I can do this....

[shelbym]

That is correct. Here is a simple example to count all the ellipses in your document.

Sub CountEllipseShape() 
 Dim sr As ShapeRange 
 Set sr = ActivePage.FindShapes(Type:=cdrEllipseShape) 
 MsgBox "There are " & sr.Count & " ellipse(s) on the current page" 
End Sub

-Shelby

[shelbym]

That is correct. Here is a simple example to count all the ellipses in your document.

Sub CountEllipseShape() 
     Dim sr As ShapeRange 

     Set sr = ActivePage.FindShapes(Type:=cdrEllipseShape) 
     MsgBox "There are " & sr.Count & " ellipse(s) on the current page" 
End Sub

-Shelby