Application.TaskDeliverableCreate 方法 (專案)

會建立或移除選定任務的可傳送作業。 只有在 Project Professional 中才可使用。

語法

expression。 TaskDeliverableCreate( _Create_ )

詞 一個回傳 應用程式 物件的表達式。

參數

名稱	必要/選用	資料類型	描述
Create	選用	變數	如果選取的任務沒有關聯可傳送作業， 則為 True 會建立可傳送作業。 如果選取的任務沒有關聯的可傳送作業， 則為 False 會移除可傳送作業。 預設值為 False。

傳回值

布林值

註解

當選取的任務沒有可傳送作業時下, 面是執行 TaskDeliverableCreate 方法時會產生的結果：

• TaskDeliverableCreate(True) 會建立所選取任務的可傳送作業。

• TaskDeliverableCreate(False) 不會執行任何作業。

當選取的任務有關聯可傳送作業、 下列是執行 TaskDeliverableCreate 方法時會產生的結果：

• TaskDeliverableCreate(True) 會顯示錯誤訊息： 無法建立所選子專案任務的可傳送作業連結。 後面加上執行階段錯誤 1004： 此方法發生意外的錯誤。

• TaskDeliverableCreate(False) 會移除可傳送作業。

TaskDeliverableCreate 方法相當於 Deliverable下拉式功能表上的功能區 [ 任務] 索引標籤上的 [ 建立可交付項目] 命令。 如果選取的任務有不可傳送作業， 建立可傳送作業的命令會建立一個。 如果選取的任務有交付項目、 建立可傳送作業會顯示使用中的圖示，並選取此命令會刪除可傳送作業。

注意事項

[!注意事項] 您無法建立工作可傳送作業，直到您發佈專案並建立 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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。