パワーポイントのスライド番号の取得をしたい

質問

はじめまして

パワーポイント２００７におきまして、プレゼンテーション実行中に、

マウスにてスライド内のボタンを押すと「現在のページ数＋１０ページ先のページに飛ぶ」というような動作を行わせようとしています。

http://support.microsoft.com/kb/163194/ja
の
ActiveWindow.Selection.SlideRange.SlideNumber
を利用し、

=======================================================
Sub TenPageGo()

PN = ActiveWindow.Selection.SlideRange.SlideNumber

GO = PN + 10

SlideShowWindows(Index:=1).View.GotoSlide Index:=GO
End Sub
=======================================================

といったマクロにて実行を考えましたが、

ActiveWindow.Selection.SlideRange.SlideNumber

は、プレゼンテーション中には動作してくれない模様です。

よって、プレゼンテーション中に現在表示中のプ
レゼンテーション番号を取得する方法をご教授いただきたくお願い申し上げます。

回答No.2

mt2008 · ベストアンサー

気になって、調べてみましたら「CurrentShowPosition」で頁番号が取得できるようです。
Nextで送るよりこの方が良いですね

PN = SlideShowWindows(Index:=1).View.CurrentShowPosition
SlideShowWindows(Index:=1).View.GotoSlide Index:=PN + 10

お礼

mt2008様

再度のお教え大変恐縮です。
御蔭さまで非常にスムーズな動作で動かす事が出来ました。

言葉だけの御礼となってしまうのが心苦しい限りです
この度は誠にありがとうございました。

もしもこちらの質問を見る事のある方の為に以下を記載します。

その後、下のやり方でも似たような動作を確認する事が出来ました。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
PN = SlideShowWindows(1).View.Slide.SlideIndex
GO = PN + 10
SlideShowWindows(Index:=1).View.GotoSlide Index:=GO
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

回答No.1

mt2008

頁番号取得ではないですが、１０ページ先を表示したいなら、コレで如何でしょう

For i = 1 To 10
　　SlideShowWindows(Index:=1).View.Next
Next i

PowerPointからマクロの記録が消えてから色々やりにくいですよね。

お礼

mt2008様

ご回答、ご教授をありがとうございます。
思った通りの動作が出来ました、ありがとうございます。

只、各ページが重い為、ページ変更を行うのに時間がかかってしまうのと、
飛ばしたページの描画が行われる為、飛ばすというよりは「早送り」になってしまいました。

よって、エクセルなどでよく使用しておりました、
Application.ScreenUpdating = False
Application.ScreenUpdating = True
にて、描画の一時停止を考えたのですが、うまくいきませんでした。

別の方法や、頂戴しました方法への追加のご教授なども賜りたく、引き続き質問を継続いたします。