Avatar of kgerb
Flag for United States of America

asked on 

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

Open in new window

Now, my question is, how do I turn it off.  I have tried
.Color.ObjectThemeColor = msoNotThemeColor

Open 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.

Microsoft Excel

Avatar of undefined
Last Comment

8/22/2022 - Mon