I have tried editing other macros using the VB editor but I don't know the "codes" that I think will probably look something like the below (just a guess but does not work):
With .PictureFormat
.ActiveFilter = msoBlur
.BlurRadius = 10