Excel VBA質問箱 IV

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

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


65205 / 76733 ←次へ | 前へ→

【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

確認して下さい。
1 hits

【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 お礼

65205 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free