Excluir TextBox específico nomeado no Powerpoint usando o VBA

Question

Eu tenho uma apresentação em PowerPoint com cerca de 105 slides. Em cada slide, há uma caixa de texto chamada TextBox4. Quero excluir todas essas caixas de texto.

Eu tentei algum código VBA pela Pesquisa do Google. Mas isso não funciona.

Alguém pode me ajudar com VBA sobre isso.

    

Answer 1

Supondo que você quer dizer uma caixa de texto ActiveX da seguinte forma:

VocêpodeusaroseguintecódigoVBAparapercorrertodasasplanilhaseexcluiracaixadetexto.

SubDeleteTextBox()OnErrorResumeNextDimPPSlideAsSlideForEachPPSlideInActivePresentation.SlidesPPSlide.Shapes("TextBox4").Delete
    Next
End Sub