如何使用 Excel VBA 在特定显示器上最大化 window？

Question

我想使用 Excel VBA 在特定屏幕上最大化 window。

我使用了这个代码：

With ActiveWindow
    .WindowState = xlNormal
    .Left = 1200
    .WindowState = xlMaximized       
End With

如果监视器 2 位于监视器 1 的右侧，则代码有效。如果相反，该方法将失败（那么我必须使用 -1200）。

这个宏应该适用于不同的 PC，我不知道系统是如何配置的。是否有可能检测连接了多少台显示器并直接寻址我想要最大化 window?

的相应显示器

Answer 1

如评论中所述，您需要使用 Windows APIs；这是另一个（使用起来相对简单）API，它帮助我确定用户表单是否移出了屏幕的可见区域：GetSystemMetrics Lib "User32"

根据Office版本声明功能：

#If Win64 Then  'Win64=true, Win32=true, Win16= false
    Private Declare PtrSafe Function apiGetSystemMetrics Lib "User32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
    Private Declare PtrSafe Function apiGetSystemMetrics32 Lib "User32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
#ElseIf Win32 Then  'Win32=true, Win16=false
    Private Declare Function apiGetSystemMetrics Lib "User32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
#Else   ' Win16=true
#End If

泛型函数：

Public Function dllGetMonitors() As Long
    Const SM_CMONITORS = 80
    dllGetMonitors = apiGetSystemMetrics(SM_CMONITORS)
End Function


'The width of the virtual screen, in pixels.
'The virtual screen is the bounding rectangle of all display monitors

Public Function dllGetHorizontalResolution() As Long
    Const SM_CXVIRTUALSCREEN = 78
    dllGetHorizontalResolution = apiGetSystemMetrics(SM_CXVIRTUALSCREEN)
End Function

Public Function dllGetVerticalResolution() As Long
    Const SM_CYVIRTUALSCREEN = 79
    dllGetVerticalResolution = apiGetSystemMetrics(SM_CYVIRTUALSCREEN)
End Function

.

更多信息：http://msdn.microsoft.com/en-us/library/ms724385(VS.85).aspx

我用来判断表单是否在屏幕外的函数：

Private Sub checkOffScreen(ByRef frm)
    Dim maxTop As Long, minLeft As Long, maxLeft As Long
    Dim defaultOffset As Byte, monitors As Byte

    monitors = celTotalMonitors.Value
    defaultOffset = 11
    minLeft = 0 - (frm.Width - defaultOffset)
    If monitors = 1 And celScreenResolutionX.Value > 1280 Then
        maxTop = 1180 - defaultOffset
        maxLeft = 1900 - defaultOffset
    Else
        maxTop = 750 - defaultOffset
        maxLeft = (960 * monitors) - defaultOffset
    End If
    With frm
        'If (celFormTop.Value < 0 Or celFormTop.Value > maxTop) Or _
            (celFormLeft.Value < minLeft Or celFormLeft.Value > maxLeft) Then
        'If .top < 0 Or .top > maxTop Or .Left < minLeft Or .Left > maxLeft Then
        If celFormTop.Value > maxTop Or celFormLeft.Value > maxLeft Then
            celFormTop = defaultOffset
            celFormLeft = defaultOffset
        End If
        If .Top > maxTop Or .left > maxLeft Then
            .Top = defaultOffset
            .left = defaultOffset
        End If
    End With
End Sub

Answer 2

我不知道 Application.Right 是否是一个选项，但我用 -1200 替换了 1200，这对我有用。

Application.WindowState = xlNormal
Application.Left = -1200
Application.WindowState = xlMaximized

如何使用 Excel VBA 在特定显示器上最大化 window？

How to maximize a window on a specific monitor with Excel VBA?

excel

vba

multiscreen