使用 VBA 删除 Powerpoint 中特定命名的文本框

Question

我有一个 PowerPoint 演示文稿，其中大约有 105 张幻灯片。每张幻灯片上都有一个名为 TextBox4 的文本框。我想删除所有这些文本框。

我尝试通过 Google 搜索使用一些 VBA 代码。但是没有用。

有谁能用 VBA 帮助我解决这个问题。

Answer 1

假设您指的是像这样的 ActiveX 文本框：

您可以使用以下 VBA 代码循环遍历每个工作表并删除文本框。

Sub DeleteTextBox()
    On Error Resume Next
    Dim PPSlide As Slide
    For Each PPSlide In ActivePresentation.Slides
        PPSlide.Shapes("TextBox4").Delete
    Next
End Sub