Office関連

PowerPointの自動実行マクロ

ExcelのAuto_OpenやWordのAutoOpenのように、PowerPointにもコードを記述するだけで、あるタイミングで自動的に実行されるマクロが用意されています。

・OnSlideShowPageChange
・OnSlideShowTerminate
・OnSlideShowNextBuild
・OnSlideShowPreviousBuild

・標準モジュール

Option Explicit

Public Sub OnSlideShowPageChange(ByVal Wn As SlideShowWindow)
'スライドショーでページが変わったときに実行されます。
  Debug.Print "1.OnSlideShowPageChange"
End Sub

Public Sub OnSlideShowTerminate(ByVal Wn As SlideShowWindow)
'スライドショーが終了したときに実行されます。
  Debug.Print "2.OnSlideShowTerminate"
End Sub

Public Sub OnSlideShowNextBuild(ByVal Wn As SlideShowWindow)
'スライド上のアニメーションの動作が進んだときに実行されます。
  Debug.Print "3.OnSlideShowNextBuild"
End Sub

Public Sub OnSlideShowPreviousBuild(ByVal Wn As SlideShowWindow)
'スライド上のアニメーションの動作が戻ったときに実行されます。
  Debug.Print "4.OnSlideShowPreviousBuild"
End Sub

それぞれのマクロについてはコメントで説明を付けた通りですが、「OnSlideShowNextBuild」と「OnSlideShowPreviousBuild」については、動作の説明が難しく直観的に理解し難いマクロだと思いますので、どういったタイミングで実行されるのかは、実際にアニメーションを設定したスライドショーを実行して確認していただければと思います。

上記マクロは「[PowerPoint]Applicationオブジェクトのイベントを利用する」で紹介しているような方法でイベントをハンドリングする必要がありませんので、下記のようなスライドショー開始時にマクロを実行したい場合には手軽に利用できて便利だと思います。

Option Explicit

Public Sub OnSlideShowPageChange(ByVal Wn As SlideShowWindow)
'スライドショー開始時にポインタを「表示」にするマクロ
  If Wn.View.CurrentShowPosition = Wn.Presentation.SlideShowSettings.StartingSlide Then _
  Wn.View.PointerType = ppSlideShowPointerArrow
End Sub

また、スライドショーの実行時やページ変更時にマクロを実行したいときに便利な「OnSlideShowPageChange」マクロですが、ppsppsmといったマクロが有効なスライドショー形式のファイルを実行した場合には処理が実行されません。

こういったときはスライド上に適当なActiveXコントロール(コマンド ボタン等)を追加することでマクロが実行されるようになります。

PowerPoint-AutoMacro_01_01

■ 参考Webページ:

・Events supported by PowerPoint
http://officeone.mvps.org/vba/events_version.html
・OnSlideShowPageChange event does not fire
http://www.pptfaq.com/FAQ01152_OnSlideShowPageChange_event_does_not_fire.htm

Adobe Reader XIを利用してPDFファイルのページ数を取得するVBAマクロ前のページ

ドラッグ&ドロップでExcelのアドインを登録するVBScript次のページ

関連記事

  1. Office関連

    インストールされたフォントの一覧を取得するVBAマクロ

    最近自分の周りでPowerPoint VBAが流行っているようだったの…

  2. Office関連

    関数一覧(Excel 2010)

    関数の挿入ダイアログから抽出したExcel 2010の関数情報をリスト…

  3. Office関連

    64ビット版OfficeでURLエンコード処理ができない?

    2011/12/28 追記:関連記事として「文字コードを指定してU…

  4. Office アドイン

    Office Scripts機能によってWeb版Officeの操作を自動化する

    前回、Ignite 2019で発表されたPower Automate(…

  5. Office関連

    VBAで○○を禁止したい!・・・と思う前に。

    Office系Q&Aサイトを見ているとたまに出てくるのがこの質問。…

コメント

  1. この記事へのコメントはありません。

  1. この記事へのトラックバックはありません。

Time limit is exhausted. Please reload CAPTCHA.

Translate

Chinese (Simplified)Chinese (Traditional)EnglishFrenchGermanJapaneseKoreanRussianSpanish

最近の記事

アーカイブ

PAGE TOP