Does anyone know where I can find more infor on this component. I can only find the small example in the reference site but can't find any listing of the effects and their parameters that can be used beside the whirlpool effect in the example.
CorelUser2911 said:If you have any questions let me know and I will see if I can answer them. :)
I appreciate the offer.
It's not something that I have wanted to do using VBA, but it's something where I have seen examples, but have never seen definitive documentation from Corel.
As with CQL, some useful things are difficult to do if you don't know the "magic words"!
FYI, 2019 does not appear to work with some of the effects using this method. I am playing around with it to see what has changed and I ponder it may be due to the none destructive editing they introduced in Corel Draw. It is just a guess at this point.
Any progress with this? I'm trying to use Cd vba to apply an effect to a bitmap.
s.ConvertToBitmapEx cdrRGBColorImage, False, True, 150, cdrNormalAntiAliasing
s.Bitmap.ApplyBitmapEffects "Gaussian Blur", "GaussianBlurEffect GaussianBlurRadius=800,GaussianBlurResampled=0"
I know 2019 had issues with the gaussian blur programmatically, but my version just updated with the third update and I have not checked recently. I will give it a go tomorrow and let you know what I find out.
I tried it out and this works in CorelDraw 2019 update 3
Sub convert2RGBgBlur()Dim s As ShapeSet s = ActiveShape'When you convert to bitmap you have to reset it to s againSet s = s.ConvertToBitmapEx(cdrRGBColorImage, False, True, 150, cdrNormalAntiAliasing)
s.Bitmap.ApplyBitmapEffect "Gaussian Blur", "GaussianBlurEffect GaussianBlurRadius=800, GaussianBlurResampled=0"
End Sub