マクロで複数のシートを改ページプレビューしたい

質問

表題のマクロは設定できるのでしょうか？

又、マクロで改ページプレビューしたり解除したりしたいです。
どなたか式をご存知の方がおられましたら伝授下さいませ。。。

ちなみにマクロを作成したエクセルでシートを何個か削除すると
そのマクロは壊れる（表現が正しいか不明です）のでしょうか？

初心者で申し訳ありませんが、宜しくお願い致します。

回答No.2

hananoppo · ベストアンサー

次のようなマクロでどうでしょう。

Sub PageBreakPreview()
Dim Sh As Worksheet
Dim Ws As Worksheet

Set Sh = ActiveSheet
For Each Ws In Worksheets
Ws.Activate
ActiveWindow.View = xlPageBreakPreview
Next
Sh.Activate
End Sub

Sub NormalView()
Dim Sh As Worksheet
Dim Ws As Worksheet

Set Sh = ActiveSheet
For Each Ws In Worksheets
Ws.Activate
ActiveWindow.View = xlNormalView
Next
Sh.Activate
End Sub

> ちなみにマクロを作成したエクセルでシートを何個か削除すると
> そのマクロは壊れる（表現が正しいか不明です）のでしょうか？
このマクロの場合、その心配は不用です。

お礼

回答ありがとうございました。
式をコピーさせて頂き、一発で出来ました。
非常に助かりました。

回答No.1

MackyNo1

＞又、マクロで改ページプレビューしたり解除したりしたいです。
＞どなたか式をご存知の方がおられましたら伝授下さいませ。。。

マクロの記録の機能を使って改ページプレビュー表示する操作を記録してみてください。

ActiveWindow.View = xlPageBreakPreview

＞ちなみにマクロを作成したエクセルでシートを何個か削除すると、そのマクロは壊れる（表現が正しいか不明です）のでしょうか？

作成したマクロコードの中に削除したシートを参照するようなコードが書かれていたら、その部分でエラーとなる可能性がありますが、シートに関係するコードがないなら、シートを削除しても問題なく実行することができます。

お礼

回答ありがとうございました。