スキルアップ・問題解決なら、モーグにおまかせ！

現在、left 700 top 230に設定しておりますが、モニターを２画面にすると位置がずれてしまいます。（外付けのモニターに移動されます）
ノートPCにの任意の位置に固定する方法を探しております。
ご存知の方がいらっしゃいましたら、ご教示ください。
よろしくお願いいたします。

モニターが増えてもユーザーフォームの位置を固定する方法はないのでしょうか。。。
調べても見つかりません。

解決いたしましたので、コードを掲載しておきます。
 
 

Sub フォームのモードレス表示()

    Dim x As Long, y As Long
    Dim rng As Range

    Set rng = Range("I10")
    x = ActiveWindow.PointsToScreenPixelsX(0) * 72 / 96 + rng.Left * ActiveWindow.Zoom / 100
    y = ActiveWindow.PointsToScreenPixelsY(0) * 72 / 96 + rng.Top * ActiveWindow.Zoom / 100
    
    Load UserForm1
    
    With UserForm1
        .StartUpPosition = 0
        .Left = x
        .Top = y
    End With
    
    UserForm1.Show vbModeless

End Sub

任意のセルにユーザーフォームを表示させることができます。