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 do 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 à percentagem total de tarefas concluídas forem distribuídas para a data de paragem calculada da tarefa, a macro pergunta ao utilizador se as edições devem ser distribuídas para uma data de status e, em caso afirmativo, pede uma data de status para utilizar.

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.