エクセルのウインドウをど真ん中に表示したい

質問

Sub Macro2()
Dim i As Long
Dim j As Long

i = Application.UsableHeight / 20
j = Application.UsableWidth / 40

With ActiveWindow
.Top = i
.Left = j
End With

With ActiveWindow
.Height = i * 18
.Width = j * 38
End With
End Sub

これで、エクセルのアプリケーション内にウインドウを表示させたくて、
上下左右同じ長さの空白を入れたいのですが
左側の空白が多いです。

何故均等にならないのでしょうか？

回答No.1

puddingeater · ベストアンサー

変数をLongでとったため計算中に端数が切り捨てられたんでしょう。
Doubleにしたら均等になります。

'Dim i As Long
'Dim j As Long
Dim i As Double
Dim j As Double

お礼

ありがとうございます。