投稿日 | : 2006/09/12(Tue) 18:17 |
投稿者 | : ダンボ |
Eメール | : |
URL | : |
タイトル | : Re^2: ワークシートだけ表示させる |
花ちゃん さん、どうも有り難うございます。
> (1)システムメニュー(FileからHelpまでの奴)が消せない。
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.CommandBars("Standard").Visible = False
で、システムメニュー消えました。標準ツールバー消えました。
あうぅ編集ツールバーが残っています。
ということは、CommandBarsのコレクションを全部調べて、Enabled = FalseなりVisible = False
なりしてやれば良いですね。現状を覚えておいて復帰もしなければならないし。
Application.DisplayFormulaBar = False
のように一発で切り替えができると楽だったですが。
しょうがないので汎用サブルーチン作っておきます。60〜100ステップ位になるかな
> >(2)DisplayFullScreen=True で「全画面表示を閉じます」ダイアログボックスが出てしまう。
> VBから試したのではそのダイアログはでないですね。(Excel 2002)
VBAでApplication.DisplayFullScreen発行時に出たんですがね。
そのダイアログボックス内のOKボタンを押していた時期は必ず再現していました。
その後、ダイアログボックス自体の×ボタンを押したら2度と出なくなりました。
他人に提供したときに再現すると思うとちょっと解明しておきたいところ。