Akna suuruse muutmine

Word:

Application.WindowState=wdWindowStateNormal
Application.Options.DefaultFilePath(wdPicturesPath)="c:\"

Excel:

Application.WindowState=xlNormal
Application.ActiveWindow.ActivateNext
Application.OperatingSystem



Application.Height=100
Application.Windows(2).Activate
?Application.Windows.Count
Application.ActiveWindow.Caption="Kala"
Application.ActiveWindow.DisplayVerticalScrollBar=false
Application.DisplayStatusBar=true
Application.StatusBar="Tervitus"
Application.ScreenUpdating=True
?Application.Path
Application.Quit(false)  'väljub salvestamata