ExcelVBA技 ユーザーフォーム E13U001

E13U001 (Excel2000～2013)
ユ－ザ－フォ－ムを画面の中央に表示させる


ユ－ザ－フォ－ムを画面の中央に表示させるにはStartUpPositionプロパティを用います。
以下に使用例を示します。

'標準モジュール
Option Explicit

'StartUpPositionプロパティ　UserFormを表示する位置を指定
'StartUpPositionに指定できる値
'Manual          0  初期設定値を指定しません
'CenterOwner     1  UserFormが属する項目(Excel)の中央の位置(既定値)
'CenterScreen    2  画面全体の中央の位置
'Windows Default 3  画面の左上隅の位置

Sub example1_e13u001() '画面の中央に表示
  With UserForm1
    .StartUpPosition = 2
    .Show
  End With
End Sub

Sub example2_e13u001() '指定した座標に表示
  With UserForm1
    .StartUpPosition = 0
    .Top = 50
    .Left = 100
    .Show
  End With
End Sub