ウインドウを元のサイズに戻す

Question

普段複数のシート（ファイル）を「ウインドウをものとサイズに戻す」状態で使用することが多いのですが、ファイルを開くとシートウインドウがエクセルのウインドウからはみ出すことが大変多く、たいてい最初の作業は、ウインドウをエクセルの枠内に収めるようにすることです。

これを自動でする方法はないでしょうか。

よろしくお願いします。

Answer 1

VBAで作れました。ありがとうございます。

Sub Window成形()

    With ActiveWindow

        .WindowState = xlNormal

        .Height = Application.UsableHeight * 9 / 10

        .Width = Application.UsableWidth * 9 / 10

        .Top = 10

        .Left = 10

        .Zoom = 80

        .View = xlPageBreakPreview

    End With

End Sub

ctrlキーを設定しておき、枠を飛び出して表示されたファイルが現れたら、実行します。

自己回答では、回答にならないようですが、解決済みの取り扱いになるようにしてもらえラバと思います。

よろしくお願いいたします。

Answer 2

super_kei さん、こんにちは。

返信をしていただきありがとうございます。

VBA を使用することでウインドウを枠内に収めることができたのですね。

同じような質問でこちらのスレッドを見られた方に参考にしていただければと思い、 [ 回答としてマーク ] をさせていただきました。

もちろん追加で質問がある場合はこのまま返信していただくこともできますので、何か情報などがありましたら教えていただけると嬉しいです。

またなにかありましたら、ぜひ Answers をご利用くださいね。

Answer 3

大沢様

ありがとうございます。整列については、普段から使っていますので、目的としては、違っていますが、ご回答ありがとうございます。

Answer 4

super_kei さん、こんにちは。

Answers をご利用いただきありがとうございます。

複数のシートを開くとウインドウからシートがはみ出してしまうため、自動で枠内におさめるような方法がないかという質問ですね。

方法を調べてみたのですが、Excel の通常の設定などでは自動で複数のシートウインドウを枠内に表示させる、という方法は難しいかと思います。

ただ、複数のシートウインドウを簡単に並べ替える方法はあるかと思うので以下の画像を参考にして試してみてはどうでしょう。

ファイル名が書かれている横のスペースを右クリックして [整列] をクリックすると [ウインドウの整列] が開くので、 [左右に並べて表示] で簡単にウインドウの整列が可能かと思います。

※ すでにご存知の方法であればすみません。

もし指摘している点が違っている場合は遠慮なく書いて投稿してみてくださいね。

確認してみた結果の返信もあわせてお待ちしています。