通过

Application.GanttBarFormat 方法 (Project)

更改甘特条形图的格式的默认样式。

语法

expression。 GanttBarFormat( _TaskID_, _GanttStyle_, _StartShape_, _StartType_, _StartColor_, _MiddleShape_, _MiddlePattern_, _MiddleColor_, _EndShape_, _EndType_, _EndColor_, _LeftText_, _RightText_, _TopText_, _BottomText_, _InsideText_, _Reset_, _ProjectName_ )

expression：表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
TaskID 可选 Long 甘特图表上要更改的任务的标识号。 默认设置是更改选定任务的甘特条形图。
GanttStyle 可选 Integer 应用于甘特条形图设置格式的样式。 GanttStyle 的值根据位置栏的样式在 条形图样式对话框中。 例如，值 3 返回第三个栏样式在列表中。
StartShape 可选 Long 甘特条形图的头部形状。 可以是 PjBarEndShape 常量之一。
StartType 可选 Long 甘特条形图头部的类型。 可以是 PjBarType 常量之一。
StartColor 可选 Long 甘特条形图头部形状的颜色。 可以是 PjColor 常量之一。
MiddleShape 可选 Long 甘特条形图的中部形状。 可以是 PjBarShape 常量之一。
MiddlePattern 可选 Long 甘特条形图的中部图案。 可以是 PjFillPattern 常量之一。
MiddleColor 可选 Long 中间部分甘特条形图的颜色。 可以是 PjColor 常量之一。
EndShape 可选 Long 尾部甘特条形图的形状。 可以是 PjBarEndShape 常量之一。
EndType 可选 Long 尾部的甘特条形图类型。 可以是下列的 PjBarType 常量之一: pjDashed 、 pjFramed 或 pjSolid 。
EndColor 可选 Long 甘特条形图尾部形状的颜色。 可以是 PjColor 常量之一。
LeftText 可选 String 要显示在甘特条形图左侧的任务域。
RightText 可选 String 要显示在甘特条形图右侧的任务域。
TopText 可选 String 要显示在甘特条形图上方的任务域。
BottomText 可选 String 要显示在甘特条形图下方的任务域。
InsideText 可选 String 要显示在甘特条形图内部的任务域。
Reset 可选 Boolean 如此 如果栏格式重置为默认格式的样式在 条形图样式对话框中;否则为 假 。
ProjectName 可选 String 包含 TaskID ，如果合并所涉及的项目名称。 默认值是活动项目的名称。

返回值

Boolean

说明

使用 GanttBarFormat 方法，而不指定任何参数将显示 设置条形图格式对话框。

若要定义默认样式，请使用 GanttBarStyleEdit 方法。

若要更改颜色可以是十六进制 RGB 值的甘特条形图格式，请使用 GanttBarFormatEx 方法。

示例

以下示例将任务 ID 为 3 的任务头部显示为红色菱形。

Sub GanttBar_Format() 
 
 'Activate Gantt Chart view 
 ViewApply Name:="&Gantt Chart" 
 GanttBarFormat TaskID:=3, StartShape:=pjDiamond, StartType:=pjSolid, StartColor:=pjRed 
 
End Sub

支持和反馈

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