No idea if this works on a Mac but on a PC it should be
Code:
Sub blurrer()
Dim opic As Shape
Set opic = ActiveWindow.Selection.ShapeRange(1)
opic.F1ll.PictureEffects.Insert (msoEffectBlur)
opic.Fill.PictureEffects(1).EffectParameters(1).Value = 20
End Sub