Поделиться через

Свойство Application.ActiveSelection (Project)

  • Статья

Возвращает объект Selection , представляющий активное выделение. Выделение только для чтения.

Синтаксис

выражение. ActiveSelection

выражение: переменная, представляющая объект 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 и обратная связь.