Löschen Sie bestimmte benannte TextBox in Powerpoint mit VBA

2051
Programmer

Ich habe eine PowerPoint-Präsentation mit ungefähr 105 Folien. Auf jeder Folie befindet sich ein Textfeld mit dem Namen TextBox4. Ich möchte alle diese Textfelder löschen.

Ich habe einen VBA-Code von Google Search ausprobiert. Das geht aber nicht.

Kann mir jemand bei VBA diesbezüglich helfen.

0
Könnten Sie bitte den Code aktualisieren, um besser zu verstehen Linga vor 8 Jahren 0
Wir sind kein Skriptschreibservice. Wir erwarten von den Anwendern, dass sie uns mitteilen, was sie bisher ausprobiert haben (einschließlich der von ihnen verwendeten Skripts) und wo sie stecken bleiben, damit wir bei bestimmten Problemen helfen können. Fragen, die nur nach Skripts fragen, sind zu umfangreich und wahrscheinlich [gehalten oder geschlossen] (http://superuser.com/help/closed-questions). Bitte lesen Sie [Wie stelle ich eine gute Frage?] (Http://superuser.com/help/how-to-ask). DavidPostill vor 8 Jahren 0
Ich weiß es sehr gut. Vielen Dank. Was aber, wenn Sie Wissen teilen, anstatt mir nur die Verwendung zu empfehlen. Programmer vor 8 Jahren 0

1 Antwort auf die Frage

2
Jonno

Angenommen, Sie meinen so ein ActiveX-Textfeld:

enter image description here

Sie können den folgenden VBA-Code verwenden, um jedes Blatt zu durchlaufen und das Textfeld zu löschen.

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

Verwandte Probleme