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 支持和反馈，获取有关如何接收支持和提供反馈的指南。