With

---

Withステートメント

構文

With object

[statements]

End With

objectには、オブジェクトまたはユーザー定義型を指定します。

statementsには、実行するステートメントを指定します。

解説

objectで指定したオブジェクトやユーザー定義型変数に対して一連のステートメントを実行します。

サンプル

次の例は、UserForm1のプロパティを変更します。

Sub Sample()
    With UserForm1
        .Height = .Height - 100
        .Width = .Width - 100
        .Caption = Now
    End With
End Sub