Метод Application.TaskDeliverableCreate (Project)

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

Синтаксис

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

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

Параметры

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

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

Boolean

Примечания

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

• TaskDeliverableCreate(True) создает конечный объект для выбранной задачи.

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

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

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

• TaskDeliverableCreate(False) удаляет конечный объект.

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

Примечание.

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

Пример

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

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