Formの表示位置を制御

Top / Coding / VBA / Excel / Formの表示位置を制御

 

ページ構成

最新の10件

---

Powered By

---

edit

---

概要 †

VBAのUserFormを任意の位置に表示するための方法について調べた。

最初に †

UserFormの表示(.Showをコールする)前に †

UserFormの表示位置は、デフォルトでは、自動的に決定される。
任意の位置に配置したい場合には、下記の設定を行う。

UserForm.StartUpPosition = 0

UserFormの表示位置の設定 †

UserForm.Top
UserForm.Left

スクリーン座標を指定することに注意

用語 †

• スクリーン座標：
  • プライマリ画面左上端（角）からの座標
  • （※マルチディスプレイの場合、マイナスの値もとる）

• 以下、本ページ独自の呼び方
• Excelウィンドウ
  • Windowsにおける、一般的なウィンドウ(ここでは、Excelのウィンドウのことを指す)
• エクセル内のウィンドウ
  • エクセル内で表示されるウィンドウ
• ウィンドウ領域
  • エクセル内のウィンドウを表示する領域のこと（Excelウィンドウのサイズからツールバーなどの領域分を引いた残り）
  • 下部にツールバーをおいてる可能性に注意

各種座標・サイズの取得方法 †

Excelウィンドウ †

Application.Top
Application.Left
Application.Width
Application.Height

座標は、スクリーン座標
単位は　"point"

8.7 エクセルウィンドウのサイズ変更

• http://www.happy2-island.com/excelsmile/smile03/capter00807.shtml

エクセル内のウインドウ領域のサイズ †

Application.UsableHeight

エクセル内のウインドウ領域（ツールバー部分を除く領域）の高さを取得

Application.UsableWidth

エクセル内のウインドウ領域の幅を取得

アクティブウィンドウ関係 †

位置・サイズ †

ActiveWindow.Top
ActiveWindow.Left
ActiveWindow.Width
ActiveWindow.Height

位置は、ウィンドウ領域左上からの距離　（単位は "point" ）
※　Excel内でのウィンドウを最大化しているときはマイナスが入ることに注意

サイズも（単位は "point" ）

3.7 ワークブックのサイズ変更

• http://www.happy2-island.com/excelsmile/smile03/capter00307.shtml

スクリーン座標変換 †

ActiveWindow.PointsToScreenPixelsX(0)
ActiveWindow.PointsToScreenPixelsY(0)

Excel内のウィンドウの位置をスクリーン座標で取得

エクセルExcel大事典 VBAマクロ応用講座 スクリーン座標 ポイント ピクセル PointsToScreenPixels

• http://home.att.ne.jp/zeta/gen/excel/c04p06.htm
• 基本的な使い方
• 画面分割時の問題、マルチモニタ使用時の問題は考慮外

Excelで、マウスの動きに合わせて図形を作成するVBAを組もうとして - BIGLOBEなんでも相談室

• http://soudan1.biglobe.ne.jp/qa5821742.html
• 上「PointsToScreenPixels」関数に関するメモ
  • 横方向に画面分割を行うと、PointsToScreenPixelsXの値が変化
  • 縦方向に画面分割を行うと、PointsToScreenPixelsYの値が変化

セル †

座標 †

Range("**").Top
Range("**").Left

A1セルの左上からの距離　（単位はおそらくポイント）

スクリーン座標 †

CellScreenPos関数

• http://hp.vector.co.jp/authors/VA016119/excel/personal.html
• 画面分割時の問題などにも対応
• 使いやすいのでオススメ

参考資料 †

『ユーザーフォームの表示位置』（きんじ） エクセル Excel [エクセルの学校]

• http://www.excel.studio-kazu.jp/kw/20050221114734.html
• あまり参考にならない
• 限定：　ウィンドウは最大化している

エクセルVBAマクロ - ウインドウの操作 - ウインドウの表示位置とサイズ

• http://www.excel-vba.net/excel-window-005.html
• ウィンドウ領域のサイズについて

Excel質問掲示板（VBA） [Re[9]: ユーザーフォーム表示位置について]

• http://hpcgi1.nifty.com/kenzo30/b_cbbs/cbbs.cgi?mode=al2&namber=28718&rev=&no=0&P=R&KLOG=185
• Excelの使用形態（ツールバーの位置など）に依存するコード

ActiveWindow.PointsToScreenPixels

• http://home.att.ne.jp/zeta/gen/excel/c04p06.htm
• ActiveWindow.PointsToScreenPixelsについて