S Wordem takto:
Private Sub ResizeWn()
With Application
.WindowState = wdWindowStateNormal
.Width = 580
.Height = 420
End With
End Sub
S jakoukoliv aplikací, to nevím.
S Wordem takto:
Private Sub ResizeWn()
With Application
.WindowState = wdWindowStateNormal
.Width = 580
.Height = 420
End With
End Sub