VBでPowerPointを操作するには？ (ID:76210)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 PowerPoint2000を使っています。縦長の図をアニメーション設定してスライドショーにした時に初めからその図が現われていて、クリックしたら横に倒れるという動きをさせたかったんですが、最初から現われているというのは2002でなくては設定できないそうで、マクロを作成することにしました。スライドショーの画面で図をクリックすると倒れ、横長になるところまで作り、また通常の画面に戻った時にマクロの実行をすれば図がまた元の縦長になるというものも作りました。ですが、できればこの二つの動作を関連付けて、通常の画面に戻ったらマクロの実行を選択しなくても自動的に図が縦長に戻るようにしたいのです。どういうコードにすればいいでしょうか？長文になってしまいますが、コードを載せます。 Sub move() With Application .Presentations(1).SlideShowSettings.Run With .SlideShowWindows(1) Dim i For i = 0 To -45 Step -15 ActivePresentation.Slides(1).Shapes(1).IncrementRotation i DoEvents Next i End With End With End Sub Sub reset() With Application With .ActivePresentation .Slides(1).Shapes(1).IncrementRotation 90 End With End With End Sub 申し訳ありませんが、御回答よろしくお願い致します。