在主监视器上显示Excel

我有一个用户窗体打开Excel文件时自动打开。 它有一些显示问题，当向下滚动窗体时，选项button消失。 这个问题只发生在我有2个监视器（主要和次要）。 我注意到了这两种情况：

1. 如果我打开任何Excel文件，并在主屏幕上使其全屏，然后closures它，然后打开用户表单，它工作正常！
2. 如果我打开任何Excel文件，并将其移动到辅助屏幕，然后closures它，并打开用户窗体，出现问题！

所以，我的问题是：

有什么办法强制Excel打开全屏在主屏幕？

Answer 1

将其添加到Workbook_Open()事件过程，您将能够在主监视器上以全屏模式打开工作簿。

 Private Sub Workbook_Open() Application.Top = 0 Application.Left = 0 Application.DisplayFullScreen = True End Sub 

Answer 2

看来，VBA是由最后打开的Excel文件的大小，我的意思是，如果它是全屏或正常显示和在哪个屏幕的影响。 另一个需要考虑的问题是：如果在辅助屏幕上显示一个Excel文件，并且该屏幕大于主屏幕，则Application.Top，Application.Left将无法成功地将应用程序获取到主屏幕，首先需要正常显示。 我最终的代码来解决我自己的问题是：

 Application.Visible = True Application.WindowsState=xlNormal Application.Width =100 Application.Height =100 Application.Top = 0 Application.Left = 0 Application.WindowsState =xlMaximized With UserForm2 .Height=Application.Height .Width=Application.Width End With UserForm2.ScrollBars = fmScrollBarsVertical UserForm2.KeepScrollBarsVisible = fmScrollBarsVertical UserForm2.Zoom = 120 UserForm2.ScrollHeight = (120 * nq) + 120 UserForm2.Show vbModeless Application.Visible = False