Свойство Project.LevelFromDate (Project)

Возвращает или задает начальную дату диапазона, в котором выровляются общие ресурсы. По умолчанию используется дата начала проекта или последнее введенное значение даты. Для чтения и записи, Variant.

Синтаксис

выражение. LevelFromDate

выражение Переменная, представляющая объект Project .

Замечания

Вы также можете задать свойство LevelFromDate в диалоговом окне Выравнивание ресурсов . Чтобы получить доступ к параметру, щелкните Параметры выравнивания на вкладке Ресурс ленты, а затем выберите параметр Уровень и задайте дату от .

Пример

В следующем примере пользователь может изменить диапазон дат, в котором происходит выравнивание, если текущий диапазон начинается с даты начала проекта или заканчивается в дату окончания проекта.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.