Application.ActiveSelection 屬性 (專案)

取得表示使用中文件的 選取項目 物件。 唯讀 選取項目 。

語法

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 支援與意見反應。