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?
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