适用于
ChartFillFormat 对象，FillFormat 对象，LineFormat 对象
描述
ChartFillFormat 对象：返回一个 ChartColorFormat，该对象代表指定填充背景颜色，只读。
所有其他对象：返回一个 ColorFormat 对象，该对象代表指定填充背景颜色，只读。
示例
本示例为第一张图表设置前景颜色、背景颜色和图表区域填充的过渡。
With Charts(1).ChartArea.Fill
.Visible = True
.ForeColor.SchemeColor = 15
.BackColor.SchemeColor = 17
.TwoColorGradient msoGradientHorizontal, 1
End With
适用于
Font 对象
描述
返回或者设置文本背景的类型。可为下列 XlBackground 常量之一：xlBackgroundAutomatic、 xlBackgroundOpaque 或xlBackgroundTransparent。本属性仅应用于图表中的文本。Long 类型，可读写。
示例
本示例为 Sheet1 的第一个嵌入式图表中添加图表标题，并对标题的字体大小和背景类型进行设置。
With Worksheets("Sheet1").ChartObjects(1).Chart
.HasTitle = True
.ChartTitle.Text = "1995 Rainfall Totals by Month"
With .ChartTitle.Font
.Size = 10
.Background = xlBackgroundTransparent
End With
End With
适用于
PivotCache 对象， QueryTable 对象
描述
如果数据透视表或查询表的查询是异步执行（在后台执行）的，本属性为True。Boolean 类型，可读写。
说明
对于OLAP数据源，本属性是只读的并总是返回False。
示例
本示例使第一张数据透视表报表的查询在后台执行。
Worksheets(1).PivotTables("Pivot1")
_PivotCache.BackgroundQuery = True
适用于
Trendline对象
描述
返回或者设置指定趋势线向后延伸的周期数（或散点图的单位数）。Long 类型，可读写。
另见
示例
本示例设置“Chart1”的趋势线向前和向后延伸的周期数。本示例应在包含单个有趋势线的数据系列的二维柱形图上运行。
With Charts("Chart1").SeriesCollection(1).Trendlines(1)
.Forward = 5
.Backward = .5
End With
适用于
Chart 对象
描述
返回一个 ChartGroup 对象，该对象代表三维图表中的条形图组。只读。
另见
示例
本示例设置三维条形图组的条形簇之间的距离等于条形宽度的一半。
Charts(1).Bar3DGroup.GapWidth = 50
适用于
Chart 对象
描述
在二维图表中返回一个对象，该对象既可代表单个条形图组（一个
ChartGroup
对象，句法 1），也可代表一个条形图组集合（一个 ChartGroups 集合，句法 2）。
句法 1
expression.BarGroups(Index)
句法 2
expression.BarGroups
expression
必选。该表达式返回一个 Chart 对象。
Index
Variant 类型，可选。指定图表组。
另见
AreaGroups方法， Bar3DGroup属性， ChartGroups方法， ColumnGroups方法， DoughnutGroups方法， PieGroups方法
示例
本示例设置二维条形图组的条形簇之间的距离等于条形宽度的一半。
Charts(1).BarGroups(1).GapWidth = 50
适用于
Chart 对象，Series 对象
描述
返回或设置用于三维条形图或柱形图的形状。可为下列 XlBarShape 常量之一：xlBox，xlConeToMax，xlConeToPoint，xlCylinder，xlPyramidToMax或xlPyramidToPoint。
Long 类型，可读写。
示例
本示例设置用于第一张图表的第一个数据系列的形状。Charts(1).SeriesCollection(1).BarShape = xlConeToPoint
适用于
PivotField 对象
描述
返回或者设置自定义计算的基准字段，仅对数据字段有效。
Variant 类型，可读写。
说明
本属性不能用于OLAP数据源。
示例
本示例将 Sheet1 的数据透视表中的报表数据字段设为计算与基准字段的差，设置基准字段为“ORDER_DATE”字段，并将基准数据项设为“5/16/89”。
With Worksheets("Sheet1").Range("A3").PivotField
.Calculation = xlDifferenceFrom
.BaseField = "ORDER_DATE"
.BaseItem = "5/16/89"
End With
适用于
PivotField 对象
描述
返回或者设置自定义计算基准字段的数据项，仅对数据字段有效。Variant 类型，可读写。
说明
本属性不能用于OLAP数据源。
示例
本示例将 Sheet1 的数据透视表报表中的数据字段设为计算与基准字段的差，设置基准字段为“ORDER_DATE”字段，并将基准数据项设为“5/16/89”。
With Worksheets("Sheet1").Range("A3").PivotField
.Calculation = xlDifferenceFrom
.BaseField = "ORDER_DATE"
.BaseItem = "5/16/89"
End With
适用于
Axis 对象
描述
返回或设置指定分类轴的基本单位。可为下列 XlTimeUnit 常量之一：xlDays、 xlMonths 或 xlYears。Long 类型，可读写。
说明
如果指定坐标轴的 CategoryType 属性设置为 xlCategoryScale，则设置本属性将没有可见的效果。不过，所设置的值将保留，并当 CategoryType 属性值变为 xlTimeScale 时再起作用。
不能对数值轴设置本属性。
另见
BaseUnitIsAuto属性， CategoryType属性， MajorUnitScale属性， MinorUnitScale属性
示例
本示例使第一张工作表中第一张内嵌图表的分类轴使用时间刻度，并以月为基本单位。
With Worksheets(1).ChartObjects(1).Chart
With .Axes(xlCategory)
.CategoryType = xlTimeScale
.BaseUnit = xlMonths
End With
End With
适用于
Axis 对象
描述
如果由 Microsoft Excel 为指定的分类轴选取适当的基本单位，本属性为True。默认值为 True。Boolean 类型，可读写。
说明
不能对数值轴设置本属性。
另见
示例
本示例使第一张工作表中第一张内嵌图表的分类轴使用时间刻度， 并使用自动选取的基本单位。
With Worksheets(1).ChartObjects(1).Chart
With .Axes(xlCategory)
.CategoryType = xlTimeScale
.BaseUnitIsAuto = True
End With
End With
适用于
Workbook 对象
描述
关闭工作簿时先产生此事件。如果该工作簿已经更改过，本事件在询问用户是否保存更改之前产生。
句法
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel
当事件产生时为 False。如果该事件过程将本参数设为 True，则停止对工作簿的关闭操作，工作簿仍处于打开状态。
另见
Deactivate 事件， WorkbookBeforeClose 事件
示例
本示例将 BeforeClose 事件的响应设置为保存工作簿的任何更改。
Private Sub Workbook_BeforeClose(Cancel as Boolean)
If Me.Saved = False Then Me.Save
End Sub
适用于
Chart 对象，Worksheet对象
描述
当双击一张嵌入式图表或工作表产生此事件，并且此事件先于默认的双击操作产生。
句法 1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, CancelAs Boolean)
句法 2
Private Sub object_BeforeDoubleClick(ByVal ElementID As Long, ByValArg1 As Long, ByVal Arg2 As Long, Cancel As Boolean)
Object
在类模块中带有事件声明的 Chart 类型对象。
Target
双击发生时最靠近鼠标指针的单元格。
Cancel
当事件发生时为 False。如果该事件过程将本参数设为 True，则在该过程执行完之后将不进行默认的双击操作。
ElementID
双击的对象。Arg1 参数和 Arg2 参数的含义取决于 ElementID 参数的值，如下表所示。
| ElementID | Arg1 | Arg2 |
| xlChartArea | 无 | 无 |
| xlChartTitle | 无 | 无 |
| xlPlotArea | 无 | 无 |
| xlLegend | 无 | 无 |
| xlFloor | 无 | 无 |
| xlWalls | 无 | 无 |
| xlCorners | 无 | 无 |
| xlDataTable | 无 | 无 |
| xlSeries | SeriesIndex | PointIndex |
| XlDataLabel | SeriesIndex | PointIndex |
| XlTrendline | SeriesIndex | TrendLineIndex |
| XlErrorBars | SeriesIndex | 无 |
| xlXErrorBars | SeriesIndex | 无 |
| xlYErrorBars | SeriesIndex | 无 |
| xlLegendEntry | SeriesIndex | 无 |
| xlLegendKey | SeriesIndex | 无 |
| xlAxis | AxisIndex | AxisType |
| xlMajorGridlines | AxisIndex | AxisType |
| xlMinorGridlines | AxisIndex | AxisType |
| xlAxisTitle | AxisIndex | AxisType |
| xlDisplay UnitLabel | ApisIndex | AxisType |
| xlUpBars | GroupIndex | 无 |
| xlDownBars | GroupIndex | 无 |
| xlSeriesLines | GroupIndex | 无 |
| xlHiLoLines | GroupIndex | 无 |
| xlDropLines | GroupIndex | 无 |
| xlRadarAxisLabels | GroupIndex | 无 |
| xlShape | ShapeIndex | 无 |
| xlPivotChartDeopZone | DropZoneType | 无 |
| xlPivotChartFieldButton | DropZoneType | PivotFieldIndex |
| xlNothing | 无 | 无 |
下表描述的是上表中参数的含义。
| 参数 | 描述 |
| SeriesIndex | 指定一个特定系列在 Series 集合中的偏移量。 |
| PointIndex | 指定某个系列中一个特定绘制点在 Points 集合中的偏移量。_1 表示选定所有数据点。 |
| TrendlineIndex | 指定某个系列中一个特定趋势线在Trendlines |
| AxisIndex | 指定某坐标轴为主坐标轴（0）还是次坐标轴（1）。可以是下列XlAxisGroup常量之一：xlPrimary或xlSecondary。 |
| AxisType | 指定坐标轴类型，可以是xlAxis Type常量之一：xlCategory，blSeriesAxis或xlValue。 |
| GroupIndex | 指定特定图表组在 ChartGroups 集合中的偏移量。 |
| ShapeIndex | 指定特定形状在 Shapes 集合中的偏移量。 |
| DropZoneType | 指定dropZone类型：列，数据，页或行字段。可以是下列xlPivotFieldOrientation常量之一：xlColumnField，xlDataField，xlPageField或xlRowField。列和行字段常量各自指定系列和分类字段。 |
| PivotFieldIndex | 在PivotFields集合中，为指定列（系列）、数据、页或行（分类）字段指定区距。 |
说明
使用DoubleClick方法并不触发本事件。用户双击单元格的边框时不触发本事件。
另见
BeforeRightClick 事件， SheetBeforeDoubleClick 事件， SheetBeforeRightClick 事件
示例
本示例对 BeforeDoubleClick 事件响应进行设置，当事件发生时不忽略图表基底的默认双击操作。
Private Sub Chart_BeforeDoubleClick(ByVal ElementID As Long, _
ByVal Arg1 As Long, ByVal Arg2 As Long, Cancel As Boolean)
If ElementID = xlFloor Then
Cancel = True
MsgBox "Chart formatting for this item is restricted."
End If
End Sub
适用于
Workbook 对象
描述
在打印指定工作簿（或者其中的某些内容）之前产生此事件。
句法
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel
当事件产生时为 False。如果该事件过程将本参数设为 True，则当该过程运行结束之后不打印工作簿。
另见
示例
本示例在打印之前对活动工作簿的所有工作表重新计算。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
For Each wk in Worksheets
wk.Calculate
Next
End Sub
适用于
QueryTable 对象
描述
在刷新查询表之前产生此事件。这里的刷新包括调用 Refresh 方法引起的变化，用户的操作引起的变化和打开包含该查询表的工作簿引起的变化。
句法
Private Sub QueryTable_BeforeRefresh(Cancel As Boolean)
Cancel
当事件产生时为 False。如果该事件过程将本参数设为 True，则该过程执行结束之后不进行刷新。
另见
示例
本示例在刷新查询表之前运行。
Private Sub QueryTable_BeforeRefresh(Cancel As Boolean)
a = MsgBox("Refresh Now?", vbYesNoCancel)
If a = vbNo Then Cancel = True
MsgBox Cancel
End Sub
适用于
Chart 对象，Worksheet 对象
描述
当右击一个嵌入式图表或工作表时产生此事件，此事件的产生先于默认的右击操作。
句法 1
Private Sub object_BeforeRightClick(Cancel As Boolean)
句法 2
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel AsBoolean)
Object
在类模块中带有事件声明的 Chart 类型对象。
Target
右击发生时最靠近鼠标指针的单元格。
Cancel
当事件产生时为 False。如果该事件过程将本参数设为 True，则该过程执行结束之后不进行默认的右击操作。
说明
与其他工作表事件相似，当指针位置在形状或命令栏（工具栏或者菜单栏）上时，右击不触发本事件。
另见
BeforeDoubleClick 事件， SheetBeforeDoubleClick 事件， SheetBeforeRightClick 事件
示例
本示例为 B1:B10 单元格添加快捷菜单项。
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
Cancel As Boolean)
For Each icbc In Application.CommandBars("cell").Controls
If icbc.Tag = "brccm" Then icbc.Delete
Next icbc
If Not Application.Intersect(Target, Range("b1:b10")) _
Is Nothing Then
With Application.CommandBars("cell").Controls _
.Add(Type:=msoControlButton, before:=6, _
temporary:=True)
.Caption = "New Context Menu Item"
.OnAction = "MyMacro"
.Tag = "brccm"
End With
End If
End Sub
适用于
Workbook 对象
描述
保存工作簿之前产生此事件
句法
Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel AsBoolean)
SaveAsUi
如果显示“另存为” 对话框则为 True。
Cancel
当事件产生时为 False。如果该事件过程将本参数设为 True，则该过程执行结束之后不保存工作簿。
另见
示例
本示例在保存工作簿之前询问用户是否保存。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel as Boolean)
a = MsgBox("Do you really want to save the workbook?", vbYesNo)
If a = vbNo Then Cancel = True
End Sub
适用于
LineFormat 对象
描述
返回或设置指定的直线起点处的箭头长度。可为下列 MsoArrowheadLength常量之一：msoArrowheadLengthMedium、msoArrowheadLengthMixed、msoArrowheadLong 或 msoArrowheadShort。Long 类型，可读写。
示例
本示例向 myDocument 中添加直线。在该直线的起点有一个短而窄的椭圆，而在该直线的终点则有一个长而宽的三角形。
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddLine(100, 100, 200, 300).Line
.BeginArrowheadLength = msoArrowheadShort
.BeginArrowheadStyle = msoArrowheadOval
.BeginArrowheadWidth = msoArrowheadNarrow
.EndArrowheadLength = msoArrowheadLong
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadWidth = msoArrowheadWide
End With
适用于
LineFormat 对象
描述
返回或设置指定的直线起点处的箭头样式。可为下列 MsoArrowheadStyle常量之一：msoArrowheadDiamond、 msoArrowheadNone、msoArrowheadOpen、 msoArrowheadOval、 msoArrowheadStealth、
msoArrowheadStyleMixed 或 msoArrowheadTriangle。Long 类型，可读写。
示例
本示例向 myDocument 中添加直线。在该直线的起点有一个短而窄的椭圆，而在该直线的终点则有一个长而宽的三角形。
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddLine(100, 100, 200, 300).Line
.BeginArrowheadLength = msoArrowheadShort
.BeginArrowheadStyle = msoArrowheadOval
.BeginArrowheadWidth = msoArrowheadNarrow
.EndArrowheadLength = msoArrowheadLong
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadWidth = msoArrowheadWide
End With
适用于
LineFormat 对象
描述
返回或设置指定的直线起点处的箭头宽度。可为下列 MsoArrowheadWidth常量之一：msoArrowheadNarrow，msoArrowheadWide，msoArrowheadWidthMedium 或 msoArrowheadWidthMixed。Long 类型，可读写。
示例
本示例向 myDocument 中添加直线。在该直线的起点有一个短而窄的椭圆，而在该直线的终点则有一个长而宽的三角形。
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddLine(100, 100, 200, 300).Line
.BeginArrowheadLength = msoArrowheadShort
.BeginArrowheadStyle = msoArrowheadOval
.BeginArrowheadWidth = msoArrowheadNarrow
.EndArrowheadLength = msoArrowheadLong
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadWidth = msoArrowheadWide
End With
适用于
ConnectorFormat 对象
描述
将指定的连接符的起点连接到指定的形状上。如果在连接符的起点与其它形状之间已经有了连接，那么该已有的连接将中断。如果连接符的起点不在所需的连接节点上，本方法将把连接符的起点移到该连接节点，并对连接符的大小和位置作相应的调整。可用 EndConnect 方法将连接符的终点连接到某一形状上。
句法
expression.BeginConnect(ConnectedShape, ConnectionSite)
expression
必选。该表达式返回 ConnectorFormat 对象。
ConnectedShape
Shape 对象类型，必选。要连接到连接符的起点上的形状。此处所指定的Shape 对象必须与连接符处于同一 Shapes 集合中。
ConnectionSite
Long 类型，必选。由 ConnectedShape 参数所指定的形状上的连接节点，必须是从 1 到指定形状的 ConnectionSiteCount 属性值之间的整数。如果要找到连接符连接两个形状的最短路径，可先在此参数中指定任一有效整数，然后在连接符与两端的形状都连接完成之后，使用 RerouteConnections方法。
说明
将连接符连接到某一对象上时，该连接符的尺寸和位置都将自动作必要调整。
示例
本示例向 myDocument 中添加了两个矩形，并用弯曲的连接符将这两个矩形连接起来。请注意，对 RerouteConnections 方法的调用使得在BeginConnect 方法和 EndConnect 方法中所指定的 ConnectionSite 参数变得无关紧要。
Set myDocument = Worksheets(1)
Set s = myDocument.Shapes
Set firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100)
Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100)
Set c = s.AddConnector(msoConnectorCurve, 0, 0, 100, 100)
with c.ConnectorFormat
.BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
.EndConnect ConnectedShape:=secondRect, ConnectionSite:=1
c.RerouteConnections
End With
适用于
ConnectorFormat 对象
描述
如果指定的连接符的起点已连接到了某一形状上，本属性为 True。
Long 类型，只读。
示例
如果 myDocument 上的第三个形状是连接符，且它的起点已连接到了某一形状上，本示例将把连接节点的编号存储到变量 oldBeginConnSite 中，把对所连接的形状的引用存储到对象变量 oldBeginConnShape 中，然后断开连接符的起点与形状的连接。
Set myDocument = Worksheets(1)
With myDocument.Shapes(3)
If .Connector Then
With .ConnectorFormat
If .BeginConnected Then
oldBeginConnSite = .BeginConnectionSite
Set oldBeginConnShape = .BeginConnectedShape
.BeginDisconnect
End If
End With
End If
End With
适用于
ConnectorFormat 对象
描述
返回 Shape 对象，该对象代表连接在指定的连接符的起点上的形状。只读。
注意：如果指定的连接符的起点并未连接到任何形状上，那么本属性将导致错误。
示例
本示例假定在 myDocument 上，有两个用连接符“Conn1To2”连接起来的形状。
本示例的代码将向 myDocument 添加一个矩形和一个连接符。新添加的连接符的起点将连接到“Conn1To2”的起点所连接的同一连接节点上，而新添加的连接符的终点则连接到新添加的矩形的第一个连接节点上。
Set myDocument = Worksheets(1)
With myDocument.Shapes
Set r3 = .AddShape(msoShapeRectangle, 450, 190, 200, 100)
.AddConnector(msoConnectorCurve, 0, 0, 10, 10).Name =
_"Conn1To3"
With .Item("Conn1To2").ConnectorFormat
beginConnSite1 = .BeginConnectionSite
Set beginConnShape1 = .BeginConnectedShape
End With
With .Item("Conn1To3").ConnectorFormat
.BeginConnect beginConnShape1, beginConnSite1
.EndConnect r3, 1
End With
End With
适用于
ConnectorFormat 对象
描述
返回代表连接符的起点所连接的连接节点的整数。Long 类型，只读。
注意：如果指定的连接符的起点并未连接到任何形状上，那么本属性将导致错误。
示例
本示例假定在 myDocument 上，有两个用连接符“Conn1To2”连接起来的
形状。本示例的代码将向 myDocument 添加一个矩形和一条连接符。新添加的连接符的起点将连接到“Conn1To2”的起点所连接的同一连接节点上，而新添加的连接符的终点则连接到新添加的矩形的第一个连接节点上。
Set myDocument = Worksheets(1)
With myDocument.Shapes
Set r3 = .AddShape(msoShapeRectangle, 450, 190, 200, 100)
.AddConnector(msoConnectorCurve, 0, 0, 10, 10).Name =
_"Conn1To3"
With .Item("Conn1To2").ConnectorFormat
beginConnSite1 = .BeginConnectionSite
Set beginConnShape1 = .BeginConnectedShape
End With
With .Item("Conn1To3").ConnectorFormat
.BeginConnect beginConnShape1, beginConnSite1
.EndConnect r3, 1
End With
End With
适用于
ConnectorFormat 对象
描述
使指定的连接符的起点与其所连接的形状脱离。本方法并不修改连接符的尺寸和位置：连接符的起点仍保留在原来所连接的连接节点的位置，但与该连接节点之间不再有连接。可用 EndDisconnect 方法使连接符的终点与某一形状脱离。
句法
expression.BeginDisconnect
expression
必选。该表达式返回 ConnectorFormat 对象。
示例
本示例向 myDocument 中添加了两个矩形，用连接符将这两个矩形连接起来，并自动将连接符调整到最短路径，然后又断开连接符与矩形的连接。
Set myDocument = Worksheets(1)
Set s = myDocument.Shapes
Set firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100)
Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100)
Set c = s.AddConnector(msoConnectorCurve, 0, 0, 0, 0)
With c.ConnectorFormat
.BeginConnect firstRect, 1
.EndConnect secondRect, 1
c.RerouteConnections
.BeginDisconnect
.EndDisconnect
End With
适用于
PageSetup 对象
描述
如果指定文档中的元素以黑白方式打印则为 True。Boolean 类型，可读写。
说明
本属性仅应用于工作表页。
示例
本示例设置 Sheet1 以黑白方式打印。
Worksheets("Sheet1").PageSetup.BlackAndWhite = True
适用于
Shape 对象，ShapeRange 集合对象
描述
本属性不能用于 Microsoft Excel 中。提供本属性只是为了保持与其它Microsoft Office 应用程序的图形对象模型的兼容性。
适用于
Font 对象
描述
如果字体设为加粗格式则为 True。Variant 类型，可读写。
示例
本示例将 Sheet1 的 A1:A5 区域的字体设为加粗。
Worksheets("Sheet1").Range("A1:A5").Font.Bold = True
描述
代表对象的边框。使用Border对象绝大多数具有边框的对象（即除 Range 和 Style 对象外的所有具有边框的对象）都将其边框作为单一实体处理，不管该对象具有几个边。整个边框必须作为一个整体单位来返回。对于此类对象，应当用 Border 属性返回Border 对象。下例激活图表工作表“图表1”，将活动图表的图表区边框置为虚线边框，而将图形区边框置为点线边框。
Charts(揅hart1?.Activate
With ActiveChart
.ChartArea.Border.LineStyle = xlDash
.PlotArea.Border.LineStyle = xlDot
End With
Range和Style对象具有四个分立的边框：左边框、右边框、顶端边框和底端边框，这四个边框既可单独返回，也可同时返回。可用Borders属性返回Borders集合，该集合包含所有四个边框。下例向第一个工作表上的单元格“A1”添加双边框。
Worksheets(1).Range("a1").Borders.LineStyle = xlDouble
可用 Borders(index) （其中 index 指定要返回的边框）返回单个 Border 对象。下例设置单元格区域“A1:G1”的底端边框的颜色。
Worksheets("Sheet1").Range("a1:g1"). _
Borders(xlEdgeBottom).Color = RGB(255, 0, 0)
Index 可为下列 XlBorderIndex常量之一： xlInsideHorizontal，
lInsideVertical，xlDiagonalDown，xlDiagonalUp，xlEdgeBottom，
xlEdgeLeft，xlEdgeRight 或 xlEdgeTop。
属性
Application 属性，Color 属性，ColorIndex 属性，Creator 属性,，LineStyle属性，Parent 属性，Weight 属性
适用于
Axis 对象，AxisTitle 对象，CalloutFormat 对象，ChartArea 对象，ChartObject 对象，ChartObjects 集合对象，ChartTitle 对象，DataLabel 对象，DataLabels 集合对象，DataTable 对象，DisplayUnitLabel 对象，DownBars 对象，DropLines 对象，ErrorBars 对象，Floor 对象，Gridlines对象，HiLoLines 对象，LeaderLines 对象，Legend 对象，LegendKey 对象，OLEObject 对象，OLEObjects 集合对象，PlotArea 对象，Point 对象，Series 对象，SeriesLines 对象，Trendline 对象，UpBars 对象，Walls对象
描述
返回一个 Border 对象，该对象代表选定对象的边框。只读。
示例
本示例将“图表1”的图表区边框颜色设为红色。
Charts(揅hart1?.ChartArea.Border.ColorIndex = 3
适用于
Range 对象
描述
向单元格区域添加边框，并设置该边框的Color、LineStyle和Weight 属性。
句法
expression.BorderAround(LineStyle, Weight, ColorIndex, Color)
expression
必选。该表达式返回一个 Range 对象。
LineStyle
Variant 类型，可选。边框的线条样式。可为下列 XlLineStyle 常量之一：xlContinuous，xlDash，xlDashDot，xlDoshDotDot，xlDot，xlDouble，xlLineStyle None或xlSlantDashDot。默认值为Continuous。
Weight
Variant 类型，可选。边框的粗细。可为下列 XlBorderWeight 常量之一：xlHairline、xlThin、 xlMedium 或 xlThick。默认值为 xlThin。
ColorIndex
Variant 类型，可选。边框的颜色，为当前调色板中颜色的编号，或下列XlColorIndex 常量之一： xlColorIndexAutomatic 或 xlColorIndexNone。
Color
Variant 类型，可选。以 RGB 值指定边框的颜色。
说明
可指定 ColorIndex 或者 Color，但不能同时指定两者。同样，可指定 LineStyle 或 Weight，但不能同时指定两者。如果两者均未指定， Microsoft Excel 将创建默认边框。
本方法只是给出整个区域的外框，而不填充该区域。如果要设置所有单元格的边框，就必须设置 Borders 集合的 Color、 LineStyle 和 Weight 属性。如果要清除边框，则必须将区域中所有单元格的 LineStyle 属性设置为xlrLineStyleNone。
示例
本示例向工作表“Sheet1”中的区域“A1:D4”添加红色的粗外框。
Worksheets("Sheet1").Range("A1:D4").BorderAround _
ColorIndex:=3, Weight:=xlThick
描述
由分别代表Range对象和Style对象的四个边框的四个Border对象组成的集合。
使用Borders 集合
可用 Borders 属性返回 Borders 集合，该集合包含所有四个边框。下例向第一个工作表上的单元格“A1”添加双边框。
Worksheets(1).Range("a1").Borders.LineStyle = xlDouble可用 Borders(index) （其中 index 识别要返回的边框）返回单个 Border 对象。下例将单元格区域“A1:G1”的底端边框设置为红色。
Worksheets("Sheet1").Range("a1:g1"). _
Borders(xlEdgeBottom).Color = RGB(255, 0, 0)
Index 可为下列 XlBorderIndex 常量之一： xlInsideHorizontal、
xlInsideVertical、 xlDiagonalDown、 xlDiagonalUp、 xlEdgeBottom、
xlEdgeLeft、 xlEdgeRight 或 xlEdgeTop。
说明
仅对 Range 和 Style 对象才能单独地设置单个边框的属性。对于其它具有边框的对象，例如复选框和图表区，不管该对象具有几个边，其边框都作为单一实体处理。对于这些对象，整个边框必须作为一个整体单位来返回或设置属性。详细内容另见 Border 对象。
属性
Applicatioon属性，Color属性，ColorIndex属性，Count属性，Creator属性，Item 属性（Borders集合），LineStyle属性，Parent属性，Value属性，Weight属性
适用于
FormatCondition 对象，Range 对象，Style 对象
描述
返回 Borders 集合，该集合代表样式或单元格区域（包括定义为条件格式一部分的区域）的四个边框。只读。
示例
本示例将工作表“Sheet1”中单元格“B2”的底端边框颜色设置为红色。
With Worksheets("Sheet1").Range("B2").Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 3
End With
适用于
PageSetup 对象
描述
以磅为单位返回或者设置底端边距的大小。Double 类型，可读写。
说明
边距的设置和返回均以磅为单位。可使用 InchesToPoints 方法进行英寸到磅值的转换，也可使用 CentimetersToPoints 方法进行厘米到磅值的转换。
另见
LeftMargin 属性， RightMargin 属性， TopMargin 属性
示例
下列两个示例将 Sheet1 的底端边距设为 0.5 英寸（36 磅）。
Worksheets("Sheet1").PageSetup.BottomMargin = _
Application.InchesToPoints(0.5)
Worksheets("Sheet1").PageSetup.BottomMargin = 36
本示例显示 “Sheet1” 底端边距的当前设定值。
marginInches = Worksheets("Sheet1").PageSetup.BottomMargin / _
Application.InchesToPoints(1)
MsgBox "The current bottom margin is " & marginInches & " inches"
适用于
ChartObject 对象，OLEObject 对象，Shape 对象
描述
返回一个 Range 对象，该对象代表指定对象右下角的单元格。只读。
另见
示例
本示例显示 Sheet1 的第一个嵌入式图表右下角单元格的地址。
MsgBox "The bottom right corner is over cell " & _
Worksheets("Sheet1").ChartObjects(1).BottomRightCell.Address
适用于
PictureFormat 对象
描述
返回或设置指定的图片或 OLE 对象的亮度。本属性的值必须是从 0.0（最暗）到 1.0（最亮）之间的数。Single 类型，可读写。
示例
本示例设置 myDocument 上的第一个形状的亮度。第一个形状必须是图片或 OLE 对象。
Set myDocument = Worksheets(1)
myDocument.Shapes(1).PictureFormat.Brightness = 0.3
适用于
ChartObject 对象，ChartObjects 集合对象，OLEObject 对象，OLEObjects集合对象
描述
将指定对象置于z-顺序的最前面。
句法
expression.BringToFront
expression
必选，该表达式返回“适用于”列表中的某个对象。
另见
示例
本示例将 Sheet1 中的第一个嵌入式图表放到 z-顺序前面。
Worksheets("Sheet1").ChartObjects(1).BringToFront
适用于
ChartGroup 对象
描述
返回或设置指定图表组中气泡的缩放比例。可为从 0（零）到 300 的整数，表示相应于默认大小的百分率，仅适用于于气泡图。Long 类型，可读/写。
示例
本示例将第一个图表组中的气泡大小设置为默认大小的 200%。
With Worksheets(1).ChartObjects(1).Chart
.ChartGroups(1).BubbleScale = 200
End With
适用于
Series 对象
描述
返回或设置 A1-样式的字符串，该字符串指向含有气泡图大小数据的工作表单元格。仅
适用于于气泡图。Variant 类型，可读写。
示例
本示例显示一单元格引用，该单元格中包含气泡图大小数据。
MsgBox Worksheets(1).ChartObjects(1).Chart _
.SeriesCollection(1).BubbleSizes
适用于
Application 对象
描述
返回 Microsoft Excel 连编号。
Long 类型，只读。
说明
通常检测 Version 属性较为安全，除非必须要获知连编号。
另见
示例
本示例检测 Build 属性。
If Application.Build > 2500 Then
' build-dependent code here
End If
适用于
Shapes 集合对象
描述
创建任意多边形对象。返回 FreeformBuilder 对象，该对象代表正在创建之中的任意多边形。可用 AddNodes 方法向任意多边形添加线段。如果任意多边形中已包含了一个以上的线段，就可用ConvertToShape方法将FreeformBuilder对象转换为Shape对象，该对象将具有在FreeformBuilder对象中所定义的几何属性。
句法
expression.BuildFreeform(EditingType, X1, Y1)
expression
必选。该表达式返回 Shapes 对象。
EditingType
Long 类型，必选。第一个节点的编辑属性。可为下列 MsoEditingType 常量之一：msoEditingAuto 或 msoEditingCorner（不能是 msoEditingSmooth或 msoEditingSymmetric）。
X1, Y1
Single 类型，必选。相对于文档的左上角，以磅为单位给出任意多边形第一个节点的位置。
示例
本示例向 myDocument 中添加带有五个顶点的任意多边形。
Set myDocument = Worksheets(1)
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200)
.AddNodes msoSegmentCurve, msoEditingCorner, _380, 230, 400, 250, 450, 300
.AddNodes msoSegmentCurve, msoEditingAuto, 480, 200
.AddNodes msoSegmentLine, msoEditingAuto, 480, 400
.AddNodes msoSegmentLine, msoEditingAuto, 360, 200
.ConvertToShape
End With
适用于
Style 对象
描述
如果指定样式为内置样式，本属性为 True。Boolean 类型，只读。
示例
本示例在第一张工作表上创建列表，该列表包含活动工作簿中所有样式的名称，并指明这些样式是否为内置样式。
r = 0
Worksheets(1).Activate
For Each s In ActiveWorkbook.Styles
r = r + 1
Cells(r, 1).Value = s.Name
Cells(r, 2).Value = s.BuiltIn
Next
适用于
Workbook 对象
描述
返回一个 DocumentProperties 集合，该集合代表指定工作簿的所有内置文档属性。只读。
说明
本属性返回的是内置文档属性的整个集合。通过指定属性的名称或集合中的索引号（数字），用 Item 方法可返回集合中的单个成员（一个DocumentProperty 对象）。
可通过索引值或名称来引用文档属性。以下是有效的内置文档属性的名称：
| Title | Subject | Author |
| Keywords | Comments | Template |
| Last Author | Revision Number | Application Name |
| Last Print Date | Creation Date | Last Save Time |
| Total Editing Time | Number of Pages | Number of Words |
| Number of Characters | Security | Category |
| Format | Manager | Company |
| Number of Bytes | Number of Lines | Number of Paragraphs |
| Number of Slides | Number of Notes | Number of HiddenSlides |
| Number of MultimediaClips | Hyperlink Base | Number of Characters(with spaces) |
无须通过容器应用程序对每一内置文档属性值进行定义。如果 MicrosoftExcel 对某个内置文档属性值没有定义，则读取该文档属性的 Value 属性时将产生错误。
由于Item方法是DocumentProperties集合的默认方法，所以下列语句是相同的：
BuiltinDocumentProperties.Item(1)
BuiltinDocumentProperties(1)
使用 CustomDocumentProperties 属性可返回自定义文档属性的集合。
示例
本示例在第一个工作表中显示所有内置文档属性的列表。
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw, 1).Value = p.Name
rw = rw + 1
Next