使用VBA更改PowerPoint中每张幻灯片上特定形状的字体

我正在尝试运行一个巨大的PowerPoint文件，我想更改每张幻灯片上的某些文本框字体（不是每张幻灯片都有文本框），但是当在幻灯片上找不到文本框时，我总是会遇到一个错误（这很好，我只想跳到下一张幻灯片，并在必要时进行检查和更改），我该如何解决这个问题

Sub ChangeIndividualFonts()

    Dim bpFontName As String

    bpFontName = "Arial"

    With ActivePresentation
        For Each Slide In .Slides
            For Each Shape In Slide.Shapes
                With Slide.Shapes("TextBox 5")
                    If .HasTextFrame Then
                        If .TextFrame.HasText Then
                            .TextFrame.TextRange.Font.Name = bpFontName
                        End If
                    End If
                End With
            Next
        Next
    End With

End Sub

---

第一步-消除幻灯片中每个形状的

。形状
循环这是否回答了您的问题？请参阅我在别处的回复，重新更改文本大小/font/等。以我在此处提供的代码为基础，在本例中，查看每个形状，如果oSh.Name=“TextBox 5”，则删除具有其他名称的形状。