Resize Method Example

This example resizes the Microsoft Excel application window to 6 inches wide by 4 inches high.

If Tasks.Exists("Microsoft Excel") = True Then
    With Tasks("Microsoft Excel")
        .WindowState = wdWindowStateNormal
        .Resize Width:=InchesToPoints(6), Height:=InchesToPoints(4)
    End With
End If

This example resizes the Word application window to 7 inches wide by 6 inches high.

With Application
    .WindowState = wdWindowStateNormal
    .Resize Width:=InchesToPoints(7), Height:=InchesToPoints(6)
End With