Ｅｘｃｅｌ２０１３、ウィンドウの大きさをＶＢＡで変更する方法

Ｅｘｃｅｌ２０１３は、手頃な価格で高機能な表計算ソフトです。
またＶＢＡによるプログラムを行うと、特に繰り返し作業では多大な威力を発揮します。

しかし、手動ではウィンドウの大きさをピクセル単位で変更する事が難しいです。
そこで、ウィンドウの大きさをＶＢＡで変更する方法を検討しました。
パソコンは、下記のソフトを使用していました。

ＯＳ　　　　　　　：　Ｗｉｎｄｏｗｓ８．１（３２ｂｉｔ）
表計算ソフト　　　：　Ｅｘｃｅｌ２０１３（３２ｂｉｔ）

以下、Ｅｘｃｅｌ２０１３、ウィンドウの大きさをＶＢＡで変更する方法を記載して行きます。

（項目１）
　・ＶＢＡを用いると、ウィンドウの幅と高さを指定できます。
　・幅１０２４、高さ７６８にしたい場合は、以下の通りです。
　　Application.Width = 1024
　　Application.Height = 768

（項目２）
　・しかし、上記の記述を起こった場合、幅と高さが大きくなり過ぎました。
　・幅　：　１０２４　→　１３６５　（約１．３３倍）
　・高さ：　　７６８　→　１０２４　（約１．３３倍）

（項目３）
　・インターネットで色々と調べて見ると、下記の情報が得られました。
　　Momma's Wiki: Windows/Excelマクロ/セル幅のピクセル指定
　・この情報によると、「Excelのマクロ内部では72dpi、Excel自体(というかWindowsか?)は96dpi。」との事。
　・即ち、９６／７２＝約１．３３で割る必要が有ります。

（項目４）
　・上記の情報の基に、ＶＢＡを記述して見ました。
　・セルＣ６、Ｄ６には、幅、高さを入力して置きます。

　　Dim c As Double

　　c = 96 / 72

　　Application.WindowState = xlNormal
　　Application.Width = Range("C6") / c
　　Application.Height = Range("D6") / c

　　End Sub

　・上記の記述を行った所、幅と高さが正常に変更できました。

（項目５）
　・以上で、Ｅｘｃｅｌ２０１３、ウィンドウの大きさをＶＢＡで変更する方法は終了です。
　・これで、ウィンドウの大きさをピクセル単位で変更する事が可能になりました。