Vba in powerpoint to clear a text box

[mc6145]

Hello,

I'm developing a Powerpoint to work as an interactive "program" for an escape-room type activity. The user enters different account numbers into a text box (Command Button ActiveX Control) and depending on what is entered, a MsgBox appears, providing them with information. My question is... in VBA, how do I clear the textbox after the user clicks the OK button on the message box? Something like If OKonly Then textbox1.clear... but cannot get my code correct.

[John Wilson]

Post the code used to create the msgbox.

[Aussiebear]

Sub ClearTextboxOnResponse()
Dim userChoice As VbMsgBoxResult
Dim shp As Shape
' Show a message box with Yes/No buttons
userChoice = MsgBox("Do you want to clear the text box?", vbYesNo + vbQuestion, "Clear Text")
If userChoice = vbYes Then
' Reference the shape named "TextBox1" on the current slide
Set shp = ActivePresentation.SlideShowWindow.View.Slide.Shapes("TextBox1")
' Clear the text
shp.TextFrame.TextRange.Text = ""
End If
End Sub


I'm assuming you are in Slide show view (using SlideShowWindow.View.Slide) and there is a shape named TextBox1 on the current slide.

If you're not in Slideshow mode then change:


Set shp = ActivePresentation.SlideShowWindow.View.Slide.Shapes("TextBox1")

to


Set shp = ActivePresentation.Slides(1).Shapes("TextBox1") ' Replace "1" with your slide number