Application.GanttBarStyleEdit 方法 (Project)

更改或创建甘特条形图样式。

语法

expression。 GanttBarStyleEdit( _Item_, _Create_, _Name_, _StartShape_, _StartType_, _StartColor_, _MiddleShape_, _MiddleColor_, _MiddlePattern_, _EndShape_, _EndType_, _EndColor_, _ShowFor_, _Row_, _From_, _To_, _BottomText_, _TopText_, _LeftText_, _RightText_, _InsideText_ )

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
Item	必需	String	要在 "条形图样式" 对话框中更改的甘特条形图样式的名称或行号。
Create	可选	Boolean	如此 如果创建新甘特条形图样式并将其插入 条形图样式对话框中的甘特条形图样式指定 项 之前。 如果 项目 是"-1"，新甘特条形图样式添加到样式列表的末尾。 默认值为 False 。
Name	可选	String	甘特条形图的新名称。
StartShape	可选	Integer	头部甘特条形图的形状。 默认值是 pjNone 。 可以是 PjBarEndShape 常量之一。
StartType	可选	Integer	甘特条形图的启动类型。 可以是下列的 PjBarType 常量之一: pjDashed 、 pjFramed 或 pjSolid 。 默认值是 pjSolid 。
StartColor	可选	Integer	头部的甘特条形图颜色。 默认值是 pjBlack 。 可以是 PjColor 常量之一。
MiddleShape	可选	Integer	甘特条形图中部形状。 可以是 PjBarShape 常量之一。 默认值是 pjRectangleBar 。
MiddleColor	可选	Integer	甘特条形图的中间颜色。 可以是 PjColor 常量之一。 默认值是 pjBlack 。
MiddlePattern	可选	Integer	中部的甘特条形图图案。 可以是 PjFillPattern 常量之一。 默认值是 pjMediumFillPattern 。
EndShape	可选	Integer	尾部甘特条形图的形状。 可以是 PjBarEndShape 常量之一。 默认值是 pjNone 。
EndType	可选	Integer	尾部的甘特条形图类型。 可以是下列的 PjBarType 常量之一: pjDashed 、 pjFramed 或 pjSolid 。 默认值是 pjSolid 。
EndColor	可选	Integer	甘特条形图的结束颜色。 可以是 PjColor 常量之一。 默认值是 pjBlack 。
ShowFor	可选	String	由列表分隔符分隔开的一个或多个任务类型（例如，正常、拆分、摘要和里程碑等等）。
Row	可选	Integer	1 到 4 之间的一个数字，用于指定显示甘特条形图的行。 默认值为 1。
From	可选	String	指定甘特条形图头部的日期域的名称。
To	可选	String	指定甘特条形图尾部的日期域的名称。
BottomText	可选	String	要显示在甘特条形图下方的任务域。
TopText	可选	String	要显示在甘特条形图上方的任务域。
LeftText	可选	String	要显示在甘特条形图左侧的任务域。
RightText	可选	String	要显示在甘特条形图右侧的任务域。
InsideText	可选	String	要显示在甘特条形图内部的任务域。

返回值

Boolean

说明

若要手动显示“条形图样式”对话框，请单击“甘特图工具”选项卡下的“格式”选项卡。在“条形图样式”组中，单击“格式”下拉列表中的“条形图样式”。 “条形图样式”对话框最多可包含 200 种样式。

若要编辑颜色可以是十六进制 RGB 值的甘特条形图样式，请使用 GanttBarEditEx 方法。

示例

下面的示例将创建一个条形图样式，该样式的颜色为浅绿色，其尾部形状为星形。

Sub CreateGanttBar() 
 GanttBarStyleEdit Item:=-1, Create:=True, Name:="My New Bar Style", MiddleColor:=pjLime, EndShape:=pjStar 
End Sub

支持和反馈

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