Solución:
VBScript y Windows Script Host no proporcionan funciones intrínsecas para maximizar / minimizar / restaurar una ventana. Sin herramientas de terceros, su única opción es utilizar SendKeys para simular el teclado los atajos de los comandos correspondientes en el menú del sistema de una ventana.
-
Para maximizar la ventana activa, puede simular la Alt+Barra espaciadora, X atajo:
Set oShell = CreateObject("WScript.Shell") oShell.SendKeys "% x" -
Para minimizar la ventana activa, use Alt+Barra espaciadora, norte:
Set oShell = CreateObject("WScript.Shell") oShell.SendKeys "% n" -
Para restaurar la ventana activa, use Alt+Barra espaciadora, r:
Set oShell = CreateObject("WScript.Shell") oShell.SendKeys "% r"
(Tenga en cuenta que este código no funcionará en versiones de Windows que no estén en inglés, donde los nombres de los comandos Maximizar / Minimizar / Restaurar están localizados y, por lo tanto, tienen otros accesos directos).
SendKeys no funcionaba en mi computadora. Nativo de español con teclado en español e inglés. Hice esto y trabajé en mi código como instrucción y trabajé para maximizar mi ventana de Excel. Puse el .Sleep para comprobarlo visualmente.
objExcel.SendKeys"% x"
objExcel.Visible = True
objExcel.SendKeys"% x"
WScript.Sleep 2000