Excelのウィンドウサイズ変更でエラーになる

相変わらずVBAをいじっているへっぽこSEのアシアです。
今日はExcelのウインドウサイズの話。

Excelのウインドウサイズをあるサイズにしたいとき、通常はこう書けば良いって解説が多い。

ActiveWindow.WindowState = xlNormal
Application.Height = 100
Application.Width = 100

でも、万全を期すなら、こう書いておきたい。

ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Application.Height = 100
Application.Width = 100

なぜなら、Excelウィンドウを最大化して、さらに最小化もした状態でこのプログラムが走ってしまうと、エラーになってしまうから。
最大化＆最小化していると、１度めのActiveWindow.WindowState = xlNormalでは、見た目上はNormalになるけどActiveWindow.WindowStateの値はxlMaximizedになっているようで、その状態で高さを100にしようとしてもエラーになる、ってことらしい。

VBAのプログラムを走らせてる時点で、Excelウインドウを最小化している人はいないだろうけど、念には念を。

他にもニッチなIT関連要素をまとめていますので、よければ一覧記事もご覧ください。

みにましあ

 

https://minimashia.net/it-tips

2019.12.04

IT tips

ITカテゴリーのページじゃ探しにくい方向けにまとめた記事です。ニッチな情報ばかりなので、需要あるのか疑問だわぁ…。Windowsスリープ中のWindowsパソコンでもUSB充電する方法Windows10（1909）のダウンロードフォルダの表示をもとに戻す自宅勤務でネットワーク設定の切り替えをする 自宅勤務でスピーカー設定の切り替えをするWindows11対応端末かどうか調べるWindows10の大型Update（21H1）に失敗する場合の対処法いまさらWindows7を用意して.NET Framework4.6.2をインストールしてみたWindows11を触ってみた感想@2022年4月同じ...