通过

Application.BoxCellLayout 方法 (Project)

  • 项目

设置"网络图"视图中数据模板的单元格版式和大小属性。 新数据模板的初始版式为 2 行 2 列、单元格宽度为 100%，而且启用了单元格合并功能。

语法

expression。 BoxCellLayout( _Name_, _CellRows_, _CellColumns_, _CellWidth_, _MergeCells_ )

expression：表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
Name 必需 String 字符串 。 若要编辑的数据模板的名称。
CellRows 可选 Long 取值范围为 1 到 4，指定数据模板中单元格的行数。
CellColumns 可选 Long 取值范围为 1 到 4，指定数据模板中单元格的列数。
CellWidth 可选 Integer 取值范围为 100 到 200，指定模板单元格宽度要放大的百分比。
MergeCells 可选 Boolean 如此 如果空白单元格左侧的单元格合并。

返回值

Boolean

说明

只指定了 Name 参数的 BoxCellLayout 方法无效。

示例

以下示例修改 "关键任务" 数据模板的名为 "关键任务测试"(Test Critical) 的副本。 该宏删除单元格的第四行并设置第三行中的第四个单元格，以显示紫蓝色的 "实际成本" 域和标签。

Sub ModifyCriticalDataTemplate() 
 Application.BoxCellLayout Name:="Test Critical", CellRows:=3, MergeCells:=True 
 
 Application.BoxCellEditEx Name:="Test Critical", Cell:=pjCell4_3, _ 
 FieldName:=PjField.pjTaskActualCost, Font:="Arial", FontSize:="8", FontColor:=&HFF0077, _ 
 Bold:=False, Italic:=False, Underline:=False, HorizontalAlignment:=pjLeft, _ 
 VerticalAlignment:=pjMiddle, TextLineLimit:=1, ShowLabel:=True, Label:="Cost" 
End Sub

支持和反馈

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