Hi. I am using a macro that applies a blur but it does not seem to change no matter how small I set the radius value. Any help?
1 2 3 4 5 6 7 8
Sub HaloSmooth() Dim OrigSelection As ShapeRange Dim s1 As Shape Set OrigSelection = ActiveSelectionRange On Error Resume Next Set s1 = OrigSelection.ConvertToBitmapEx(4, False, True, 300, 1, True, False, 95) s1.Bitmap.ApplyBitmapEffect "Gaussian Blur", "GaussianBlurEffect GaussianBlurRadius=1 , GaussianBlurResampled=0" End Sub
?
What version are you using? I have noticed that 2019 does not work with .ApplyBitmapEffect very well. It works on some and not on others and I think Gaussian Blur is one it does not work with. It might have to do with the non-destructive features they added to CorelDraw.
2019 64bit
After they implemented the non-destructive effects, everything has changed. This previous encoding no longer controls bitmap effects! In the following link you have a try on how to get started with this new coding...
Tone curve data in VBA - CorelDRAW and Corel DESIGNER API - Developer Area - CorelDRAW Community