Excel 2013中Shape.ShadowEffect属性（Direction与Angle）的VBA代码需求

我正在使用Excel 2013，需要设置Shape.ShadowEffect属性（Direction和Angle）的VBA代码。

VBA代码： #

' 阴影 --> 预设样式
ActiveSheet.Shapes.Range(Array("Oval Background")).Select
' 阴影 --> 预设样式 --> 外部阴影
With Selection.ShapeRange.Shadow
    .Type = msoShadow23 ' 使用预设阴影样式msoShadow23
    .Visible = msoTrue ' 显示阴影
    .Style = msoShadowStyleOuterShadow ' 设置为外部阴影样式
    .Blur = 15 ' 模糊度：15磅
    .OffsetX = 0.7071067812 ' X轴偏移量
    .OffsetY = 0.7071067812 ' Y轴偏移量
    .RotateWithShape = msoFalse ' 不随形状旋转
    .ForeColor.RGB = RGB(255, 0, 0) ' 阴影颜色为红色
    .Transparency = 0.799999997 ' 透明度：约65%
    .Size = 104 ' 阴影大小：104%
    .Direction = 4 ' 阴影方向：4磅
    .Angle = 0.9 ' 阴影角度：90度
End With

内容的提问来源于stack exchange，提问作者Sivaprakasam