Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11434 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【16085】表示フォームの位置指定について いし 04/7/16(金) 10:45 質問[未読]
【16089】Re:表示フォームの位置指定について IROC 04/7/16(金) 11:18 回答[未読]
【16090】Re:表示フォームの位置指定について Jaka 04/7/16(金) 11:22 回答[未読]
【16092】Re:表示フォームの位置指定について いし 04/7/16(金) 11:42 発言[未読]
【16094】Re:表示フォームの位置指定について IROC 04/7/16(金) 13:03 回答[未読]
【16095】Re:表示フォームの位置指定について いし 04/7/16(金) 13:30 発言[未読]
【16098】Re:表示フォームの位置指定について IROC 04/7/16(金) 14:06 回答[未読]
【16101】Re:表示フォームの位置指定について いし 04/7/16(金) 15:45 発言[未読]
【16103】Re:表示フォームの位置指定について ichinose 04/7/16(金) 16:02 発言[未読]
【16105】Re:表示フォームの位置指定について いし 04/7/16(金) 16:27 お礼[未読]
【16085】表示フォームの位置指定について
質問  いし  - 04/7/16(金) 10:45 -
引用なし
パスワード
   フォームの表示を画面の右横に表示させたいです。

現在起動させるとフォームが画面の中心にあります。
プロパティを変更して、左上に表示することはできるのですが、
もっと細かく表示場所を指定できないのでしょうか？
【16089】Re:表示フォームの位置指定について
回答  IROC  - 04/7/16(金) 11:18 -
引用なし
パスワード
   top.leftプロパティは試しましたか？
【16090】Re:表示フォームの位置指定について
回答  Jaka  - 04/7/16(金) 11:22 -
引用なし
パスワード
   こんにちは。

Private Sub UserForm_Initialize()
　 Me.StartUpPosition = 0
　 Me.Top = 5
　 Me.Left = 5
End Sub
【16092】Re:表示フォームの位置指定について
発言  いし  - 04/7/16(金) 11:42 -
引用なし
パスワード
   top、left
プロパティでも、ソース入力してもできるのですね。
ありがとうございます。

後もうひとつ・・
※中心位置の数値ってわかりますか？
【16094】Re:表示フォームの位置指定について
回答  IROC  - 04/7/16(金) 13:03 -
引用なし
パスワード
   >後もうひとつ・・
>※中心位置の数値ってわかりますか？

Excelの？

ディスプレイの？
【16095】Re:表示フォームの位置指定について
発言  いし  - 04/7/16(金) 13:30 -
引用なし
パスワード
   >ディスプレイの？
はい、フォームのです。
Me.Top = ？？
Me.Left = ？？
どれくらいで真ん中なのかなぁ・・・とおもいまして・・。
【16098】Re:表示フォームの位置指定について
回答  IROC  - 04/7/16(金) 14:06 -
引用なし
パスワード
   >はい、フォームのです。

Excelアプリケーションのウィンドウの中心ですか？

それともディスプレイ（デスクトップ）の画面の中心ですか？
【16101】Re:表示フォームの位置指定について
発言  いし  - 04/7/16(金) 15:45 -
引用なし
パスワード
   ▼IROC さん：
>Excelアプリケーションのウィンドウの中心ですか？
>それともディスプレイ（デスクトップ）の画面の中心ですか？

ディスプレイのです（特に考えていなかったのですが）
・・。現在はいろいろ数値を変えてみてます。
【16103】Re:表示フォームの位置指定について
発言  ichinose  - 04/7/16(金) 16:02 -
引用なし
パスワード
   いし さん、IROC さん、こんにちは。

>>Excelアプリケーションのウィンドウの中心ですか？
>>それともディスプレイ（デスクトップ）の画面の中心ですか？
>
>ディスプレイのです（特に考えていなかったのですが）
>・・。現在はいろいろ数値を変えてみてます。
本格的にやるなら、API（SystemParametersInfoか、GetDeviceCapsか）
でディスプレイのサイズ又は、デスクトップのサイズを取得するのでしょうが・・・・、
こんな方法で取りあえず中心の位置を取得する方法は
いかがですか？
'===========================================================
sub main
　 With UserForm1
　　　.StartUpPosition = 2
　　　.Show vbModeless
　　　MsgBox "中心x,y(" & .Left + .width / 2 & "," & .Top + .height / 2 & ")"
　　　.Top = .Top + .height / 2
　　　.Left = .Left + .width / 2
　　　End With
end sub

確認して下さい。
【16105】Re:表示フォームの位置指定について
お礼  いし  - 04/7/16(金) 16:27 -
引用なし
パスワード
   ありがとうございます♪
だんだん好みの画面が出来上がってきました。
（仕事で必要なのですけど・・・）
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11434 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free