双屏的情况下，VBA中窗体跟随Excel所在显示器显示

最新推荐文章于 2023-03-19 11:56:52 发布

lztb

最新推荐文章于 2023-03-19 11:56:52 发布

阅读量2.9k

点赞数 3

分类专栏：杂七杂八文章标签： vba 窗体双屏双显示器起始位置

本文链接：https://blog.csdn.net/u014373481/article/details/87186254

版权

杂七杂八专栏收录该内容

1 篇文章 0 订阅

订阅专栏

问题：

对于双屏/双显示器场景下，VBA中窗体在弹出的起始位置不一定跟着excel所在显示器显示；比如打开的excel在扩展显示器上，打开的窗体会显示到主显示器/主屏上；

百度说的没一个靠谱的，啥都不说了，直接贴代码：

Private Sub UserForm_Initialize()
     With Me
          .StartUpPosition = 0 
          '后面这段是想要窗体显示所在的单元格的左距离, 重点在于用application的left距离获取打开的excel的left距离
          .Left = Application.Left + ThisWorkbook.Worksheets("物理资源规划数据").Range("E4").Left 
          .Top = 150
     End With
End Sub