フォームの表示位置について

Question

【フォームの表示位置について】

ブックが開かれている（最小化されていてもとにかく所属している）モニターの中央に表示させたいのですが、そのような方法はございますでしょうか？

ブックが左の画面に開かれているのに、フォームが右の画面に表示されてしまい、一回一回左側に持ってきて作業しなければいけなくて困っています。

全てのフォームは.Show(vbModeless)で開いています。そこでの違いがあると困るので一応明記しておきます。

ご教示お願いいたします。

Answer 1

こういうことではなく、文脈から察するにマルチモニターで向かって左側のモニタに出したい、という話ですかね？

画面のプロパティでモニタをどういうレイアウトにしているか、によって位置変わるので、前述のページのように決め打ちは上手く行かないかも。

Sub ボタン1_Click()
    With ActiveWorkbook.Windows.Item(1)
        MsgBox "POSITION TOP:" & .Top & vbCrLf & _
            "POSITION LEFT:" & .Left & vbCrLf & _
            "POSITION height:" & .Height & vbCrLf & _
            "POSITION width:" & .Width
    End With
End Sub

こんな感じのコードでブックが表示されている位置を確認して、前述のページを参考にこの位置からの相対位置に出すなり、決め打ちする値を決めるなりすればよいかと。
これも複数窓開いてるときっとうまくいかないですが。