Compartir a través de

Método Application.TaskDeliverableCreate (Project)

  • Artículo

Crea o quita una entrega para la tarea seleccionada. Solo disponible en Project Professional.

Sintaxis

expresión. TaskDeliverableCreate( _Create_ )

Expresión Expresión que devuelve un objeto Application .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
Create Opcional Variant Si la tarea seleccionada tiene asociado de no entrega, True crea una entrega. Si la tarea seleccionada tiene un asociado entrega, False, se eliminan del resultado. El valor predeterminado es False.

Valor devuelto

Boolean

Comentarios

Cuando la tarea seleccionada no tiene una entrega, a continuación se muestran los resultados de ejecutar el método TaskDeliverableCreate:

  • TaskDeliverableCreate(True) crea una entrega para la tarea seleccionada.

  • TaskDeliverableCreate(False) no realiza ninguna acción.

Cuando la tarea seleccionada tiene asociada una entrega, siguientes son los resultados de ejecutar el método TaskDeliverableCreate:

  • TaskDeliverableCreate(True) entrega el error, No se puede crear un vínculo de entrega para la tarea de subproyecto seleccionada, seguido por el error en tiempo de ejecución 1004, Error inesperado en el método.

  • TaskDeliverableCreate(False) quita la entrega.

El método TaskDeliverableCreate es equivalente al comando Crear entregas en el menú de lista desplegable Deliverable en la ficha tarea de la cinta de opciones. Si la tarea seleccionada tiene no entrega, el comando Crear entregas crea uno. Si la tarea seleccionada tiene una entrega, Crear entregas muestra un icono activo y seleccionar el comando elimina la entrega.

Nota:

[!NOTA] No se puede crear una tarea de entrega hasta que se publique el proyecto y crea un área de trabajo de proyecto. Además, no puede crear una entrega en una tarea de resumen.

Ejemplo:

En el ejemplo siguiente, se crea o elimina una entrega para la tarea seleccionada en un proyecto publicado.

Sub ToggleDeliverable() 
    Dim deliverGuid As String 
 
    deliverGuid = ActiveCell.Task.deliverableGuid 
 
    If deliverGuid = "00000000-0000-0000-0000-000000000000" Then 
        TaskDeliverableCreate Create:=True 
    Else 
        TaskDeliverableCreate Create:=False 
    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.