OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > CorelDRAW > Macros/Add-ons

 
 
Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 22-07-2014, 22:31
HeauxmBru HeauxmBru is offline
Junior Member
 
Join Date: Jan 2011
Posts: 17
Default .AddToPowerclip

Hey out there.

.AddToPowerclip is generating an "out of stack" error, then crashing Corel X6. Is this a bug or am I doing this wrong?

I've tried a couple ways, but the result is the same. Everything works except powerclip.

Code:
Set s2 = s1.Duplicate
    
s2.AddToPowerClip s1, cdrTrue
s1.PowerClip.EnterEditMode
    
With s2
       .ConvertToCurves
       .Fill.UniformColor.CMYKAssign 0, 0, 0, 10
End With
    
Set s2 = s2.ConvertToBitmapEx(cdrCMYKColorImage, , True, 300)
    
s2.Bitmap.ApplyBitmapEffect "AddNoise", "AddNoiseEffect NoiseType=Gaussian, Level=50," _
                                        & "Density = 50, ColorMode=Intensity"
s2.Bitmap.ApplyBitmapEffect "MotionBlur", "MotionBlurEffect Distance=15, Direction=0"
    
's2.AddToPowerClip s1, cdrTrue
    
's1.CreateSelection
s1.PowerClip.LeaveEditMode
Reply With Quote
 


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
CorelDraw 12 VBA : AddToPowerClip Egu2008 CorelDRAW/Corel DESIGNER VBA 7 06-11-2012 00:39


All times are GMT -5. The time now is 03:50.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com