Excel2000で「ボールでアニメーション」を動作させるには?

Question 49.9 Previous Next
(A氏より) 500連発・第2弾のマクロ番号 217について質問します。
詳細は こちら 動作のうえでボールアニメーションが切り替わらず、灰色の四角いImageだけがピンボールのように動いているのですが、 なぜでしょう。他のボールアニメーションではちゃんと黄色い玉と赤い玉が切り替わりますが、動作時間を延長してもだめでした。
なお、私の環境はMeでの2000使用です。VBAでこんな事もできるのかと大変関心深い面がありますので、宜しくお願いいたします。
(B氏より) Excel2000で、500連発・第2弾のマクロ番号 217を実行すると、ボールではなく image1が出てきて、途中で中断したあとに カラーボールが出てくるのですが。
本では最初からボールが出るように記載されているように思ったのですが・・・
Answer   Copyright (C) 2001.11.13 永井善王
「ボールでアニメーション」に関心を持っていただいて、ありがとうございます。
ボール 500連発・第2弾には、ご質問のマクロ番号 217のほかにも 219、223にスクリーンセーバ等でおなじみの、ボールが跳ね返るアニメーション等をご紹介しています。

これらの内の217番だけは、Excel 97で正常動作するのに Excel 2000では、A氏からご指摘の現象が、また、Excel 2002では B氏からご指摘分の現象が出ることを確認できました。 ご連絡いただきお礼申し上げます。

対策版サンプルブックのご提供について (500連発・第2弾217番)

上記の現象は、imageコントロールをワークシートで動的に使った場合、そこに埋め込まれている画像が表示されないようでして、Excelのバージョンアップによる影響ではないかと思われますが、ご迷惑をお掛けしお詫びします。

さっそく原作者にて対策版をご用意しましたので、お手数ですが下記よりダウンロードなさってください。この対策版はimageコントロールは使っていませんが、原作と同様に動作しますので、ご了承ください。 動作確認は、500連発・第2弾が対象にしているExcel 97および 2000、さらに Excel 2002でも実施しておきました。 OSは、いずれもWindows Meです。

サンプルブックのダウンロードは ここをクリック  (500-2-217.xls 55KB)
※ 一旦、ブックをハードディスクに保存し、後で改めて開いてから実行してください。

 

Excel VBA Macro