エクセルVBAで画面の大きさを取得する方法！

質問

現在、パソコンで２画面表示で仕事をしています。フォームの表示位置を記憶させて前回、表示されていた場所と同じ位置に表示させるようにしています。通常は問題ないのですが、別のパソコンでエクセルのブックを使う場合に画面の枠外にフォームが表示されます。範囲を超える場合に表示位置を修正させたいのですが、画面の大きさを取得する方法が解りません。どなたか？詳しい方がいらっしゃいましたら教えて頂けないでしょうか？２画面のプライマリー、セカンダリなどの情報と、左右などの情報も取得できるのでしょうか？(もしかして？APIが関係しますか？)
あわせて、強制的に画面の範囲内で一番近い位置に表示させるような命令があるのでしょうか？
よろしくお願いいたします。

回答No.3

e10go

No.1のe10goです。
ディスプレイのウインドウサイズ取得方法がやっと解かったので、答えようと思ったら、もう他の人が答えてる＾＾；。
他にも方法があると言うことで、とりあえず解答します(笑)。

'－－－－－－－標準モジュールのコード－－－－－－－始まり
Option Explicit
Public Declare Function GetDesktopWindow Lib "USER32" () As Long
Public Declare Function GetWindowRect Lib "USER32" (ByVal hWnd As Long, lpRect As RECT) As Long
Public Type RECT
　　Left As Long
　　Top As Long
　　Right As Long
　　Bottom As Long
End Type
Private Sub sub_WindouSize()
　　Dim Ret As Long
　　Dim nRect As RECT
　　Ret = GetDesktopWindow
　　Call GetWindowRect(Ret, nRect)
　　MsgBox "左上のx座標は" & nRect.Left & vbCrLf & _
　　　　"左上のy座標は" & nRect.Top & vbCrLf & _
　　　　"右下のx座標は" & nRect.Right & vbCrLf & _
　　　　"右下のy座標は" & nRect.Bottom
End Sub
'－－－－－－－標準モジュールのコード－－－－－－－終わり

補足

本当に、本当に有難う御座います。
単純にコピペするだけで、画面の表示の大きさが表示されました。
このマクロの中にも一杯まだ知らないことがありますので、自己研鑽に励みたいと思います。
特に、KenKen_SPさんのは、画面の有効範囲なのに対し、e10goさんのは、画面の大きさが表示されます。初心者にとってこのように微妙な違いを克服することは凄く困難なので、たとえ、時間的に前後があったとしても、ご指導願えたことは凄く、凄く助かります。よく、２つのご指導を比較して自分のものにして行きたいと思います。有難う御座いました。今後ともよろしくお願いいたします。