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

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

Answer 2

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