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?
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"
Hi, Maybe you can help me because I need to prepare files regularly and it takes a lot of manual time! https://failiem.lv/u/vfny6euf this sapmple to crate macros
Hi, thanks for helping!
Does the attached cdr file give me an idea of what I want to do?
this thread might help