PowerPoint VBA 設定済のアニメを任意のタイミングで動作させたい

Question

パワーポイントのVBAを使って音声読み上げ機能は出来ました。
そして、同一スライドで、音声を読み上げた後にアニメーションを動かし、次の音声後に次のアニメーションを動かしたいと、思ってNetを調べたのですが…
アニメーションのプロパティの設定方法は見つかるのですが、実際にアニメを一づつ動作させるような方法が見つかりませんでした。
漠然とした質問で申し訳ありませんが、何方かご存知の方はいらっしゃらないでしょうか。
ヒントでもかまいません。

[参考プログラム]

Public Sub CommandButton実行_Click()

    Call 音声読み上げ("これから現状分析します")

    Sleep 500
    Call 音声読み上げ("これが既存の状態です。")

　　’ここで図形表示したい!!!

    Sleep 2000
    Call 音声読み上げ("最大の問題はこれです。")

　　’ここで図形表示したい!!!

    'ノート欄の文字列を取得する場合はこちら
    Dim strNote As String
    strNote = NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text
    
    Call 音声読み上げ(strNote)

End Sub

Public Sub 音声読み上げ(strNote As String)
    
    '' ノート欄が空の場合は，読み上げ処理を行わずに終了
    If strNote = "" Then
    Exit Sub
    End If
    
    '' 音声合成エンジンを取得
    Dim sv As Object
    Set sv = CreateObject("SAPI.SpVoice")
    
    '' インストールされている音声合成エンジンのうち、最初に見つかった日本語のものを選択
    For i = 0 To sv.GetVoices.Count - 1
    If InStr(sv.GetVoices.Item(i).GetDescription, "Japanese") Then
    Set sv.Voice = sv.GetVoices.Item(i)
    Exit For
    End If
    Next
    '' 日本語のエンジンが見つからなかった場合
    If InStr(sv.Voice.GetDescription, "Japanese") < 1 Then
    '' 発見に失敗した旨をメッセージボックスで通知
    MsgBox "日本語のエンジンが見つかりませんでした。" & vbCrLf & _
    "現在の設定 : " & sv.Voice.GetDescription
    Exit Sub
    End If
    
    '' 音声合成実行
    sv.Speak strNote
    
    '' 音声合成エンジンを開放
    Set sv = Nothing

End Sub

Comments

[jinoji]

読み上げ機能のVBAというのをどんなふうにしているかにもよりますが、
（差し支えなければコードを掲載していただければ参考になります）
単にアニメーションの詳細設定で
＞開始：直前の動作の後
＞遅延：（読み上げる音声の秒数）
とするのではいけないのですか？

あと、1行目がパワーポントとなっています。

[ohikazuma]

サンプルプログラム付けてみました。

Answer 1

Option Explicit
Dim cnt
Public Sub OnSlideShowNextBuild(ByVal Wn As SlideShowWindow)
    cnt = cnt + 1
    Select Case cnt
    Case 1: CreateObject("SAPI.SPvoice").Speak "これから現状分析します"
    Case 2: CreateObject("SAPI.SPvoice").Speak "これが既存の状態です。"
    Case 3: CreateObject("SAPI.SPvoice").Speak "最大の問題はこれです。"
    End Select
    Wn.SlideNavigation.Visible = True
    Wn.SlideNavigation.Visible = False
End Sub

と標準モジュールに書いたうえで、アニメーションを全て「直前の動作の後」にしておくと、
お望みの動きに近い感じになりました。
最後の2行は、「音声が全部終わってからアニメーションが動く」事象を回避するための苦肉の策です。
あとは、ActivePresentation.SlideShowWindow.View.GotoClickあたりでも試したのですが、
こちらも同事象が発生し解決できませんでした。
以上、何かのヒントになれば。

Answer 2

直接の答えにはなっていませんが、
音声をファイルとして出力しておいて、PowerPointファイルに挿入し、
アニメーションの１要素として組み入れるというのも一つの方法かと思います。
アニメーションの詳細設定で、
＞開始：直前の動作の後
＞遅延：ｘｘ秒
のように設定するイメージです。

以下は、音声をファイルとして出力するためのコードです。

Function TextToAudioFile(text, path)
    Dim FS As Object
    Set FS = CreateObject("SAPI.SpFileStream")
    With CreateObject("SAPI.SpVoice")
        FS.Open path, 3
        Set .AudioOutputStream = FS
        .Speak text
        FS.Close
    End With
End Function

Comments

[ohikazuma]

なるほどですね、こういう使い方もアリなのですね、勉強になります。
ただ、音声ファイルが多くなり過ぎ、修正時に…