![]() |
#1
|
|||
|
|||
![]()
Hi out there
I have a little Macro that is working with Rectangles with Text copied from another Program. The Makro only changes the Fillcolor and the Borderline of these Rectangles and does nothing with the Text. The Makro: Code:
Option Explicit Sub Thor_o_Mat() Dim shp As Shape Dim OrigSelection As ShapeRange ActiveLayer.Paste Set OrigSelection = ActiveSelectionRange ActiveSelection.Ungroup For Each shp In ActivePage.Shapes If shp.Type = 3 Then shp.Fill.ApplyNoFill With shp.Outline .Type = cdrOutline .Width = 0.003 .Color.CMYKAssign 0, 100, 100, 0 End With End If Next shp End Sub Is the VBA in CorelDraw X4 extremly slow or is there a big Bug in my Makro. Any Suggestions? Every Tip would be nice. Regards Werner |
#2
|
|||
|
|||
![]()
Found a Solution in another forum
May be it helps somebody else Now it looks like this: Quote:
|
![]() |
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 |
X3 slow then 12... why? | Kursad | General | 11 | 12-10-2007 09:29 |
corel X3 slow to copy and paste | mick classen | CorelDRAW/Corel DESIGNER VBA | 5 | 29-03-2007 14:05 |
Why does this code run so slow? | Webster | CorelDRAW/Corel DESIGNER VBA | 3 | 20-03-2007 05:18 |
Urgent: I need Tiler-Script as a CorelDraw11-Makro | Layout-herber | CorelDRAW/Corel DESIGNER VBA | 1 | 22-04-2003 21:44 |
First Makro! First Error! | Superfreak | CorelDRAW/Corel DESIGNER VBA | 2 | 18-02-2003 13:09 |