Assistant 属性



返回代表 Microsoft Office 助手的 Assistant 对象。只读。


expression  必选。返回 Application 对象的表达式。


下列示例返回对 Microsoft Office 助手的引用并修改其属性。该子例程在屏幕上显示助手,打开动画声音,并将 MoveWhenInTheWay 属性设为 True。如果助手妨碍了用户,则它将移动到屏幕上的另一位置。

Sub fpAsst()
'Creates a reference to the Office Assistant and modifies its properties

    Dim objApp As FrontPage.Application
    Dim objAsst As Assistant
    Set objApp = FrontPage.Application
    'Return a reference to the Office Assistant
    Set objAsst = objApp.Assistant
    With objAsst
       'Make assistant visible
       .Visible = True
       'Allow sounds during animations
       .Sounds = True
       'Move the Assistant out of the way when needed
       .MoveWhenInTheWay = True
    End With

End Sub