------1>下図のように図形描画し、以下をマクロの登録する。
<コード>Private Sub スマイル1_Click()With Sheet1.Shapes("スマイル 1") .Width = .Width * 2 .Height = .Height * 2 Do DoEvents .Width = .Width * 0.99 .Height = .Height * 0.99 Loop Until .Width <= 80End WithEnd Sub2>スマイル図形を一度クリックしてください。
ここまでは、大体イメージ通りなのですが、3>スマイル図形を"3回以上"連射すると、エラーが一瞬表示されBookが閉じてしまいます。
※実際に試される時は気いつけてください。
おそらく、DoEventsのループ中に再度マクロが実行されることがエラーの原因なのだろうと解釈しているのですが、回避する方法がわからないでいます。
プロジェクトが保護されている、VBAゲーム等をみていると、前途の問題が回避されている気がするのですが、具体的な回避コードが浮かびません。
どのように回避すべきなのでしょうか?
わかりづらい質問かと思いますが、ご教示ください。
検証:Excel2007
くわしくおしえてください。
EXCELで、VBAゲームを作るにはどうしたらいいですか。
くわしくおしえてください。
わかりやすいサイトがあったらおしえてください。