Compartilhar via


Propriedade Project.SpreadPercentCompleteToStatusDate (Project)

True se edições à porcentagem do total da tarefa concluída estão espalhadas a data de status ou à data atual, se a data de status for "NA". False se edições são estendidas até a data de término calculada da tarefa. Boolean de leitura/gravação.

Sintaxe

expression. SpreadPercentCompleteToStatusDate

Expressão Uma variável que representa um objeto Project .

Exemplo

O exemplo a seguir verifica a data de status do projeto inteiro. Se seu valor padrão nunca tiver sido alterado, mas as edições feitas no percentual total concluído da tarefa se estenderem até a data de status, a macro solicitará uma data de status a ser utilizada. Se as edições para a porcentagem total de tarefas concluídas forem espalhadas para a data de parada calculada da tarefa, a macro perguntará ao usuário se as edições devem ser espalhadas para uma data de status e, se for o caso, solicitará uma data de status a ser usada.

Sub SpreadPercentComplete() 
 Dim NewStatus As Date, AskToSpread As Long 
 
 With ActiveProject 
 If .StatusDate = "NA" And .SpreadPercentCompleteToStatusDate Then 
 NewStatus = InputBox("Enter a status date for the project: ") 
 .StatusDate = NewStatus 
 MsgBox "The status date was set to " & .StatusDate & "." 
 ElseIf .SpreadPercentCompleteToStatusDate = False Then 
 AskToSpread = MsgBox("Should changes to total task percent complete" & _ 
 " be spread to a status date?", vbYesNo) 
 If AskToSpread = vbYes Then 
 NewStatus = InputBox("Enter a status date for the project: ") 
 .StatusDate = NewStatus 
 .SpreadPercentCompleteToStatusDate = True 
 MsgBox "The status date was set to " & .StatusDate & "." 
 End If 
 End If 
 End With 
 
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.