ウィンドウの位置を入れ替える（ActivatePrevious メソッド、ActivateNext メソッド）
2016/01/12
ウィンドウの位置を入れ替える
ActivatePrevious メソッド、ActivateNext メソッドを使用すると現在のウィンドウ位置を変更することが可能です。
ActivatePrevious メソッド
まず、指定したウィンドウをアクテイブにし、次にその時一番後ろにウィンドウをアクティブにします。
object.ActivatePrevious
引数・戻り値
- object ・・・ 対象となる Window オブジェクトを指定します。
ActivateNext メソッド
まず、指定したウィンドウをアクテイブにし、次にそのウィンドウを一番後ろに移動します。
object.ActivateNext
引数・戻り値
- object ・・・ 対象となる Window オブジェクトを指定します。
ActivatePrevious メソッド・ActivateNext メソッド 使用例
サンプルVBAソース 1
|
1 2 3 4 5 6 7 8 9 |
Sub Sample_ActivatePrevious() 'まず「2番目のウィンドウ」をアクテイブにし、 '次に「一番後ろのウィンドウ」をアクティブにする Windows(2).ActivatePrevious End Sub |
サンプルVBAソース 1 実行結果
実行前 （「Book1」「Book2」「Book3」）
実行後（「Book3」「Book2」「Book1」）
サンプルVBAソース 2
|
1 2 3 4 5 6 7 8 |
Sub Sample_ActivateNext() 'アクティブウィンドウを一番後ろにする ActiveWindow.ActivateNext End Sub |
サンプルVBAソース 2 実行結果
実行前 （「Book2」「Book1」「Book3」）
実行後（「Book1」「Book3」「Book2」）
関連記事
-
-
簡易印刷（PageSetup.Draft プロパティ）
PageSetup.Draft プロパティ PageSetup.Draft プロ …
-
-
アクティブプリンタを変更（ActivePrinter プロパティ）
ActivePrinter プロパティ ActivePrinter プロパティを …
-
-
印刷：余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin
余白を設定する 余白を設定する単位は、pt（ポイント：約 0.03528 cm） …
-
-
ユーザー設定のビュー（CustomView オブジェクト）
ユーザー設定のビュー CustomView オブジェクトは、登録されている各ビュ …
-
-
新規ブック作成（Add メソッド）
新規にワークブックを作成する Workbooks コレクションの Add メソッ …
-
-
ワークシートをアクティブにする・選択する（Activate, Select）
Activate メソッド・Select メソッド Activate メソッドは …
-
-
ブック作成時のシート数の取得・設定（SheetsInNewWorkbook プロパティ）
SheetsInNewWorkbook プロパティ Excel で新規ブックに自 …
-
-
画面の上端・左端を設定（ScrollRow プロパティ、ScrollColumn プロパティ）
画面の上端・左端を設定 ScrollRow プロパティで、指定した行を画面上端に …
-
-
印刷時、シート内のエラーをどう扱うかを設定（PrintErrors プロパティ）
PageSetup.PrintErrors プロパティ PageSetup.Pr …
-
-
ブックのプロパティ（BuiltinDocumentProperties プロパティ）
BuiltinDocumentProperties プロパティ ブックのプロパテ …