Hi !Does anyone know how to automate Gaussian Blur in CorelDraw VBA ?
with selected bitmap
Sub Macro1()Dim OrigSelection As ShapeRange Set OrigSelection = ActiveSelectionRange OrigSelection(1).Bitmap.ApplyBitmapEffect "Gaussian Blur", "GaussianBlurEffect GaussianBlurRadius=350,GaussianBlurResampled=0"End Sub
PS: I tried macro recored on X5
thanks mek,I had already tried this solution, but it is not recognized in coreldraw 24 (-> error 438!) .do you have another idea?
Mek is correct. I use it all the time in CorelDRAW 24.
ok, my question is poorly worded, it actually works with a bitmap but in fact I want to apply it to a text or vector object (without transforming it into a bitmat) with the Gaussian blur tool from the effect > blur menu.
This code works, but it gets 'frozen' and 'GaussianBlurRadius' can't modify the effect. This happens after non-destructive effects have been implemented. In the link below you have more details about this:
(+) Dados de curva de tom em VBA - CorelDRAW e Corel DESIGNER API - Área do desenvolvedor - Comunidade CorelDRAW