通过

Application.GanttBarFormatEx 方法 (Project)

在默认样式的基础上更改甘特条形图的格式，其中的颜色可以是十六进制的 RGB 值。

语法

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

表达 返回 Application 对象的表达式。

参数

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

返回值

Boolean

说明

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

若要定义默认样式（其中的颜色可以是十六进制的 RGB 值），请使用 GanttBarEditEx 方法。

示例

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

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

支持和反馈

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