Objeto de conjunto Tasks
Conjunto de objetos Task que representa todas las tareas en ejecución actualmente en el sistema.
Uso del conjunto Tasks
Utilice la propiedad Tasks para devolver el conjunto Tasks. En el siguiente ejemplo, se determina si se está ejecutando Microsoft Excel. En cuyo caso, en este ejemplo se pasa a dicho programa y se maximiza; de lo contrario, el ejemplo lo inicia.
If Tasks.Exists("Microsoft Excel") = True Then
Tasks("Microsoft Excel").Activate
Tasks("Microsoft Excel").WindowState = wdWindowStateMaximize
Else
Shell "C:\Program Files\" & _
"Microsoft Office\Office\Excel.exe"
End IfUtilice la función Shell para ejecutar un programa ejecutable y agregar el programa al conjunto Tasks.
Utilice Tasks(index), donde index corresponde al nombre de la aplicación o al número de índice, para devolver un solo objeto Task. En el siguiente ejemplo, se abre y se cambia el tamaño de la ventana de aplicación de la primera tarea visible del conjunto Tasks.
With Tasks(1)
If .Visible = True Then
.Activate
.Width = 400
.Height = 200
End If
End WithEn el siguiente ejemplo, se restaura la ventana de la aplicación Calculadora si la aplicación está en el conjunto Tasks.
If Tasks.Exists("Calculator") = True Then
Tasks("Calculator").WindowState = wdWindowStateNormal
End If