Project) (Application.OptionsSchedule 方法

设置日程排定选项。

语法

expression。 OptionsSchedule( _ScheduleMessages_, _StartOnCurrentDate_, _AutoLink_, _AutoSplit_, _CriticalSlack_, _TaskType_, _DurationUnits_, _WorkUnits_, _AutoTrack_, _SetDefaults_, _AssignmentUnits_, _EffortDriven_, _HonorConstraints_, _ShowEstimated_, _NewTasksEstimated_ )

expression:表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
ScheduleMessages 可选 Variant Boolean 类型的值 。 如此 如果消息显示在发生日程排定问题;否则为 假 。
StartOnCurrentDate 可选 Boolean 如此 如果新任务从当前日期开始。 假 如果新任务从项目的开始日期 (对于从开始日期排定日程的项目) 或项目完成日期 (对于从完成日期排定日程的项目)。
自动链接 可选 Boolean 如此 如果任务将自动链接;否则为 假 。
自动拆分 可选 Boolean 如此 如果自动拆分正在进行的任务;否则为 假 。
CriticalSlack 可选 Variant 关键任务所允许的最大时差量。
TaskType 可选 Long 新任务的默认类型。 可以是 PjTaskFixedType 常量之一。
DurationUnits 可选 Long 任务的默认工期单位。 可以是 PjUnit 常量之一。
WorkUnits 可选 Long 默认工时资源的工作分配单位。 可以是 PjUnit 常量之一。
AutoTrack 可选 Boolean 如此 如果任务跟踪域自动更新资源分配;否则为 假 。
SetDefaults 可选 Boolean 如此 如果除 ScheduleMessages 和 AssignmentUnits 之外的所有参数指定的值变为默认值的新项目文件;否则为 假 。
AssignmentUnits 可选 Long 指定工作分配单位的显示方式。 可以是 PjAssignmentUnit 常量之一。
EffortDriven 可选 Boolean 如此 如果新任务为投入比导向的;否则为 假 。
HonorConstraints 可选 Boolean 如此 如果任务服从其限制日期;否则为 假 。
ShowEstimated 可选 Boolean 如此 如果新项目中的任务工期显示以估计字符;否则为 假 。
NewTasksEstimated 可选 Boolean 如此 如果活动项目中的新任务具有估计工期;否则为 假 。

返回值

布尔值

备注

如果忽略某一参数,则其默认值由 "项目选项" 对话框的 "日程" 选项卡上的当前设置指定。

使用 OptionsSchedule 方法,而不指定任何参数将显示 项目选项对话框。

示例

以下示例将在发生日程排定问题时显示消息,将新的任务排定在当前日期启动并将任务的默认工期单位设置为一周。

Sub Options_Schedule() 
 OptionsSchedule ScheduleMessages:=True, StartOnCurrentDate:=True, DurationUnits:=pjWeek 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。