[[20140122130732]]　『TOOLBARの表示、非表示です』（kame）　ページの最後に飛ぶ

『TOOLBARの表示、非表示です』（kame）

 excelを開く時、以下のコードで 
 Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"
 を使用しています。
 印刷プレビューを表示するため
 Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",true)"
 で表示しています。
 それは、閉じることができないためです。
 印刷プレビューを閉じる時点で
 Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"
 に再度設定したいのですが
 いい方法があれば、ご指導お願いします。

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

 ひとつ教えてください。

 リボンを非表示にして、印刷プレビューはどのような操作で表示させるのですか？

（通行人） 2014/01/22(水) 17:09

 通行人様　ありがとうございます
 ユーザーフォームに CommandButton3を設定
 Private Sub CommandButton3_Click()
 Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" 'TOOLBARを表示
 Me.Hide
 Sheets(Array("sheet1", "sheet2", "sheet3")).PrintPreview　’シートを連続表示
 End Sub

 閉じる時は、印刷プレビューをクリック、「印刷プレビューを閉じる」をクリック
 返事遅くなり申し訳ありません。お願いします

（kame） 2014/01/23(木) 09:50

 Private Sub CommandButton3_Click()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" 'TOOLBARを表示
    Me.Hide
    Sheets(Array("sheet1", "sheet2", "sheet3")).PrintPreview　’シートを連続表示
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" 'TOOLBARを非表示
 End Sub

 で　どうでしょうか？

 これ、プレビューを閉じた後は、ユーザーフォームも表示したいのではないですか？

 ユーザーフォームがモーダレス表示なら、単純にコードの最後に　me.show
 で良さそうですが、モーダル表示なら、工夫が必要ですよ！！
 ちょっと使う分には、Me.Showでも作動しますけど、実際には、スタックエラーの原因になりますよ

（ichinose） 2014/01/23(木) 18:45

 ichinose様
 返事遅くなりました。
 申し訳ありません

 お世話になりました
 感謝します。

（kame） 2014/01/27(月) 14:38

コメント返信：

[ 一覧(最新更新順) ]

[[20140122130732]] 『TOOLBARの表示、非表示です』（kame） ページの最後に飛ぶ

[[20140122130732]]　『TOOLBARの表示、非表示です』（kame）　ページの最後に飛ぶ