Compartir a través de

Propiedad Application.ActiveSelection (Project)

  • Artículo

Obtiene un objeto Selection que representa la selección activa. Sólo lectura de la selección.

Sintaxis

expresión. ActiveSelection

expresión Variable que representa un objeto Application.

Ejemplo:

En el siguiente ejemplo, se muestra el nombre de cada tarea seleccionada en un cuadro de mensaje. Si se ejecuta este ejemplo sin una selección válida, se produce un error capturable (código de error 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.