|
|
|
|
#1
11-03-2013, 01:21 AM
|
|||
|
|||
I'm not able to test this right now but you should be able to do this.
Code:
Sub OnSlideShowPageChange(SW As SlideShowWindow)
Dim osld As Slide
If SW.View.CurrentShowPosition = 2 Then ' this is slide 2
Set osld = SW.View.Slide
osld.Shapes("ShockwaveFlash1").OLEFormat.Object.Rewind
osld.Shapes("ShockwaveFlash1").OLEFormat.Object.Playing = True
End If
End Sub
|
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 Mail Merge Function not Noticing 'True' vs. 'False' Statement
|
danellekent | Mail Merge | 1 | 04-27-2012 02:19 AM |
|
Audio not auto playing...
|
TJSNO | PowerPoint | 5 | 12-10-2011 12:01 PM |
| Playing with rules | Emerogork | Outlook | 0 | 11-03-2011 11:19 AM |
| Launching a form or comment box when a cell value turns to false | cran29 | Excel | 0 | 10-25-2011 10:40 AM |
|
MSWord false pattern or background?????
|
controlengineer | Drawing and Graphics | 3 | 04-02-2011 06:14 AM |
Windows 7 64bit 
Office 2010 32bit
Hybrid Mode