Question

我正在使用ms word模板，我需要在选择中添加阴影。

宏记录器给出

Selection.Font.Shadow = true

但是我不知道如何使用它以及如何确定阴影的类型及其属性。我没有找到这些类型的名称，也没有找到如何处理它们的方法，例如设置深度或角度。

Answer 1

实际上，宏记录器不会提供有关使用“文本效果”的大量信息...

Shadow属性只能设置文本效果阴影是“打开”还是“关闭”。

要更改阴影的外观，必须使用ShadowFormat对象。 ShadowFormat的{{3}}有点误导，因为它仅引用Shape对象。但是相同的属性也适用于字体的阴影。

此外，为ShadowFormat返回Font对象的属性不是ShadowFormat，而是TextShadow。因此，代码如下例所示：

Sub AddFontShadow()
    Dim shad As Word.ShadowFormat

    Set shad = Selection.Font.TextShadow
    With shad
        Debug.Print "Blur: " & .Blur, _
                    "ForeColor: " & .ForeColor, _
                    "Obscured: " & .Obscured, _
                    "OffsetX: " & .OffsetX, _
                    "OffsetY: " & .OffsetY, _
                    "Style: " & .style, _
                    "Transparency: " & .Transparency, _
                    "Type: " & .Type
    End With
End Sub

通过VBA在MS Word中为文本添加阴影

1 个答案: