Question

PowerPoint有两种阴影 - 形状和文字。可以通过右键单击形状（包括文本框），选择格式文本，然后选择阴影或通过每个形状上的阴影属性使用VBA来设置形状阴影：

For Each Slide In ActivePresentation.Slides
  For Each Shape In Slide.Shapes
     Shape.Shadow.Size = 100
     ''# etc
  Next
Next

如何使用VBA设置文本阴影的属性？在UI中，可以通过右键单击文本，选择格式文本效果，然后选择 Shadow 来访问这些文件。我已经做了一些在线挖掘，并且无法通过PowerPoint的VBA API找到这些属性的访问位置。

Answer 1

您希望TextRange2对象执行此操作。你可以通过TextFrame2的父母来解决这个问题。以下是如何在文本上设置阴影的示例：

Sub setTextShadow()
Dim sh As Shape
Set sh = ActivePresentation.Slides(4).Shapes(1)
Dim tr As TextRange2
Set tr = sh.TextFrame2.TextRange
    With tr.Font.Shadow
        .OffsetX = 10
        .OffsetY = 10
        .Size = 1
        .Blur = 4
        .Transparency = 0.5
        .Visible = True
    End With
End Sub

以编程方式在PowerPoint中设置文本阴影属性

1 个答案: