Application.TaskDeliverableCreate 方法 (Project)

为选定的任务创建或删除可交付结果。 仅可在 Project Professional 中使用。

语法

expression。 TaskDeliverableCreate( _Create_ )

表达 返回 Application 对象的表达式。

参数

名称	必需/可选	数据类型	说明
Create	可选	Variant	如果所选的任务具有无关联可交付结果， 真正 创建可交付结果。 如果选定的任务有关联的可交付结果， 假 中移除交付项。 默认值为 False。

返回值

Boolean

说明

如果没有所选的任务的可交付结果，以下是运行 TaskDeliverableCreate 方法的结果:

• TaskDeliverableCreate(True) 为选定的任务创建可交付结果。

• TaskDeliverableCreate(False) 不起任何作用。

当所选的任务有一个关联可交付结果，以下是运行 TaskDeliverableCreate 方法的结果:

• TaskDeliverableCreate(True) 显示错误 "无法为选定的子项目任务创建可交付结果链接。"，随后显示运行时错误 1004 "此方法出现意外错误"。

• TaskDeliverableCreate(False) 删除可交付结果。

TaskDeliverableCreate 方法等效于功能区的 任务选项卡上 可交付结果下拉列表菜单上的 创建可交付结果命令。 如果所选的任务具有不交付项时， 创建可交付结果命令会创建一个。 如果选定的任务可交付结果， 创建可交付结果显示活动图标，并选择相应的命令删除可交付结果。

注意

[!注释] 发布项目并创建一个项目工作区之前，不能创建任务可交付结果。 也不能创建交付项摘要任务。

示例

下面的示例为已发布项目中的选定任务创建或删除可交付结果。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。