代码之家 › 专栏 › 技术社区 › Ben Gribaudo

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

powerpoint-vba powerpoint vba

3

Ben Gribaudo · 技术社区 · 16 年前

PowerPoint有两种阴影-形状和文本。可以通过右键单击形状(包括文本框)来设置形状阴影,选择 设置文本格式 ,然后选择影子或通过每个形状的“阴影”属性使用VBA:

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

如何设置文本使用VBA的阴影属性?在UI中,可以通过右键单击文本,选择 格式化文本效果 影子 . 我在网上做了一些挖掘工作,但找不到可以通过PowerPoint的vbaapi访问这些属性的位置。

1 回复 | 直到 15 年前

1

4

Todd Main 16 年前

你会想要 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