Propriedade Application.ActiveSelection (Project)

Obtém um objeto Selection que representa a seleção ativa. Read-only Selection.

Sintaxe

expression. ActiveSelection

expressão Uma variável que representa um Aplicativo objeto.

Exemplo

O exemplo a seguir exibe o nome de cada tarefa selecionada em uma caixa de mensagem. A execução deste exemplo sem uma seleção válida resulta em um erro interceptável (código de erro 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.