Application.TaskDeliverableCreate метод (Project)

Создает или удаляет конечный результат для выбранной задачи. Доступно только в Project профессиональный.

Синтаксис

выражение. TaskDeliverableCreate( _Create_ )

выражение Выражение, возвращающее объект Application .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Создание	Необязательный	Variant	Если у выбранной задачи нет связанного конечного результата, при значении true создается конечный результат. Если у выбранной задачи действительно есть связанный конечный результат, значение ЛОЖЬ удаляет конечный результат. Значение по умолчанию — False.

Возвращаемое значение

Boolean

Примечания

Если у выбранной задачи нет конечного результата, ниже приведены результаты выполнения метода TaskDeliverableCreate :

• TaskDeliverableCreate(True) Создает конечный результат выбранной задачи.

• TaskDeliverableCreate(False) ничего не делает.

Если с выбранной задачей связан конечный результат, ниже приведены результаты выполнения метода TaskDeliverableCreate :

• TaskDeliverableCreate(True) выдает ошибку "Невозможно создать конечную ссылку для выбранной задачи подпроекта", за которой следует ошибка выполнения 1004, "С помощью метода произошла непредвиденная ошибка".

• TaskDeliverableCreate(False) удаляет конечный результат.

Метод TaskDeliverableCreate эквивалентен команде Create Deliverables в раскрывающемся меню Deliverable на вкладке Task ленты. Если у выбранной задачи нет конечных результатов, команда "Создать конечные результаты" создает их. Если у выбранной задачи есть конечный результат, в разделе "Создать конечные результаты " отображается активный значок, а выбор команды удаляет конечный результат.

Примечание.

Вы не сможете создать конечный результат задачи, пока не опубликуете проект и не создадите рабочую область проекта. Вы также не можете создать конечный результат для суммарной задачи.

Пример

В следующем примере создается или удаляется конечный результат выбранной задачи в опубликованном проекте.

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 и обратная связь.