Turn Off Shape Glow

The following code will turn on the glow for a shape and set the color.

Sub Macro1()
Dim shp As Shape
Set shp = ActiveSheet.Shapes("Rounded Rectangle 2")
With shp.Glow
    .Radius = 18
    .Color.ObjectThemeColor = msoThemeColorAccent1
End With
End Sub

Select allOpen in new window

Now, my question is, how do I turn it off.  I have tried

.Color.ObjectThemeColor = msoNotThemeColor

Select allOpen in new window

but I get a value out of range error.  Do I just set the radius to zero?  It "works" but seems cheesy.  Thanks for the help.

Kyle