Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2016)
ユーザーフォーム画面位置が変動する
投稿日時: 20/11/09 08:47:58
投稿者: ip8bk

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

投稿日時: 20/11/10 12:05:35
投稿者: ip8bk

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

投稿日時: 21/01/27 12:42:44
投稿者: ip8bk

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

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

投稿日時: 21/01/27 12:43:54
投稿者: ip8bk

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