通过

Application.TimescaleEdit 方法 (Project)

允许更改甘特图或其他按时间分段的视图中的时间刻度的比例和格式。

语法

expression。 TimescaleEdit( _MajorUnits_, _MinorUnits_, _MajorLabel_, _MinorLabel_, _MajorAlign_, _MinorAlign_, _MajorCount_, _MinorCount_, _MajorTicks_, _MinorTicks_, _Enlarge_, _Separator_, _MajorUseFY_, _MinorUseFY_, _TopUnits_, _TopLabel_, _TopAlign_, _TopCount_, _TopTicks_, _TopUseFY_, _TierCount_ )

expression：表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
MajorUnits 可选 Variant 对于中层时间刻度的时间单位。 指定与 PjTimescaleUnit 枚举。 默认值是 pjTimescaleWeeks (3)。
MinorUnits 可选 Variant 对于底层时间刻度的时间单位。 指定与 PjTimescaleUnit 枚举。 默认值是 pjTimescaleDays (2)。
MajorLabel 可选 Variant 对于中层时间刻度的日期或时间标签。 指定具有以下枚举之一: PjDateLabel 、 PjDayLabel 、 PjMonthLabel 或 PjWeekLabel 。 默认值是 pjWeekLabelWeek_mmm_dd_yyy (13)。 例如，默认值是 3 月 7，"10和 3 月 3 日 14，' 10。
MinorLabel 可选 Variant 对于底层时间刻度的日期或时间标签。 指定具有以下枚举之一: PjDateLabel 、 PjDayLabel 、 PjMonthLabel 或 PjWeekLabel 。 默认值为 pjDayLabelDay_di (20)。 例如，默认值是 S、 M和 T。
MajorAlign 可选 Variant PjAlignment 枚举指定如何对齐标签，在每个时间段的中间层内。 默认值为值是 pjLeft (0)。
MinorAlign 可选 Variant PjAlignment 枚举指定如何对齐在底层的每个时间段内的标签。 默认值为值是 pjLeft (0)。
MajorCount 可选 Variant 指定显示中层的标签的时间单位间隔。 例如，如果时间单位采用周，则值 1 表示每周显示一个标签；值 2 表示每两周显示一个标签。
MinorCount 可选 Variant 指定显示底层的标签的时间单位间隔。 例如，如果时间单位采用小时，则值 1 表示每小时显示一个标签；值 2 表示每两小时显示一个标签。
MajorTicks 可选 Variant 指定是否显示刻度分隔与中间层中的时间段。 例如，如果时间单位是天，值为 False 将删除天之间的刻度。
MinorTicks 可选 Variant 指定是否显示刻度线分隔的底部层中的时间段。 例如，如果时间单位是小时，如果值为 False 将删除之间小时刻度。
Enlarge 可选 Variant 指定时间刻度的水平展开的百分比。 例如，值 150 表示将时间刻度展开 150%。
Separator 可选 Variant 指定是否显示顶部、 中间和底部层时间刻度分隔线。 例如，如果值为 False 将删除行。
MajorUseFY 可选 Variant 指定是否要基于会计年度中间层标签。 默认值为 False 。
MinorUseFY 可选 Variant 指定是否要基于会计年度的底部层标签。 默认值为 False 。
TopUnits 可选 Variant 对于顶层时间刻度的时间单位。 指定与 PjTimescaleUnit 枚举。 默认值是 pjTimescaleMonths (2)。
TopLabel 可选 Variant 对于顶层时间刻度的日期或时间标签。 指定具有以下枚举之一: PjDateLabel 、 PjDayLabel 、 PjMonthLabel 或 PjWeekLabel 。 默认值为 pjDayLabelDay_di (20)。 例如，默认值是 S、 M和 T。
TopAlign 可选 Variant PjAlignment 枚举指定标签顶部的层的每个时间段内的对齐方式。 默认值为值是 pjLeft (0)。
TopCount 可选 Variant 指定显示顶层的标签的时间单位间隔。 例如，如果时间单位采用月，则值 1 表示每月显示一个标签；值 2 表示每两个月显示一个标签。
TopTicks 可选 Variant 指定是否显示刻度线分隔的顶层中的时间段。 例如，如果几个月为时间单位，如果值为 False 将删除刻度之间几个月。
TopUseFY 可选 Variant 指定是否要基于会计年度的顶层标签。 默认值为 False 。
TierCount 可选 Variant 指定时间刻度的层数。 整数值 3 显示所有三个层；值 2 为默认值，显示中层和底层；值 1 仅显示中层。

返回值

Boolean

说明

要手动编辑项目中的时间刻度，时间刻度中，用鼠标右键单击，然后选择 时间刻度。 执行不带参数的 TimescaleEdit 方法将显示 时间刻度对话框。 如果用户选择 取消，则 TimescaleEdit 将返回 False 。 如果用户进行有效的更改，并选择 确定，则 TimescaleEdit 将返回 True 。

示例

下面的示例将时间刻度设置为三层，其中顶层单位为月、 顶部的标签是月份名称和年份、 中层单位是周，和中间层标签的月份和日期数字。 例如，顶层标签是 2012 年和 2012 年 6 月，而中间层标签是 5/27和 6/3 。

TimescaleEdit TierCount:=3, _ 
    TopUnits:=PjTimescaleUnit.pjTimescaleMonths, _ 
    TopLabel:=PjMonthLabel.pjMonthLabelMonth_mmmm_yyyy, _ 
    MajorUnits:=PjTimescaleUnit.pjTimescaleWeeks, _ 
    MajorLabel:=PjWeekLabel.pjWeekLabelWeek_mm_dd

注意

TopLabel、MajorLabel 和 MinorLabel 参数中的标签时间范围值必须与指定时间刻度层的时间单位兼容。 例如，如果底层的时间单位为小时，则参数值 MinorLabel:=PjDateLabel.pjHour_hhAM 有效。 但是，参数值 MinorLabel:=PjDateLabel.pjHalfYear_hhh_Half 会导致运行时错误 1101：“参数值无效。”

支持和反馈

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