Gaussian blur effect no working right when using macro

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