使用 ActivexObject 对象 ‘wscript.shell’ 的 run 方法打开chrome，并设置宽高和定位

在使用ActiveXObject对象`wscript.shell`时，可以利用其`run`方法来运行外部应用程序，比如Chrome浏览器。首先，确保你的系统上已经安装了Chrome，并且可以被程序识别。以下是一个基本的步骤说明：

Set objShell = CreateObject("WScript.Shell")
' 使用相对路径或绝对路径指定Chrome的可执行文件
strChromePath = "C:\Program Files\Google\Chrome\Application\chrome.exe"
' 参数列表，第一个参数是命令行选项，"-incognito"用于无痕模式，" --start-maximized"设置窗口最大化
strArgs = " -incognito --start-maximized"

' 打开Chrome并设置窗口属性
objShell.Run strChromePath & " " & strArgs, 1, False ' 1表示后台启动，False表示立即显示

' 设置窗口宽度、高度和位置（这里由于技术限制，实际操作需要通过其他方法，如使用WinAPI）
' 因为JavaScript API（如window.resizeTo和window.moveTo）在VBA中的ActiveXObject中不可用，
' 你可以尝试在打开Chrome之前创建一个新的窗口并调整大小和位置，然后关闭这个临时窗口。
' 例如：
' Set chromeWindow = CreateObject("WScript.Shell").CreateProcess(strChromePath, "", "", True, 0, True, "", "", "")
' chromeWindow.hWndActivate = True
' chromeWindow.ResizeTo width, height
' chromeWindow.MoveTo xPosition, yPosition
' chromeWindow.Close

' 当然，这一步可能会因为权限原因无法直接控制另一个进程的窗口，实际效果会受限。

注意：这个例子仅适用于VBScript环境，如果是在VBA（Excel等）中，处理方式略有差异。同时，由于安全性和性能考虑，Windows API级别的操作通常更推荐。