http://q.hatena.ne.jp/1278176601 の コメント欄をみるとできたみたいなので、蛇足ですが
ページ数も
Wn.View.CurrentShowPosition
でどうやらページ数取れそうです。
と自己解決してるし、蛇足ですがいつもの動画作成のネタにしてみました。
やりたかったこと、テスト内容
パワーポイントのスライドショーのページが変わったときのイベントを取りたくて、
http://support.microsoft.com/kb/234184/ja
を 参考にして WithEventsのテストを行ってみました。
_SlideShowNextClick で スライドショーのイベントを(タイミングを)取ることができました。
で、現在表示のページ番号は Wn.View.CurrentShowPosition
クラスモジュールに書く Class1 の名前で作成
Option Explicit ' PPT2000 アプリケーション レベルのイベント ハンドラーを作成します。 ' http://support.microsoft.com/kb/234184/ja を 参考にして WithEventsのテスト Public WithEvents appevent As Application Private Sub appevent_PresentationNewSlide(ByVal Sld As Slide) MsgBox "PresentationNewSlide" End Sub Private Sub appevent_SlideShowNextClick(ByVal Wn As SlideShowWindow, ByVal nEffect As Effect) MsgBox "SlideShowNextClick page=" & Wn.View.CurrentShowPosition Debug.Print Wn.Presentation.Name '普通の名前だった。 テスト.pptとかファイル名 End Sub
下記は標準モジュールに(上記のClass1 の名前で作成したイベントを使う・結びつける)
Option Explicit Dim myobject As New Class1 Sub StartEvents() Set myobject.appevent = Application End Sub Sub StopEvents() Set myobject.appevent = Nothing End Sub
テスト動画は http://www.youtube.com/watch?v=a3WashD4bUY をみて下さい。
www.youtube.com
続き
内容が似ているけど、http://d.hatena.ne.jp/ken3memo/20100815/1281879146
↑続きの記事です。こちらも合わせてみてください。