Application.ActiveSelection 属性 (Project)

获取表示当前所选内容的 选择 对象。 只读的 所选内容 。

语法

expression。 ActiveSelection

expression：表示 Application 对象的变量。

示例

下面的示例将每个所选任务的名称显示在一个消息框中。 如果未进行有效选择就运行此示例，会产生一个可捕获的错误（错误代码为 424）。

Sub SelectedTasks() 
 
 Dim T As Task 
 
 If Not (ActiveSelection.Tasks Is Nothing) Then 
 For Each T In ActiveSelection.Tasks 
 ' Test for blank task row 
 If Not (T Is Nothing) Then 
 MsgBox T.Name 
 End If 
 Next T 
 End If 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。