PPT97: How to Activate a Media Object From a Macro Button

MORE INFORMATION

Step 1. Inserting a Media Object

1. On the Insert menu, click Object.
2. Click to select the Create From File option.
3. Click Browse.
4. Locate and select the media object you want to use, and then click OK.
5. Click OK.

1. Select the movie.
2. On the Edit menu, point to Media Clip Object, and then click Edit.
   
   The object appears in Media Player.
3. On the Edit menu, click Options.
4. Click to clear all options except Play In Client Document, and then click OK.
5. Click anywhere on the slide to cancel the selection of the media object.

Step 2. Configuring the Media Object

1. Select the media object.
2. On the Slide Show menu, click Custom Animation, and then click the Play Settings tab.
3. From the Object Action list, select Don't Play, and then click OK.

Step 3. Creating the Macro Code

1. On the Tools menu, point to Macro, and then click Visual Basic Editor.
2. On the Insert menu, click module.
3. Type the following code into the module.
   
   NOTE: A line that is preceded by an apostrophe (') introduces a comment in the code. Comments are provided to explain what the code does at a particular point in the procedure. This text is optional and you may exclude it from your code.

        Sub StartMediaObject()
   
            ' Change this number to represent the slide number on which
            ' you placed the media object.
            Const SLIDE_NUM As Long = 1
   
            ' Add the number that has been assigned to your media object.
            ' Use the following steps to obtain the number:
            '   1. Right-click the media object, click Custom Animation,
            '      and then click the Timing tab.
            '   2. Identify the media object in the Slide Objects Without
            '      Animation list (the object is selected) and note the
            '      name given to the object. The name resembles "Object
            '      1" or "Object 8."
            '   3. Use the number of the object from step 2 in the macro
            '      code. For example, if your media object is listed as
            '      "Object 4," change the ShapeNum constant to the
            '      following:
            '      Const SHAPE_NUM As Long = 4
   
            Const SHAPE_NUM As Long = 1
   
            With ActivePresentation.Slides(SLIDE_NUM).Shapes(SHAPE_NUM)
               .AnimationSettings.AdvanceTime = 0
               .AnimationSettings.PlaySettings.PlayOnEntry = msoTrue
               .AnimationSettings.PlaySettings.ActionVerb = "Play"
            End With
   
            ' Refresh the slide. This forces the new object settings to
            ' take effect and the media object plays.
            SlideShowWindows(1).View.GotoSlide SLIDE_NUM, msoFalse
   
         End Sub
   						

Step 4. Adding and Configuring the Action Button

1. On the Drawing toolbar, click AutoShapes, point to Action Buttons, and then click the Action Button: Custom (blank) button.
2. Draw the action button on the slide.
3. In the Action Settings dialog box, click the Mouse Click tab.
4. Click to select the Run Macro option.
5. From the list of macros, select the StartMediaObject macro.
6. Click OK.