埋め込み後、次のスライドへ移動させたい
■■な機能を実装中に以下のエラーメッセージが発生しました。
該当のソースコード
Sub 埋め込み()
Dim n As Long '現在のスライド Dim strNote As String 'ノート取得 Dim cd As String 'フォルダを取得 Dim wavePath As String 'wavファイルを作成 Dim oFileStream, oVoice 'wavファイルに保存 Dim oSlide As Slide '音声データ Dim oShp As Shape '現在のスライドのノートを取得 n = ActiveWindow.Selection.SlideRange.SlideIndex strNote = ActivePresentation.Slides(n).NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text 'ノートが空白なら終了 If strNote = "" Then Exit Sub End If '現在のフォルダを取得 cd = ActivePresentation.Path 'wavファイルのパスを作成 wavePath = cd & "\voice.wav" 'wavファイルに保存 Const SAFT48kHz16BitStereo = 39 Const SSFMCreateForWrite = 3 Set oFileStream = CreateObject("SAPI.SpFileStream") oFileStream.Format.Type = SAFT48kHz16BitStereo oFileStream.Open wavePath, SSFMCreateForWrite Set oVoice = CreateObject("SAPI.SpVoice") Set oVoice.AudioOutputStream = oFileStream oVoice.Speak strNote oFileStream.Close 'audioオブジェクトの埋め込み(音声データを埋め込む) Set oSlide = ActivePresentation.Slides.Item(n) Set oShp = oSlide.Shapes.AddMediaObject2(wavePath, False, True, 10, 10) With oShp.AnimationSettings.PlaySettings .HideWhileNotPlaying = True End With
End Sub
ソースコード
試したこと
埋め込みまでは出来ているのですが、次スライドへ移動ができません。
色々調べながらやっているのですが、どうしてもうまくいきません。
ご教授ください。
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。