Apache OpenOffice: forum della comunità

Codice: Seleziona tutto

Sub RiduciFinestraBrowser
    Dim command As String
    
    command = "Add-Type -AssemblyName System.Windows.Forms; " & _
              "$process = Get-Process -Name chrome | Where-Object {$_.MainWindowTitle -ne ''}; " & _
              "$window = $process.MainWindowHandle; " & _
              "$rect = New-Object System.Drawing.Rectangle; " & _
              "$result = [System.Windows.Forms.NativeMethods]::GetWindowRect($window, [ref]$rect); " & _
              "$width = ($rect.Width / 2); " & _
              "[System.Windows.Forms.NativeMethods]::MoveWindow($window, $rect.X, $rect.Y, $width, $rect.Height, $true); "
    
    Shell "powershell.exe -Command """ & command & """", 1
End Sub