Excelで全画面表示させて1ページを画面いっぱいにする

条件

印刷範囲が指定されていること

1ページだけになっていても印刷範囲が指定されていない、空白の場合があります。そういう時は終了します。

1ページだけになっていること。

複数のページがあるとおそらくうまくいかないので、A4 の縦か横、1ページだけになっているとします。

改ページプレビューにします

VBAを動かすと強制的に改ページプレビューになります。そうしないと1ページが把握しづらいからです。

制約が多いが意外と役立つ

1シートにA41枚というはいがいにおおいと思います。これで大体全画面表示です。
本当はディスプレイを回転させたいけど、

Excel VBAのコード


Sub xlPringAreaFullScreen()
'For Excel VBA
'現在表示しているシートに、印刷範囲が設定され、かつそれが1ページの場合、改ページプレビューから全画面表示にして、その範囲だけをZoomで表示するマクロ
Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Worksheet: Set ws = ActiveSheet
Dim prRange As Range
ActiveWindow.View = xlPageBreakPreview 'Excel.XlWindowView 標準、改ページ、レイアウト Const xlNormalView = 1,xlPageBreakPreview = 2, xlPageLayoutView = 3
If ws.PageSetup.PrintArea = "" Then Exit Sub '改ページプレビューで1ページだけのように見えても印刷範囲が設定されていない場合があるため、空白ならキャンセルする
If ws.PageSetup.Pages.Count > 2 Then Exit Sub '1ページ以上ある場合は小さくなるのでとりあえずキャンセルします。そういう仕様です。
Set prRange = ws.Range(ws.PageSetup.PrintArea)
prRange.Select
Application.DisplayFullScreen = True 'フルスクリーンにしてから
ActiveWindow.Zoom = True 'フルスクリーンでは調整できない表示倍率を動かす。
prRange.Cells(1, 1).Activate '印刷範囲の1番右上にする(同時に選択状態を解除する)
End Sub