プレゼン　トラのアナ

1. コントロールツールボックスの「コントロールの選択」でShockWave Flash　Objectを選択し、スライドに配置します｡
2. スライドにCommandButtonを３つ配置します｡
3. Commandbuttonをクリックします｡
4. Commandbuttonに以下のコードを貼り付けます｡
   Movie = “d:\myPowerPointFlash.swf”は任意のファイル名に直してください｡
5. スライドショーを開始します｡
   • CommandButton1をクリックするとFlashが開始されます｡
   • CommandButton2をクリックするとFlashが終了します｡
   • CommandButton3をクリックするとFlashが中断します｡

'開始
Private Sub CommandButton1_Click()
    With ShockwaveFlash1
        .Movie = ""
        .Rewind
        .Movie = "d:myPowerPointFlash.swf"
        .Play
        .Loop = False
    End With
End Sub

'停止
Private Sub CommandButton2_Click()
    With ShockwaveFlash1
        .StopPlay
        .Movie = ""
        .Rewind
    End With
End Sub

'一時停止
Private Sub CommandButton3_Click()
    If Slide1.ShockwaveFlash1.Playing Then
        Slide1.ShockwaveFlash1.StopPlay
    Else
        Slide1.ShockwaveFlash1.Play
    End If
End Sub