View Single Post
 
Old 09-01-2013, 09:34 PM
GerryM GerryM is offline Windows XP Office 2007
Novice
 
Join Date: Sep 2013
Posts: 3
GerryM is on a distinguished road
Smile Thanks John

I will give this a shot.. Thank you for your help

Quote:
Originally Posted by JohnWilson View Post
There are no similar events in PowerPoint. You would really need to write a with events class but this isn't simple and difficult to make work outside of an AddIn. IF you are accessing vba during the show (sounds like it) then there is a solution.

Sub OnSlideShowTerminate(ByVal Wn As SlideShowWindow)
Dim osld As Slide
Dim opres As Presentation
Set opres = ActivePresentation
For Each osld In opres.Slides
' insert code here to clear textbox
On Error Resume Next
' will depend whether it's an ActivX box or a normal textbox
'for ActivX
osld.Shapes("TextBox1").OLEFormat.Object.Text = "" ' use actual name of course
'normal shape
osld.Shapes("name of shape").TextFrame.DeleteText
Next osld
End Sub
Reply With Quote