none
VBAで、PowerPoint 2010のスライドの総再生時間を求める方法を教えてください。 RRS feed

  • 質問

  • VBAで、PowerPoint 2010の全スライドの総再生時間を求めようとしたのですが、取得値と実際の総再生時間に誤差があり困っています。
    どのように求めればよいか、ヒントをご教示いただきたくお願いします。

    ■測定対象PowerPoint 2010プレゼンテーションについて

    ①各スライドで設定したアニメーションの総実行時間をアニメーションウィンドウで確認し、
    それを上回る値を、[画面切り替え]-[画面切り替えのタイミング]-[自動的に切り替え]に手動で設定しておく。・・・[A]
    ②各スライドで、、[画面切り替え]-[継続時間]を設定しておく。・・・[B]

    ■測定VBAコード

      '全スライド走査
      For Each objSld In ActivePresentation.Slides   
        '時間の加算
        lTotalTime = lTotalTime + objSld.SlideShowTransition.Duration     ・・・ 全[B]の和を取得しているつもり
        lTotalTime = lTotalTime + objSld.SlideShowTransition.AdvanceTime  ・・・ 全[A]の和を取得しているつもり
      Next objSld

    ■確認方法

    ①PowerPoint 2010プレゼンテーションで、測定マクロを実行し、総再生時間を確認する ・・・ [C]
    ②PowerPoint 2010プレゼンテーションの[ファイル]メニューより、ビデオ形式ファイル(Windows Media オーディオ/ビデオ ファイル (.wmv))を作成、
    できあががったビデオファイルのプロパティで、総再生時間を確認する ・・・[D]
    ③[C]と[D]を比較すると20秒程度の誤差が生じている。

    ■確認環境

    Windows7 Professional SP1 (32ビット)
    PowerPoint 2010

    よろしくお願いいたします。




    • 編集済み tentenco 2012年12月3日 2:11
    2012年11月29日 6:26