![]() |
|
#1
|
|||
|
|||
![]() 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 |
#2
|
|||
|
|||
![]()
I will give this a shot.. Thank you for your help
Quote:
|
#3
|
|||
|
|||
![]()
Hi
I'm using the OnSlideShowTerminate event and it is working well if I stop the presentation in the middle but if it ends (after the last slide) I don't get it to work, any ideas? |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
How to break Links to FIles in visual basic? | Asinkan | PowerPoint | 0 | 11-15-2012 03:08 AM |
Visual Basic Editor changes from 2003 to 2007 | Rockitman31 | Word VBA | 4 | 09-21-2011 12:01 PM |
Microsoft Power Point 2004 to Office Power Point 2007 | chuff | PowerPoint | 0 | 03-20-2011 01:23 PM |
Referencing Tables in Visual Basic Editor | DavidB | Word Tables | 0 | 09-21-2009 04:01 PM |
![]() |
leroytrolley | Excel | 4 | 08-22-2008 03:57 AM |