Метод Application.TaskDeliverableCreate (Project)

Статья
04/07/2023

Создает или удаляет конечный объект для выбранной задачи. Доступно только в 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 и обратная связь.

Share via