ブックの表示位置を指定する

ブックの表示位置を、ブックの左上からのポイントで指定します。

ポイントに負の数値を入力すると、ブックはウィンドウの外に表示されます。

ブックの表示位置をポイントで指定する

サンプルコード
[aside type=”normal”]コード内、Wクリックでコピーできます。[/aside]
Sub サンプル3050()
 
    With ActiveWindow
        .WindowState = xlNormal
        .Top = 0
        .Left = 0
    End With
         
End Sub
.WindowState = xlNormal

ブックのサイズを標準に戻します。

.Top = 0

上からのポイントを入力します。今回は「0」

.Left = 0

左からのポイントを入力します。今回は「0」

●マクロの実行結果

ウィンドウの表示位置をセンチメートルで指定する

エクセルウィンドウの表示位置を設定するマクロです。

エクセルウィンドウの上端からの位置と左端からの位置を入力することで、ウィンドウの表示位置を指定することができます。

サンプルコード
[aside type=”normal”]コード内、Wクリックでコピーできます。[/aside]
Sub サンプル3055()

Dim Tc As Double
Dim Lc As Double

    Application.WindowState = xlNormal

    Tc = InputBox("上端からの距離(cm)を入力します。")
    Lc = InputBox("左端からの距離(cm)を入力します。")
    Tc = Application.CentimetersToPoints(Tc)
    Lc = Application.CentimetersToPoints(Lc)
    
    With Application
        .Top = Tc
        .Left = Lc
    End With
 
End Sub
Dim Tc As Double
Dim Lc As Double

TcとLcを変数として宣言します。

Application.WindowState = xlNormal

ウィンドウのサイズが最大あるいは最小の場合は、エラーになるので「標準サイズ」にします。

Tc = InputBox("上端からの距離(cm)を入力します。")

変数Tcに上端からの数値(cm)を入れます。

Lc = InputBox("左端からの距離(cm)を入力します。")

変数Lcに上端からの数値(cm)を入れます。

Tc = Application.CentimetersToPoints(Tc)

CentimetersToPoints(Tc)メソッドで、センチメートルの数値をポイント単位に変換します。1ポイント=0.035cm 位です。
変換した数値をTcに入れます。左辺のTcの値と右辺のTcの値は異なります。

Lc = Application.CentimetersToPoints(Lc)

上と同じ内容です。

Application.Top = Tc

Topプロパティで、上端からの位置を指定します。

Application.Left = Lc

Leftプロパティで、左端からの位置を指定します。

●マクロの実行結果

以上で「ブックの表示位置を指定する」の説明を終わります。