Application.TaskDeliverableCreate method (Project)

Artikel
02/08/2022

Creates or removes a deliverable for the selected task. Available only in Project Professional.

Syntax

expression. TaskDeliverableCreate( _Create_ )

expression An expression that returns an Application object.

Parameters

Name	Required/Optional	Data type	Description
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.

Return value

Boolean

Remarks

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.
TaskDeliverableCreate(False) does nothing.

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.

Note

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.

Example

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.

Bagikan melalui