Text Background BorderMargins.X and BorderMargins.Y not responding to macro

I have a very simple macro below that appears to be correct but for some reason the BorderMargins.X and .Y values do not change when the macro is run. Why is that?

Sub Macro1()
   
    Dim otext As TextStyle
    Set otext = ActiveSettings.TextStyle
   
    otext.BorderColor = 255
    otext.BackgroundFillColor = 255
    otext.BorderAndBackgroundVisible = True
    otext.BorderMargins.X = 0.25
    otext.BorderMargins.Y = 0.25
       
    'CommandState.StartDefaultCommand

End Sub