質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
87.20%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

受付中

PowerPointで音声データを埋め込み、終わったら次のスライドへ移動させたい

wzSf11rDdXhuPD7
wzSf11rDdXhuPD7

総合スコア5

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

1回答

0評価

0クリップ

471閲覧

投稿2022/01/20 06:45

埋め込み後、次のスライドへ移動させたい
■■な機能を実装中に以下のエラーメッセージが発生しました。

該当のソースコード

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

ソースコード

試したこと

埋め込みまでは出来ているのですが、次スライドへ移動ができません。
色々調べながらやっているのですが、どうしてもうまくいきません。
ご教授ください。

良い質問の評価を上げる

以下のような質問は評価を上げましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

  • プログラミングに関係のない質問
  • やってほしいことだけを記載した丸投げの質問
  • 問題・課題が含まれていない質問
  • 意図的に内容が抹消された質問
  • 過去に投稿した質問と同じ内容の質問
  • 広告と受け取られるような投稿

評価を下げると、トップページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

まだ回答がついていません

会員登録して回答してみよう

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
87.20%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。