[Powerpoint マクロ]

スライドショーの実行は、F5 や メニュー スライドショー から 実行を選ぶ感じで 実行。
マウスのクリックで進んだときに、偶数ページや あるページ nページだったら を 判断して、、ってことですよね。
ページ切り替えのタイミングを知って判断する感じですよね。
powerpoint withevents
で検索すると、イロイロ出てくると思います。
http://support.microsoft.com/kb/234184/ja
とか参考にして、
標準モジュールに
Option Explicit

Dim myobject As New Class1

Sub StartEvents()
Set myobject.appevent = Application
End Sub

Sub StopEvents()
Set myobject.appevent = Nothing
End Sub

で、スライドショーのクリックイベントがSlideShowNextClickみたいです。
Option Explicit

Public WithEvents appevent As Application

Private Sub appevent_PresentationNewSlide(ByVal Sld As Slide)
MsgBox "PresentationNewSlide"
End Sub

Private Sub appevent_SlideSelectionChanged(ByVal SldRange As SlideRange)

End Sub

Private Sub appevent_SlideShowNextClick(ByVal Wn As SlideShowWindow, ByVal nEffect As Effect)
MsgBox "SlideShowNextClick" 'ここでタイミングはとれた、あとはページ数？
End Sub

Private Sub appevent_WindowSelectionChange(ByVal Sel As Selection)

End Sub

メッセージボックスのタイミングテストまではできたのですが、
必要な現在ページ数のプロパティが見つからなかったので、コメントで失礼します。
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

コメントありがとうございました。

頂いたヒントを元に、試行錯誤した結果、（ちゃんと仕様確認してませんが・・・）
Wn.View.CurrentShowPosition
でどうやらページ数取れそうです。

おおきなヒントになりました。ありがとうございます。
後ほど、ポイントお送りします。

やりかけ・書きかけだったのに、ポイント送信までどうもありがとうございます。
>Wn.View.CurrentShowPosition
現在ページはViewの下.CurrentShowPositionですかぁ、なかなかパワーポイントのオブジェクトに触れる機会が無くて・・なんて言い訳を残しつつ失礼します。