Application.TaskDeliverableCreate method (Project) (Método Application.TaskDeliverableCreate [Projeto])

Cria ou remove um resultado final para a tarefa selecionada. Disponível somente no Project Professional.

Sintaxe

expression. TaskDeliverableCreate( _Create_ )

expressão Uma expressão que devolve um objeto Aplicação .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Criar	Opcional	Variant	Se a tarefa selecionada tem não associado do produto, True cria um resultado final. Se a tarefa selecionada tem um resultado final, False remove associado do produto. O valor padrão é False.

Valor de retorno

Boolean

Comentários

Quando a tarefa selecionada não tem um resultado final, a seguir estão os resultados da execução do método TaskDeliverableCreate:

• TaskDeliverableCreate(True) cria um resultado final para a tarefa selecionada.

• TaskDeliverableCreate(False) não faz nada.

Quando a tarefa selecionada tem um associado do resultado final, estes são os resultados da execução do método TaskDeliverableCreate:

• TaskDeliverableCreate(True) emite o erro Não é possível criar um link do produto para a tarefa do subprojeto selecionado, seguido pelo erro 1004 de tempo de execução Erro inesperado com o método.

• TaskDeliverableCreate(False) remove o resultado final.

O método TaskDeliverableCreate é equivalente ao comando Criar entregas no menu suspenso de produto na guia tarefa da faixa de opções. Se a tarefa selecionada tem produto não, o comando Criar entregas cria um. Se a tarefa selecionada tem um resultado final, Criar entregas mostra um ícone ativo e selecionar o comando exclui o resultado final.

Observação

[!OBSERVAçãO] É possível criar uma tarefa do produto até que você publica o projeto e cria um espaço de trabalho do projeto. Você também não é possível criar um resultado final em uma tarefa de resumo.

Exemplo

O exemplo a seguir cria ou exclui um resultado final da tarefa selecionada em um projeto publicado.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.