This example displays scroll bars, screen tips, and the status bar for Microsoft Word.
With Application
.DisplayScrollBars = True
.DisplayScreenTips = True
.DisplayStatusBar = True
End With
This example displays the Microsoft Excel startup path if Microsoft Excel is running.
If Tasks.Exists(Name:="Microsoft Excel") = True Then
Set myobject = GetObject("", "Excel.Application")
MsgBox myobject.Application.StartupPath
Set myobject = Nothing
End If