3

There is no documentation of "windows" key :https://learn.microsoft.com/en-us/office/vba/api/excel.application.sendkeys

I wanted a combination of "Windows+UP" key to Maximize Active window. So, I tried "Ctrl+Esc" for windows key + {UP} : Application.SendKeys ("^({ESC}{UP})") but it didn't work.

Is there a way to send windows key using API, dll etc without using external programs like AutoIt.

Pramod Pandit
  • 121
  • 8

1 Answers1

4

Is there a way to send windows key using API, dll etc without using external programs like AutoIt

Yes, you can use FindWindow and ShowWindow API to maximize a window. This is more reliable than using Sendkeys.

Here is an example

Option Explicit

Private Declare PtrSafe Function ShowWindow Lib "user32" _
(ByVal hwnd As LongPtr, ByVal nCmdSHow As Long) As Long

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr

Private Const SW_SHOWMAXIMIZED = 3

Sub MaximizeAWindow()
    Dim hwnd As Long
    Dim Caption As String
    
    Caption = "THIS IS THE CAPTION OF THE WINDOW"
    
    hwnd = FindWindow(vbNullString, Caption)
    
    If hwnd <> 0 Then
        ShowWindow hwnd, SW_SHOWMAXIMIZED
    Else
        MsgBox "Unable to find the window. Is the caption correct?"
    End If
End Sub

You may be also interested in GetForegroundWindow and the GetWindowText API to get the caption of the current active window?

Siddharth Rout
  • 147,039
  • 17
  • 206
  • 250
  • Wow !! Been looking this for days. Couldn't find this way of solution so went to Application.Sendkeys route ! THANKS ! – Pramod Pandit Dec 05 '22 at 12:22
  • 1
    `Couldn't find this way of solution so went to Application.Sendkeys route ! THANKS ! – Pramod Pandit 5 hours ago` Do not go to Application.Sendkeys **route**. Go to API **rout**... Ok Ok.. that was a bad one... :D – Siddharth Rout Dec 05 '22 at 17:37