Published on Thursday, April 8, 2010 | Tutorials 
Bookmark and Share

For PowerPoint 2003

  1. Make sure you are on the correct slide; for the purpose of a Multimedia Intro, this will be the first slide of your presentation.
  2. In PowerPoint’s main menu (across the top), choose View > Toolbars > Control Toolbox.
  3. In the Control Toolbox menu, select the “More Controls” icon, and scroll until you find “Shockwave Flash Object.”
  4. Choose “Shockwave Flash Object.” Your cursor should change from an arrow to a cross-hair symbol.
  5. Holding the Shift-key, create the control object (by clicking and dragging) on the slide at any size and position. Holding the Shift-key will ensure that you keep the Flash / SWF file’s correct aspect ratio. Be sure to leave a clickable area on your slide so that the user can advance to the next slide when ready.
  6. Right-click on the control object and select “Properties.”
  7. In the Properties menu, find the EmbedMovie field and it change to “True.” Next, find the Movie field and type the path to your Flash / SWF file. The path of your Flash / SWF file should look something like this: C:Documents and SettingsOwnerDesktopmy-flash-movie.swf
  8. At the top of the Properties menu, click on the pulldown box and make a note of the slide number.
  9. Close the Properties menu. Right-click on the control object again and select “View Code.” This will open Microsoft Visual Basic. Copy and paste the following code in the window.
  10. Sub OnSlideShowPageChange()
    ‘ Copyright (c) 2001 Rick Turoczy
    ‘ Rewinding code for
    ‘ Powerpoint 2000 and Powerpoint XP
    ‘ presentations with Flash movies
    ‘ http://www.flashgeek.com/
    ‘ This code is free for use and editing as needed.
    Dim swf As ShockwaveFlash
    Dim FrameNum As Long
    ‘ Define the slide and the Flash object to whom you’d like to speak
    Set swf = SlideX.ShockwaveFlash1
    ‘ Tell it to stop playing.
    swf.Playing = False
    ‘ Tell it to return to the first frame (swf.Rewind)
    swf.GotoFrame (1)
    ‘ Tell it to start playing again
    swf.Play
    End Sub
    Private Sub ShockwaveFlash1_OnReadyStateChange(ByVal newState As Long)
    End Sub
  11. On the line where it reads Set swf = SlideX.ShockwaveFlash1, change the “X” to match the slide number in the title area of the window. It will read something like this: My Power Point Presentation – Slide1 (Code)

And that’s it! Launch your slideshow and see if your Flash movie plays. If you’ve done the process correctly, the Flash movie is permanently embedded. One way to determine this is by the .ppt’s file size, which will have increased by several megabytes. I personally recommend that you keep your file size below 10 MBs. If you have any questions, drop me a line here and I will answer them as soon as possible. Thanks!


Pages: 1 2


Bookmark and Share
Source:  Thomas Hubbard.  All Rights Reserved.
Please leave a response by submitting the form below, or trackback from your own site.  Responses to this entry (post) can be followed through our XML feeds.
No Comments

Post Comment

Asterisks (*) indicate required fields.

   

   

   


XML Feeds Feeds Email Updates Email Updates
CALL NOW:  (404) 903-9076  or click here for more information
Professional Bio
Professional Resume
Testimonials
Tom's Story
Latest Portfolio Entries
Animation
Graphic Design
Illustration
Multimedia
Welcome
Categories
TOM DATA™ Newsletter
Archives
Digg
Facebook
Google
LinkedIn
Myspace
Twitter
Free Quote
DIY and Tutorials
Downloads