Partilhar via

Propriedade Project.LevelFromDate (Project)

  • Artigo

Obtém ou define a data inicial de um intervalo no qual os recursos superalocados são redistribuídos. O padrão é o início do projeto, data ou o último valor de data inserido. Leitura/gravação Variant.

Sintaxe

expression. LevelFromDate

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

Comentários

Você também pode definir a propriedade LevelFromDate na caixa de diálogo Redistribuição de recursos. Para acessar a configuração, clique em Opções de redistribuição no guia de recurso da faixa de opções, clique na opção nível e defina a data de.

Exemplo

O exemplo a seguir deixa o usuário alterar o intervalo de datas em que ocorre a redistribuição, se o intervalo atual começa na data de início do projeto ou termina na data de término do projeto.

Sub ChangeLevelingDates() 
 Dim Response As Long 
 Dim NewFrom As Variant, NewTo As Variant 
 
 With ActiveProject 
 If Application.DateDifference(.ProjectSummaryTask.Start, .LevelFromDate) = 0 Then 
 Response = MsgBox("Overallocated resources are leveled from " & _ 
 "the project start date. Should that be changed?", vbYesNo) 
 If Response = vbYes Then 
 NewFrom = InputBox("Date to level from: ") 
 .LevelFromDate = NewFrom 
 Else 
 MsgBox "Resources remain leveled from the project start date." 
 End If 
 End If 
 
 If Application.DateDifference(.ProjectSummaryTask.Finish, .LevelToDate) = 0 Then 
 Response = MsgBox("Overallocated resources are leveled to " & _ 
 "the project finish date. Should that be changed?", vbYesNo) 
 If Response = vbYes Then 
 NewTo = InputBox("Date to level to: ") 
 .LevelToDate = NewTo 
 Else 
 MsgBox "Resources remain leveled to the project finish date." 
 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.