[[20051111170659]]　『マクロを登録したボタンが消えてしまう』（まつたけ）　ページの最後に飛ぶ

『マクロを登録したボタンが消えてしまう』（まつたけ）

 ワークシート上に、マクロを登録したボタンを設置してあります。これはオートシェイプを
 利用したものではなく、コマンドボタンによるものです。
 登録してあるマクロは、本当に簡単なもので、
 ActiveSheet.Printout
 これだけです。
 ところが三日ほど前から、突然このボタンが消えるようになり、症状を要約すると、
 １　エクセルを立ち上げてすぐは、ボタンは表示されている。
 ２　あれこれと消える条件を試行したが原因不明で、消えるタイミングもわからない。
 　　気が付くと消えている。
 ３　ボタンは消えているものの、その部位に機能は存在していて、ポインタを近づけると
 　　反応し、クリックすれば作動する。そして、クリックした瞬間のみボタンが現れる。
 ４　エクセルを再起動すると、１の状態に戻り、以下くり返し。

 この症状が現れる前に、日によって頻度は異なりますが、このシートを利用して商品に添付
 する札紙を印刷しているだけ（必要事項を入力して、印刷ボタンを押す。このくり返し）で、
 特別な（普段と違う動作という意味で）操作はしていません。
 シートに設定してある機能は、
 Sheet１を入力用とし、この内容がSheet２にレイアウトしてある札紙に反映され、Sheet１に
 設置してある件のボタンをクリックすると、必要な枚数を印刷する。
 というものです。
 シート２の印刷範囲は可変で、１枚～12枚まで印刷できるようになっています。
 で、シート１にあるボタンに、マクロでそれらの動作を登録してあります。
 それは以下のような構文です
 Sub 札紙の印刷()
 Application.ScreenUpdating = False
 With Sheets("札紙")
     .PageSetup.PrintArea = "A1:BA" & Sheets("SHEET2").Range("H22").Value * 61
     .PrintOut
 End With
 Application.ScreenUpdating = True
 End Sub
 ただ、完成してから最近まで、異常なく作動していたのですが…
 長くなってしまってすみません。
 どなたかよろしくお願いします。
 ※ 構文中にある"札紙"とは、Sheet２のことです。

 以前使っていた機種ではセルジャンプすると消えたり、
クリックしたボタンの残像が画面に残ってきたりという経験はあります。
画面の描画が間に合っていないだけでは。
（現行機種では処理速度が上がったせいか、起こらなくなった）
私はズームで表示サイズを変えてまた元に戻す、という方法で
しのいでいましたが・・・・。
ただ、この方法だと、.ScreenUpdating = True　の後にやる必要が
あるから、ちらつきますよ。（みやほりん）

 みやほりんさん、お礼が大変遅くなってしまい申し訳ありませんでした。
 今更、こんな書き込みをアゲるのもどうかと思いましたが、せっかくお答えをいただいたのに
 返事も返さないのはどうかと思いまして…

 とりあえず、ボタンは消えても機能しないわけではないので、ちょっと気持ち悪いですが、
 このまま使ってみます。
 ただ、他のシートで使用しているオートシェイプのボタンは、その症状が起こらないので、
 あまり頻発するようなら、コマンドボタンからオートシェイプに変更してみます。
 ありがとうございました。　（まつたけ）

コメント返信：

[ 一覧(最新更新順) ]

[[20051111170659]] 『マクロを登録したボタンが消えてしまう』（まつたけ） ページの最後に飛ぶ

[[20051111170659]]　『マクロを登録したボタンが消えてしまう』（まつたけ）　ページの最後に飛ぶ