ブックの表示位置を、デスクトップの「左上」からのポイントで指定します。
ポイントに負の数値を入力すると、ブックはウィンドウの外に表示されます。
ブックの表示位置をポイントで指定する
Sub サンプル3050()
With ActiveWindow
.WindowState = xlNormal
.Top = 0
.Left = 0
End With
End Subコード解説
WindowState = xlNormal
’ ブックのサイズを標準に戻します。
Top = 0
’ 上からのポイントを入力します。今回は「0」
Left = 0
’ 左からのポイントを入力します。今回は「0」
マクロの実行結果
上からのポイントを「0」、左からのポイントを「0」にしたので、ブックの位置が上端で左端になります。
ウィンドウの表示位置をセンチメートルで指定する
エクセルウィンドウの表示位置を、センチメートルで設定するマクロです。
エクセルウィンドウの、上端からの位置と左端からの位置を入力することで、ウィンドウの表示位置を指定することができます。
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プロパティで、左端からの位置を指定します。
マクロの実行結果
デスクトップの上端から「5cm」、左端から「10cm」の位置に表示されます。
