Удалить конкретный именованный TextBox в Powerpoint с помощью VBA

Question

У меня есть презентация PowerPoint, которая имеет около 105 слайдов. На каждом слайде есть текстовое поле с именем TextBox4. Я хочу удалить все эти текстовые поля.

Я пробовал некоторый код VBA с помощью поиска Google. Но это не работает.

Может кто-нибудь помочь мне с 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