Application.BoxLayout 方法 (Project)

指定活动“网络图”视图（PERT 图）中方框的版式。

语法

expression。 BoxLayout( _LayoutMode_, _LayoutScheme_, _SummaryPrecedence_, _RowAlignment_, _ColumnAlignment_, _RowSpacing_, _ColumnSpacing_, _RowHeight_, _ColumnWidth_, _AdjustForPageBreaks_, _ShowSummaryTasks_, _ViewBackgroundColor_, _ViewBackgroundPattern_, _ShowProgressMarks_, _ShowPageBreaks_, _ShowIDOnly_ )

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
LayoutMode	可选	Long	指定是否方框的版式自动控制的控制由用户使用 LayoutNow 方法或通过界面。 可以是 PjLayoutMode 常量之一。
LayoutScheme	可选	Long	指定各行中方框的对齐方式。 可以是 PjLayoutScheme 常量之一。
SummaryPrecedence	可选	Boolean	如果 True ，摘要任务放在之前多个子任务。
RowAlignment	可选	Long	行中文本的对齐方式。 可以是 PjVerticalAlignment 常量之一。
ColumnAlignment	可选	Long	列中文本的对齐方式。 可以是 PjAlignment 常量之一。
RowSpacing	可选	Long	行之间的间距。 该值可以是 0 到 200 之间的值。
ColumnSpacing	可选	Long	列之间的间距。 该值可以是 0 到 200 之间的值。
RowHeight	可选	Long	每行方框的高度。 可以是 PjRowColSize 常量之一。
ColumnWidth	可选	Long	每列方框的宽度。 可以是 PjRowColSize 常量之一。
AdjustForPageBreaks	可选	Boolean	如果 如此 ，新的任务放在下一页上如果不适合当前页上。 如果 False ，新任务将会休息页之间。
ShowSummaryTasks	可选	Boolean	如果 True ，显示摘要任务。 如果 False ，摘要任务是隐藏的。
ViewBackgroundColor	可选	Long	视图的背景色。 可以是 PjColor 常量之一。
ViewBackgroundPattern	可选	Long	背景所使用的图案。 可以是 PjBackgroundPattern 常量之一。
ShowProgressMarks	可选	Boolean	True 如果使用从框的左上角到右下角和已完成的任务对角线标记正在进行的任务均带有对角线从右上角到左下角。 假 如果没有标记的任务的进度。
ShowPageBreaks	可选	Boolean	如此 如果分页符显示在网络图中;否则为 假 。
ShowIDOnly	可选	Boolean	如此 如果只显示任务标识号。 假 如果在网络图框的所有任务数据字段的都显示。

返回值

Boolean

说明

使用 BoxLayout 方法，而不指定任何参数将显示 方框版式 对话框。

若要使用 ViewBackgroundColor 的十六进制值设置网络图布局的格式，请参阅 BoxLayoutEx 方法。

示例

以下示例将活动“网络图”视图中的方框版式设置为默认设置。

Sub ReturnToDefault() 
 Application.BoxLayout LayoutMode:=pjLayoutManual, LayoutScheme:=pjLayoutTopDownFromLeft, _ 
 SummaryPrecedence:=True, RowAlignment:=pjCenter, ColumnAlignment:=pjMiddle, RowSpacing:=45, _ 
 ColumnSpacing:=60, RowHeight:=pjSizeBestFit, ColumnWidth:=pjSizeBestFit, AdjustForPageBreaks:=True, _ 
 ShowSummaryTasks:=True, ViewBackgroundColor:=pjWhite, ViewBackgroundPattern:=pjBackgroundSolidFill, _ 
 ShowProgressMarks:=False, ShowPageBreaks:=True, ShowIDOnly:=False 
End Sub

支持和反馈

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