用于大写标题幻灯片的 VBA

Question

我想使用 VBA 将我所有 PowerPoint 幻灯片标题中的每个单词大写。

到目前为止，这是我正在使用的代码：

Sub Capitalize()
    Dim sld As Slide

    For Each sld In ActivePresentation.Slides
            sld.Title.TextFrame.TextRange.ChangeCase ppCaseTitle
        Next sld
End Sub

突出显示“标题”并说“找不到方法或数据成员”给我一个错误

任何帮助将不胜感激。谢谢！

Answer 1

Title 对象在 Shapes 对象上可用，该对象映射到幻灯片的占位符标题。我还会使用 HasTitle 属性来检查幻灯片是否有标题。

Sub Capitalize()
Dim sld As Slide

For Each sld In ActivePresentation.Slides
    If sld.Shapes.HasTitle Then
        sld.Shapes.Title.TextFrame.TextRange.ChangeCase ppCaseTitle
    End If
Next sld
End Sub

Answer 2

Slide 对象没有 Title 属性。您需要查找包含标题文本的Shape 对象。

迭代.Shapes 集合并使用它的Name 知道您何时找到包含您的标题的集合（然后您可以退出循环）。

这假设您已将标题形状命名为“标题”或其他名称。

Dim sld As Slide, shp As Shape
Dim found As Boolean
For Each sld In ActivePresentation.Slides
    For Each shp In sld.Shapes
        If shp.Name = "Title" Then
            found = True
            shp.TextFrame.TextRange.ChangeCase ppCaseTitle
        End If
        If found Then Exit For
    Next
    If found Then Exit For
Next