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