VBA Excelのウインドウの上位置と左位置を画面の上端、左端から設定する-Top、Left

Excelのウインドウの位置を画面の上端や左端から設定する記録です。

下図は、Excel2016です。

ExcelWindow位置

 

< スポンサーリンク >

 

構文

上位置

式.Top

画面の上端からMicrosoft Excelのウィンドウの上端までの距離をポイント単位で表す倍精度浮動小数点型(Double)の値を取得または設定。
ウィンドウが最小化されている場合、このプロパティは画面上でのウィンドウのアイコンの位置を表します。

 

左位置

式.Left

画面の左端からMicrosoft Excelのウィンドウの左端までの距離をポイント単位で表す倍精度浮動小数点型(Double)の値を取得または設定。

 

式=Applicationオブジェクト。
ポイント=1/72インチ。約0.35ミリ。

 

Excelのウインドウの上位置を画面の上端から100ポイントの位置に設定します。

Sub test()
    Application.Top = 100
End Sub

ExcelWindow位置

ExcelWindow位置

 

Excelのウインドウの左位置を画面の左端から100ポイントの位置に設定します。

Sub test()
    Application.Left = 100
End Sub

ExcelWindow位置

ExcelWindow位置

 

ウィンドウのサイズが最大化されていたら、標準サイズにし、上から50ポイント、左から50ポイントに設定してみます。

Sub test()
    With Application
        If .WindowState = xlMaximized Then
            .WindowState = xlNormal
            .Top = 50
            .Left = 50
        End If
    End With
End Sub

ExcelWindow位置

ExcelWindow位置

ExcelWindow位置

 

< スポンサーリンク >



サブコンテンツ

このページの先頭へ