通过

Application.BoxStylesEdit 方法 (Project)

设置“网络图”视图中方框的样式。

语法

expression。 BoxStylesEdit( _Style_, _DataTemplate_, _HorizontalGridlines_, _VerticalGridlines_, _BorderShape_, _BorderColor_, _BorderWidth_, _BackgroundColor_, _BackgroundPattern_ )

expression：表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
样式 必需 Long 要更改的方框样式。 可为 PjBoxStyle 常量之一。
DataTemplate 可选 String 用于样式的数据模板的名称。
HorizontalGridlines 可选 Boolean 如此 如果水平网格线分隔各行中;否则为 假 。
VerticalGridlines 可选 Boolean 如此 如果垂直网格线分隔方框; 中的每个行否则为 假 。
BorderShape 可选 Long 方框边框的形状。 可为 PjBoxShape 常量之一。
BorderColor 可选 Long 方框边框的颜色。 可以是 PjColor 常量之一。
BorderWidth 可选 Long 取值范围为 1 到 4，以像素为单位指定方框边框的宽度。
BackgroundColor 可选 Long 方框背景的颜色。 可以是 PjColor 常量之一。
BackgroundPattern 可选 Long 背景图案。 可以是 PjBackgroundPattern 常量之一。

返回值

Boolean

说明

若要显示 "方框样式" 对话框，请使用 BarBoxStyles 方法。

若要编辑颜色可以是 RGB 值的方框链接线，请使用 BoxStylesEditEx 方法。

示例

下面的示例将更改为 pjBoxCritical 样式显示为圆角矩形框、 添加垂直网格线，并设置的边框和背景色。

Sub BoxStyles_Edit() 
 'Activate the Network Diagram view 
 ViewApply Name:="Network Diagram" 
 
 BoxStylesEdit Style:=pjBoxCritical, BorderShape:=pjBoxRoundedRectangle, VerticalGridlines:=True, _ 
 BorderColor:=pjRed, BorderWidth:=3, _ 
 BackgroundColor:=pjGray, BackgroundPattern:=pjBackgroundLightDither 
End Sub

支持和反馈

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