終了したアニメーションをもう一度再生させる「マクロボタン」


終了したアニメーションをはじめから再生させることができる「マクロボタン」を紹介いたします.

授業中に「もう一度アニメーションを再生させたいのに,再生させることができない…」と頭を抱えたことはありませんか.

今回紹介するマクロボタンを利用することで,終了したアニメーションをもう一度初めから再生させることができます.

それでは早速開発の仕方を順番に説明していきます.

①上にある「開発」と書かれたタブをクリックします.
②下に表示された「コマンドボタン」というところをクリックします.するとカーソルが十字型に変化すると思います.


③「マクロボタン」を設置したいか所にカーソルを移動させ,クリックします.すると,ボタンが表示されたと思います.


④表示されたボタンをダブルクリックすると,開発画面が表示されます.


⑤開発画面の「Private Sub CommandButton1_Click()」と「End Sub」の間にコードをコピー&ペーストすることで「マクロボタン」の完成です.

コードは以下の通りです.そのままコピーし,開発画面でペーストしてください.

Dim iSlideIndex As Integer
iSlideIndex = SlideShowWindows(1).View.CurrentShowPosition
SlideShowWindows(1).View.GotoSlide (iSlideIndex)

これでアニメーションをはじめから再生させることができる「マクロボタン」の完成です!!

「マクロボタン」のデザインの設定についてはこちらをご覧ください.

https://musashi.educ.kumamoto-u.ac.jp/tsukalab-6/

完成させたものを保存する際に気を付けてほしいのですが,拡張子をマクロが有効となる「PowerPointマクロ有効プレゼンテーション」に変更してから保存してください.

サンプルのパワポ教材はこちらです.

ダウンロードしたパワポ教材を開く際は,「編集を有効にする」と「コンテンツの有効化」を2つクリックしてください.下に表示してある画像を参考にしてみてください.

Follow me!