如何在VBA中设置PhantomJS的ViewPort大小？

Sub SetPhantomJSViewport()
    Dim strScript As String
    Dim strCommand As String
    
    ' 设置脚本文件路径
    strScript = "C:\path\to\your\script.js"
    
    ' 设置ViewPort大小
    Dim viewPortWidth As Integer
    Dim viewPortHeight As Integer
    viewPortWidth = 1024
    viewPortHeight = 768
    
    ' 构建PhantomJS命令行参数
    strCommand = "phantomjs --webdriver=127.0.0.1:8910 --webdriver-logfile=phantomjs.log --viewport=" & viewPortWidth & "x" & viewPortHeight & " " & Chr(34) & strScript & Chr(34)
    
    ' 运行PhantomJS命令
    Shell strCommand, vbNormalFocus
End Sub