「おみくじ」 Excel VBA

初詣での「おみくじ」の結果はどうでしたか？
私は、「おみくじ」や「運勢」には全く興味が無いので、引いたことがありません。

以前、Excel講座で簡単な「おみくじ」を作成したことがあります。

同じ作るのなら、遊び心のあるものにしたいと思い、作成しました。
Excel VBAを利用して動きのあるものを作ってみました。

こんな感じになりました。（Youtubeにアップした動画です）
　　　おみくじ動画　　をクリックすると動画が再生されます。

泥縄式にVBAを変更していったので、自分でもよくわからないVBAとなってしまいました。
こんなVBAは公表したくないので、ロックしております。

おみくじ完成品は、私のOneDriveの共有ホルダーに置いておきました。
　　　おみくじ.XLSM 　ダウンロード

マクロを含んだファイルなので、ウイルス対策「マクロのセキュリティー」を変更して下さい。
私には、マクロにウイルスを組み込む能力はありませんが、「信用できないなー」と思ったら、
ダウンロードや「おみくじファイル」のクリックはしないでください。

おみくじファイルの使用方法
１．ファイルをクリックすると自動で「吉凶」が占えます。
２．続いて、「今日の運勢」が２０秒間表示されます。
　　（２０秒あれば、「今日の運勢」を読めるはずです）
３．２０秒後、元の「おみくじ」画面に戻ります。
４．おみくじイラストをクリックするともう一度「おみくじ」がひけます。
５．「おみくじ終了」ボタンをクリックすると、Excelファイルが閉じます。