Application.TaskDeliverableCreate method (Project)
Creates or removes a deliverable for the selected task. Available only in Project Professional.
expression An expression that returns an Application object.
|Create||Optional||Variant||If the selected task has no associated deliverable, True creates a deliverable. If the selected task does have an associated deliverable, False removes the deliverable. The default value is False.|
When the selected task does not have a deliverable, following are results of running the TaskDeliverableCreate method:
TaskDeliverableCreate(True)creates a deliverable for the selected task.
When the selected task has an associated deliverable, following are results of running the TaskDeliverableCreate method:
TaskDeliverableCreate(True)gives the error, Cannot create a deliverable link for the selected subproject task., followed by the run-time error 1004, An unexpected error occurred with the method.
TaskDeliverableCreate(False)removes the deliverable.
The TaskDeliverableCreate method is equivalent to the Create Deliverables command on the Deliverable drop-down menu on the Task tab of the Ribbon. If the selected task has no deliverable, the Create Deliverables command creates one. If the selected task has a deliverable, Create Deliverables shows an active icon, and selecting the command deletes the deliverable.
You cannot create a task deliverable until you publish the project and create a project workspace. You also cannot create a deliverable on a summary task.
The following example creates or deletes a deliverable for the selected task in a published project.
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
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.