PowerPointについて

質問

PowerPoint2002で挿入したサウンドをフェードアウトしながら曲を終わらせることは出来るんでしょうか。教えてください。

回答No.2

neKo_deux

該当機能が無いものとして、VBAを利用して、MCIコマンドを呼び出すとか。

Office TANAKA - Excel VBA(サウンドを再生する)
http://www.officetanaka.net/excel/vba/tips/tips22.htm

例)
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

'再生
Sub Sample2()
　Dim SoundFile As String, rc As Long
　SoundFile = "C:\Windows\Media\tada.wav"

　rc = mciSendString("Play " & SoundFile, "", 0, 0)
End Sub

'フェード
Sub Sample3()
　Dim rc As Long

　ボリューム大→小まで繰り返し
　　rc = mciSendString("setaudio SOUND volume to 音量", "", 0, 0)
　　sleep(500)
　繰り返し終わり
　　rc = mciSendString("close SOUND", "", 0, 0)
End Sub

未検証ですが。

参考URL：

http://www.officetanaka.net/excel/vba/tips/tips22.htm

回答No.1

WillDesignWorks

PowerPoint2000で見てみましたが、サウンド再生のフェードアウトはないみたいです。
手動でボリュームを回すしかないのでは。

元々のサウンドを編集してフェードアウトするというのはダメなんでしょうか。