Thread: .AddToPowerclip
View Single Post
  #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