![]() |
#11
|
|||
|
|||
![]()
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! ![]() Last edited by gorgo2; 02-04-2010 at 16:21. |
#12
|
||||
|
||||
![]()
Hi.
Just uncomment the optimization lines... -John |
#13
|
|||
|
|||
![]()
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 |
#14
|
||||
|
||||
![]()
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 Last edited by shelbym; 19-04-2010 at 14:47. Reason: Johns Code, not Alex |
#15
|
|||
|
|||
![]()
Interesting....thanks Shelby!
-Greg |
#16
|
|||
|
|||
![]()
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 |
#17
|
||||
|
||||
![]()
If you know there are going to be exactly 500 shapes, you could use.
Code:
If (n Mod 5) = 0 Then stat.UpdateProgress If stat.Aborted Then Exit For End If -Shelby |
#18
|
|||
|
|||
![]() Quote:
![]() |
#19
|
||||
|
||||
![]()
That is correct. Here is a simple example to count all the ellipses in your document.
Code:
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 |
#20
|
||||
|
||||
![]()
That is correct. Here is a simple example to count all the ellipses in your document.
Code:
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 |
![]() |
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Global Macro delete | Michael Cervantes | CorelDRAW/Corel DESIGNER VBA | 17 | 16-11-2010 09:11 |
Find and delete objects with no fill or outline | keytecstaff | CorelDRAW/Corel DESIGNER VBA | 17 | 23-06-2010 00:34 |
Delete Segment macro addendum request | Rakker | New product ideas | 1 | 18-10-2008 16:47 |
Delete matching objects | click101 | CorelDRAW/Corel DESIGNER VBA | 2 | 02-06-2008 17:14 |
Delete small objects macro | Jeff Harrison | New product ideas | 3 | 19-05-2007 13:19 |