适用于
PivotTable 对象
描述
返回或设置数据透视表高速缓存的索引号。Long 类型，可读写。
说明
如果将某一数据透视表报表的CacheIndex属性设置为使用另一数据透视表报表的高速缓存，前者中的字段必须是后者中字段的有效子集。
示例
本示例使数据透视表报表“Pivot1”使用数据透视表报表“Pivot2”的高速缓存。
Worksheets(1).PivotTables("Pivot1").CacheIndex = _
Worksheets(1).PivotTables("Pivot2").CacheIndex
适用于
Chart 对象，Worksheet 对象
描述
Chart 对象：在图表对新的数据点或者更改的数据点绘制之后产生此事件。Worksheet 对象：在对工作表进行重新计算之后产生此事件。
句法
Private Sub object_Calculate()
object
Chart 对象或 Worksheet 对象。
另见
示例
本示例每当工作表重新计算时就对 A 列到 F 列的宽度进行调整。
Private Sub Worksheet_Calculate()
Columns("A:F").AutoFit
End Sub
适用于
Application 对象，Range 对象，Worksheet 对象
描述
计算所有打开的工作簿、工作簿中的一张特定的工作表或者工作表中指定区域的单元格，如下表所示：
| 要计算 | 依照本示例 |
| 所有打开的工作簿 | Application.Calculate (or just Calculate) |
| 指定工作表 | Worksheets(1).Calculate |
| 指定区域 | Worksheets(1).Rows(2).Calculate |
句法
expression.Calculate
expression
对于 Application 对象可选，对于 Worksheet 对象和 Range 对象必选。该表达式返回“适用于”列表中的某个对象。
示例
本示例计算 Sheet1 已用区域中 A 列、B 列和 C 列的公式。
Worksheets("Sheet1").UsedRange.Columns("A:C").Calculate
适用于
Application 对象
描述
如果将工作簿保存到磁盘之前先进行计算则为 True（如果将 Calculation属性设为 xlManual）。该属性不随 Calculation 属性的改变而改变，Boolean类型，可读写。
示例
本示例设置 Microsoft Excel 保存工作簿到磁盘之前对工作簿进行计算。
Application.Calculation = xlManual
Application.CalculateBeforeSave = True
描述
PivotField 对象的集合，这些 PivotField 对象代表指定数据透视表报表中所有已计算字段。例如，在一个包含 Revenue 字段和 Expense 字段的数据透视表中，可将一个已计算字段定义为 Revenue 字段的值与 Expense 字段的值之差，并命名为“Profit”。
说明
对于OLAP数据源，不能设置此集合，并总是返回Nothing。
使用 CalculatedFields 集合
使用 CalculatedFields 方法可返回 CalculatedFields 集合。下列示例删除第一张数据透视表中的已计算字段。
For Each fld in
_Worksheets(1).PivotTables("Pivot1").CalculatedFields
fld.Delete
Next
使用 CalculatedFields(index) （其中 index 为指定字段的名称或索引号）可返回 CalculatedFields 集合中的单个 PivotField 对象。
属性
Application 属性，Count 属性，Creator 属性，Parent 属性
方法
Add 方法（CalculatedFields或CalculatedItems集合），Item 方法（CalculatedFields 集合）
适用于
PivotTable 对象
描述
返回 CalculatedFields 集合，该集合代表指定数据透视表中的所有计算结果字段。只读。
句法
expression.CalculatedFields
expression
必选。该表达式返回 PivotTable 对象。
示例
本示例使计算结果字段不能被拖至行。
For Each fld in _
Worksheets(1).PivotTables("Pivot1")_
.CalculatedFields
fld.DragToRow = False
Next
描述
PivotItem 对象的集合，这些 PivotItem 对象代表指定数据透视表中的所有已计算数据项。例如，在一个包含 January 数据项、 February 数据项和
March 数据项的数据透视表中，可将一个已计算数据项定义为 January 数据项、 February 数据项和 March 数据项的和，并命名为“FirstQuarter”。
使用 CalculatedItems 集合
使用 CalculatedItems 方法可返回一个 CalculatedItems 集合。下列示例为第一张数据透视表创建已计算字段的列表，包括其公式。
Set pt = Worksheets(1).PivotTables(1)
For Each ci In pt.PivotFields("Sales").CalculatedItems
r = r + 1
With Worksheets(2)
.Cells(r, 1).Value = ci.Name
.Cells(r, 2).Value = ci.Formula
End With
Next
使用 CalculatedFields(index)（其中 index 为指定字段的名称或索引号）可返回 CalculatedFields 集合中的单个 PivotField 对象。
属性
Application 属性，Count 属性，Creator 属性，Parent 属性
方法
Add 方法（CalculatedFields或CalculatedItems集合），Item 方法（CalculatedItems集合）
适用于
PivotField 对象
描述
返回 CalculatedItems 集合，该集合代表指定数据透视表中的所有计算结果项目。只读。
句法
expression.CalculatedItems
expression
必选。该表达式返回 PivotField 对象。
说明
对于OLAP数据源，此方法返回一个零长度（zero-length）集合。
示例
本示例创建计算结果项目及其公式的列表。
Set pt = Worksheets(1).PivotTables(1)
For Each ci In pt.PivotFields("Sales").CalculatedItems
r = r + 1
With Worksheets(2)
.Cells(r, 1).Value = ci.Name
.Cells(r, 2).Value = ci.Formula
End With
Next
适用于
Application 对象
描述
强制对所有打开的工作簿进行的完全计算。
另见
示例
下面的例子比较了当前的Excel版本号和工作簿最后一次计算时所使用Excel的版本号。若两个版本号不同，则将重新计算所有打开工作簿中的数据。
If Application.CalculationVersion <> _
Workbooks(1).CalculationVersion Then
Application.CalculateFull
End If
适用于
Application 对象，PivotField 对象
描述
Application 对象：返回或者设置计算模式。可为下列 XlCalculation 常数之一： xlCalculationAutomatic、 xlCalculationManual 或xlCalculationSemiautomatic。
PivotField 对象：返回或者设置指定数据透视表字段计算结果的类型。可
为下列 XlPivotFieldCalculation 常数之一： xlDifferenceFrom，xlIndex，xlNormal，xlPercentDifferenceFrom，xlPercentOf，xlPercentOfColumn，xlPercentOfRow，xlPercentOfTotal 或 xlRunningTotal。仅对数据字段有效。Long 类型，可读写。
说明
对于OLAP数据源，本属性仅能返回或设置为xlNormal。
另见
示例
本示例设置 Microsoft Excel 在将工作簿保存回磁盘之前对工作簿进行计算。
Application.Calculation = xlCalculateManual
Application.CalculateBeforeSave = True
本示例将“Sheet1”的数据透视表中数据字段设为计算与基准字段的差，设置基准字段为“ORDER_DATE”字段，并将基准数据项设为“5/16/89”。
With Worksheets("Sheet1").Range("A3") PivotField
.Calculation = xlDifferenceFrom
.BaseField = "ORDER_DATE"
.BaseItem = "5/16/89"
End With
适用于
Application 对象，Workbook 对象
描述
返回一个数值，它的右四位为最低的计算引擎版本号，而剩下靠左的数字为文件上次存盘所使用的Microsoft Excel的最高版本号。只读，Long类型。
另见
示例
本例将计算第一个工作表所使用的版本号与当前的进行比较。如果版本号不相同，则设置blnFullCalc变量为True。
If Application.CalculationVersion <> _
Workbooks(1).CalculationVersion Then
blnFullCalc = True
Else
blnFullCalc = False
End If
适用于
Application 对象
描述
返回关于调用 Visual Basic 的信息（详细内容另见“说明”部分）。
句法
expression.Caller(Index)
expression
必选。该表达式返回 Application 对象。
Index
Variant 类型，可选。数组的索引。仅当本属性返回数组时此参数才有用（详细内容另见“说明”部分）。
说明
本属性返回关于调用 Visual Basic 的信息，如下表所示。
| 调用进程 | 返回值 |
| 在单个单元格中输入的自定义函数 | 指定该单元格的 Range 对象 |
| 在单元格区域中作为数组公式的一部分的自定义函数 | 指定该单元格区域的 Range 对象 |
| Auto_Open，Auto_Close，Auto_Activate或 Auto_Deactivate 宏 | 以文本方式返回的文档名 |
| 由 OnDoubleClick 或 OnEntry 属性所指定的宏 | 该宏所应用的图表对象标识符或单元格引用（若适用于）的名称 |
| “工具 ”菜单中的“宏”对话框，或上述之外的其它调用者 | #REF! 错误值 |
示例
本示例显示关于调用 Visual Basic 的信息。
Select Case TypeName(Application.Caller)
Case "Range"
v = Application.Caller.Address
Case "String"
v = Application
.CallerCase "Error"
v = "Error"
Case Else
v = "unknown"
End Select
MsgBox "caller = " & v
适用于
Shape 对象，ShapeRange 集合对象
描述
返回 CalloutFormat 对象，该对象包含指定形状的标注格式属性。应用于代表线形标注的 Shape 或 ShapeRange 对象。只读。
示例
本示例向 myDocument 中添加椭圆和指向该椭圆的标注。该标注的文字没有边框，但用垂直的强调线分开标注文字和标注线。
Set myDocument = Worksheets(1)
With myDocument.Shapes
.AddShape msoShapeOval, 180, 200, 280, 130
With .AddCallout(msoCalloutTwo, 420, 170, 170, 40)
.TextFrame.Characters.Text = "My oval"
With .Callout
.Accent = True
.Border = False
End With
End With
End With
描述
包含应用于线形标注的属性和方法。
使用CalloutFormat 对象
可用 Callout 属性返回CalloutFormat对象。下例指定了myDocument上第三个形状（线形标注）的下述属性：用垂直强调线将标注的文字和标注线分开；标注线和标注文字边框的夹角为30度；标注文字周围没有边框；标注线连接到标注文字框的顶端；标注线由两节组成。为使本示例正常运行，第三个形状必须是标注。
Set myDocument = Worksheets(1)
With myDocument.Shapes(3).Callout
.Accent = True
.Angle = msoCalloutAngle30
.Border = False
.PresetDrop msoCalloutDropTop
.Type = msoCalloutThree
End With
属性
Accent 属性，Angle 属性，Application 属性，AutoAttach 属性，AutoLength属性，Border 属性，Creator 属性，Drop 属性，DropType 属性，Gap 属性，Length 属性，Parent 属性，Type 属性
方法
AutomaticLength 方法，CustomDrop 方法，CustomLength 方法，PresetDrop 方法
适用于
QueryTable 对象
描述
取消指定查询表的所有后台查询。使用 Refreshing 属性可判断当前是否有后台查询处于运行状态。
句法
expression.CancelRefresh
expression
必选。该表达式返回一个 QueryTable 对象。
示例
本示例取消查询表的刷新操作。
With Worksheets(1).QueryTables(1)
If .Refreshing Then .CancelRefresh
End With
适用于
Application 对象
描述
本属性不再使用。声音附注已经从 Microsoft Excel 中删除。
另见
适用于
Application 对象
描述
本属性不再使用。声音附注已经从 Microsoft Excel 中删除。
另见
适用于
AutoCorrect 对象
描述
如果日期名称的第一个字母自动大写则为 True。Boolean 类型，可读写。
示例
本示例设置 Microsoft Excel 将日期名称的第一个字母大写。
With Application.AutoCorrect
.CapitalizeNamesOfDays = True
.ReplaceText = True
End With
适用于
Application 对象，AxisTitle 对象，Characters 对象，ChartTitle 对象，CubeField 对象，DataLabel 对象，DisplayUnitLabel 对象，PivotField 对象，PivotItem 对象，Window 对象
描述
依据对象类型返回具有不同含义的文本。String 类型，可读写，除非有下表所指出的例外。
| 对象类型 | 含义 |
| Application | 出现在 Microsoft Excel 主窗口标题栏中的名称。如果未设置该名称，或将其设置为 Empty，本属性返回“Microsoft Excel”。 |
| AxisTitle | 坐标轴标题文本。 |
| Characters | 该字符范围内的文本。 |
| ChartTitle | 图表标题文本。 |
| CuleField,PivotItem,PirotField | Cube字段、PivotTable字段或PivotTable项目的标志文本。 |
| DataLabel | 数据标志文本。 |
| Window | 出现在文档窗口标题栏中的名称。如果设置了该名称，就可用该名称作为 Windows 属性的索引（参见第二个示例）。 |
表列出了Caption及其相关属性的范例值，给出一个用形如
“[Europe].[France].
[Paris]”的字样来唯一标识的OLAP数据源和一个名为“Paris”的非OLAP数据源。
| 属性 | 数值（OLAP数据源） | 数值（非OLAP数据源） |
| Caption | Paris | Paris |
| Name | [Europe].[France].[Paris]（只读） | Paris |
| SourceName | [Europe].[France].[Paris]（只读） | （与SQL属性值相同，只读） |
| Value | [Europe].[France].[Paris]（只读） | Paris |
在PivotItems集合里使用时，请使用下表列出的句法。
| 句法（OLAP数据源） | 句法（非OLAP数据源） |
| Expression.PivotItems("[Europe].[France].[Paris]") | Expression.PivotItems("Paris") |
当使用Item属性来代表一个特定的集合成员，另见下表。
| Name（OLAP数据源） | Name（非OLAP数据源） |
| [Europe].[France].[Paris] | Paris |
另见
示例
本示例将出现在 Microsoft Excel 主窗口标题栏中的名称设置为自定义的名称（本例只能用于 Windows 中）。
Application.Caption = "Blue Sky Airlines Reservation System"
本示例将活动工作簿中第一个窗口的名称设置为“Consolidated BalanceSheet”，然后该名称被用作 Windows 属性的索引。
ActiveWorkbook.Windows(1).Caption = "Consolidated Balance Sheet"
ActiveWorkbook.Windows("Consolidated Balance Sheet") _
.ActiveSheet.Calculate
适用于
Name 对象
描述
返回或者设置指定名称在宏语言中的分类。该名称必须针对一个自定义函数或命令。String 类型，可读写。
另见
示例
本示例假定已在 Microsoft Excel 4.0 宏表中创建了一个自定义函数或命令。本示例显示该名称在宏语言中的分类。假定该自定义函数或命令的名称在指定工作簿中是唯一的。
With ActiveWorkbook.Names(1)
If .MacroType <> xlNone Then
MsgBox "The category for this name is " & .Category
Else
MsgBox "This name does not refer to" & _
"a custom function or command."
End If
End With
适用于
Name 对象
描述
如果指定名称为自定义函数或命令，返回或者设置以用户语言表示名称的类别。String 类型，可读写。
另见
示例
本示例以用户语言显示由 Microsoft Excel 4.0 宏表创建的自定义函数或命令的类别。
本示例假定指定的函数名称或命令名称在工作簿中是唯一的。
With ActiveWorkbook.Names(1)
If .MacroType <> xlNone Then
MsgBox "The category for this name is " & .CategoryLocal
Else
MsgBox "This name does not refer to " & _
"a custom function or command."
End If
End With
适用于
Axis 对象
描述
以文本数组形式返回或者设置指定坐标轴中所有分类的名称。该属性既可设为一个数组，也可设为一个包含所有分类名称的 Range 对象。Variant 类型，可读写。
说明
分类名实际上是坐标轴组中“特定”系列的属性。删除或者更改此特定系列将改变所有使用该坐标轴的系列的分类名。
另见
Formula 属性， Value 属性， XValves 属性
示例
本示例将“图表1”的分类名设为 Sheet1 中 B1:B5 单元格的值。
Set Charts(揅hart1?.Axes(xlCategory).CategoryNames = _
Worksheets("Sheet1").Range("B1:B5")
本示例使用数组对“图表1”的个别分类名进行设置。
Charts("Chart1").Axes(xlCategory).CategoryNames = _
Array ("1985", "1986", "1987", "1988", "1989")
适用于
Axis 对象
描述
返回或设置分类轴类型。可为下列 XlCategoryType 常量之一：
xlCategoryScale、 xlTimeScale 或 xlAutomaticScale。Long 类型，可读写。
说明
不能对数值轴设置本属性。
另见
BaseUnit 属性， BaseUnitIsAuto 属性， MajorUnitScale 属性， MinorUnitScale 属性， Type 属性
示例
本示例使第一张工作表中第一张内嵌图表的分类轴使用时间刻度， 并以月
为基本单位。
With Worksheets(1).ChartObjects(1).Chart
With .Axes(xlCategory)
.CategoryType = xlTimeScale
.BaseUnit = xlMonths
End With
End With
适用于
Application 对象
描述
如果允许拖放单元格则为 True。Boolean 类型，可读写。
示例
本示例打开允许拖放单元格的功能。
Application.CellDragAndDrop = True
适用于
Application 对象，Range 对象，Worksheet 对象
描述
Application 对象：返回 Range 对象，该对象代表活动工作表中所有的单元格。如果当前活动文档不是工作表，本属性将失败。只读。
Range 对象：返回 Range 对象，该对象代表指定区域内的所有单元格（换句话说，本属性未做任何事情）。只读。
Worksheet 对象：返回 Range 对象，该对象代表工作表中所有的单元格（不仅是当前正在使用的单元格）。只读。
说明
因为 Item 属性是 Range 对象的默认属性，所以可在 Cells 关键字后直接指定行号和列标。详细内容另见 Item 属性及本帮助主题的
示例。
使用本属性时，如果不指定对象识别符，本属性将返回代表活动工作表中所有单元格的 Range 对象。
示例
本示例将工作表“Sheet1”中单元格“C5”的字体大小设置为 14 磅。
Worksheets("Sheet1").Cells(5, 3).Font.Size = 14
本示例清除工作表“Sheet1”中第一个单元格的公式。
Worksheets("Sheet1").Cells(1).ClearContents
本示例将工作表“Sheet1”中所有单元格的字体设置为 8 磅的“Arial”字体。
With Worksheets("Sheet1").Cells.Font
.Name = "Arial"
.Size = 8
End With
本示例在工作表“Sheet1”上的单元格区域“A1:J4”中循环，将其中小于 0.001的值替换为 0（零）。
For rwIndex = 1 to 4
For colIndex = 1 to 10
With Worksheets("Sheet1").Cells(rwIndex, colIndex)
If.Value<.001 Then .Value=0
End With
Next colIndex
Next rwIndex
本示例将工作表“Sheet1”中单元格区域“A1: C5”的字体样式设置为倾斜。
Worksheets("Sheet1").Activate
Range(Cells(1, 1), Cells(5, 3)).Font.Italic = True
本示例搜索列“myRange”中的数据。如果发现某单元格的值与其上一个单元格的值相等，本示例将显示这个包含重复数据的单元格的地址。
Set r = Range("myRange")
For n = 1 To r.Rows.Count
If r.Cells(n, 1) = r.Cells(n + 1, 1) Then
MsgBox "Duplicate data in " & r.Cells(n + 1, 1).Address
End If
Next n
适用于
PageSetup 对象
描述
返回或者设置页脚的中心部分内容。String 类型，可读写。
说明
脚注文字可使用特定格式设置代码。
另见
CenterHeader 属性， LeftFooter 属性， LeftHeader 属性， RightFooter 属性， RightHeader 属性
示例
本示例设置在每一页的底端打印工作簿名称和页号。
Worksheets("Sheet1").PageSetup.CenterFooter = "&F page &P"
适用于
PageSetup 对象
描述
返回或者设置页眉的中心部分内容。String 类型，可读写。
说明
可在页眉文字中使用特定的格式设置代码。
另见
CenterFooter 属性， LeftFooter 属性， LeftHeader 属性， RightFooter 属性， RightHeader 属性
示例
本示例设置在每一页的顶端打印日期和页号。
Worksheets("Sheet1").PageSetup.CenterHeader = "&D page &P of &N"
适用于
PageSetup 对象
描述
如果页面的水平居中位置打印指定工作表则为 True。Boolean 类型，可读写。
另见
示例
本示例将 Sheet1 设为水平居中打印。
Worksheets("Sheet1").PageSetup.CenterHorizontally = True
适用于
PageSetup 对象
描述
如果页面的垂直居中位置打印指定工作表则为 True。Boolean 类型，可读写。
另见
示例
本示例将 Sheet1 设为垂直居中打印。
Worksheets("Sheet1").PageSetup.CenterVertically = True
适用于
Application 对象
描述
将计量单位从厘米转换为磅（一磅等于 0.035 厘米）。
句法
expression.CentimetersToPoints(Centimeters)
expression
必选。该表达式返回一个 Application 对象。
Centimeters
Double 类型，必选。指定要转换为磅值的厘米值。
另见
示例
本示例将 Sheet1 的左页边距设为 5 厘米。
Worksheets("Sheet1").PageSetup.LeftMargin = _
Application.CentimetersToPoints(5)
适用于
Worksheet 对象
描述
当用户更改工作表中的单元格，或外部链接引起单元格的更改时产生此事件。
句法
Private Sub Worksheet_Change(ByVal Target As Range)
Target
更改的区域。可为多个单元格。
说明
重新计算引起的单元格更改不触发本事件。可使用 Calculate 事件俘获工作表重新计算操作。
删除单元格并不触发此事件。
另见
示例
本示例将更改的单元格的颜色设为蓝色。
Private Sub Worksheet_Change(ByVal Target as Range)
Target.Font.ColorIndex = 5
End Sub
适用于
Workbook 对象
描述
更改工作簿的访问权限。本方法需要从磁盘加载工作簿的更新版本。
句法
expression.ChangeFileAccess(Mode, WritePassword, Notify)
expression
必选。该表达式返回一个 Workbook 对象。
Mode
Variant 类型，可选。指定新的访问模式。可为下列 XlFileAccess 常量之一： xlReadWrite 或 xlReadOnly。
WritePassword
Variant 类型，可选。如果指定文件为写保护的并且 Mode 设为xlReadWrite 则指定写保护密码。如果该文件没有密码或者 Mode 设为xlReadOnly 则忽略本参数。
Notify
Variant 类型，可选。如果设为 True 或者省略本参数，则当指定文件不可立即访问时提示用户。
说明
如果以只读模式打开文件，则不可独占访问此文件。如果将此文件从只读
更改为可读写， Microsoft Excel 必须载入该文件的新副本以确认在以只读模式打开该文件后没有进行过更改。
示例
本示例将活动工作簿设为只读。
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
适用于
Workbook 对象
描述
返回或者设置共享工作簿的修订日志中所要显示修订信息的天数。Long 类型，可读写。
说明
关闭工作簿时，将删除日志中的任何比该属性设置的日期旧的修订。
示例
本示例检查修订追踪功能是否有效，如果有效则对修订日志中显示的天数进行设置。关闭工作簿时，将删除日志中的任何比该属性设置的日期旧的修订。
With ActiveWorkbook
If .KeepChangeHistory Then
.ChangeHistoryDuration = 7
End If
End With
适用于
Workbook 对象
描述
将链接从某一文档修改到另一文档。
句法
expression.ChangeLink(Name, NewName, Type)
expression
必选。该表达式返回一个 Workbook 对象。
Name
String 类型，必选。要修改的 Microsoft Excel 链接或 DDE/OLE 链接的名称，就像 LinkSources 方法所返回的名称一样。
NewName
String 类型，必选。链接的新名称。
Type
Variant 类型，可选。链接类型。可为下列 XlLinkType 常量之一：xlLinkTypeExcelLinks 或 xlLinkTypeOLELinks。默认值为 xlLinkTypeExcelLinks。xlLinkTypeOLELinks 可处理 DDE 和 OLE 两种类型的链接。
示例
本示例修改 Microsoft Excel 链接。
ActiveWorkbook.ChangeLink "c:\excel\book1.xls", _
"c:\excel\book2.xls", xlExcelLinks
适用于
Scenario 对象
描述
更改方案以得到一组新的可变单元格及方案变量值（可选）。
句法
expression.ChangeScenario(ChangingCells, Values)
expression
必选。该表达式返回一个 Scenario 对象。
ChangingCells
Variant 类型，必选。指定方案中新的可变单元格集合的 Range 对象。这些可变单元格必须与方案位于同一工作表。
Values
Variant 类型，可选。包含可变单元格的新方案变量值的数组。如果省略此参数，方案变量值将采用这些可变单元格的当前值。
说明
如果指定 Values 参数，则数组中每一元素都必须对应于 ChangingCells 区域中的相应单元格；否则，Microsoft Excel 就会产生错误。
另见
示例
本示例将方案一的可变单元格设为 Sheet1 中的区域 A1:A10。
Worksheets("Sheet1").Scenarios(1).ChangeScenario _
Worksheets("Sheet1").Range("A1:A10")
适用于
Scenario 对象
描述
返回一个 Range 对象，此对象代表方案中的所有可变单元格。只读。
另见
示例
本示例选定 Sheet1 中方案一的可变单元格。
Worksheets("Sheet1").Activate
ActiveSheet.Scenarios(1).ChangingCells.Select
适用于
TextFrame 对象
描述
返回一个 Characters 对象，该对象代表某个形状的文本框中的字符区域。可以使用 Characters 对象向文本框中添加字符和设置字符的格式。
句法
expression.Characters(Start, Length)
expression
必选。一个返回指定文本框内 Characters 对象的表达式。
Start
可选，Variant 类型。表示将要返回的第一个字符。如果此参数设置为 1 或被忽略，则 Characters 方法会返回以第一个字符为起始字符的字符区域。
Length
可选，Variant 类型。表示要返回的字符个数。如果此参数被忽略，则Characters 方法会返回该字符串的剩余部分（由 Start 参数指定的字符以后的所有字符）。
说明
Characters 对象并不是一个集合。
另见
示例
本示例将文本框（活动工作簿中第一个形状）中第三个字符的格式设置为粗体。
With ActiveSheet.Shapes(1).TextFrame
.Characters.Text = "abcdefg"
.Characters(3, 1).Font.Bold = True
End With
描述
代表包含文字的对象内的字符。可用 Characters 对象修改包含在完整文字串内的任意字符序列。
使用Characters 对象
可用 Characters(start, length) （其中 start 为起始字符数，而 length 为要返回的字符数目）返回 Characters 对象。下例向单元格“B1”中添加文字，并将第二个单词设置为加粗。
With Worksheets("sheet1").Range("b1")
.Value = "New Title"
.Characters(5, 5).Font.Bold = True
End With
说明
仅当需要修改对象中文字的一部分而不影响其余部分时，才有必要使用Characters 方法（如果该对象不支持多信息文本，就不能用 Characters 方法对文字中的一部分单独设置格式）。如果要同时修改所有文字的格式，通常可以对该对象直接应用某一适当的方法或属性。下例将单元格“A5”的内容设置为斜体。
Worksheets("sheet1").Range("a5").Font.Italic = True
属性
Application 属性，Caption 属性，Count 属性，Creator 属性，Font 属性，Parent 属性，PhoneticCharacters 属性，Text 属性
方法Delete 方法，Insert 方法
适用于
AxisTitle 对象，ChartTitle 对象，DataLabel 对象，DisplayUnitLabel 对象，Range 对象
描述
返回一个 Characters 对象，该对象代表对象文字的字符区域。可使用Characters 对象对文字串中的字符的格式进行设置。
句法
expression.Characters(Start, Length)
expression
必选。该表达式返回一个“应用于”列表中的某个对象。
Start
Variant 类型，可选。要返回的第一个字符。如果本参数设为 1，或者省略该参数，则本方法返回一个以第一个字符为起始的字符区域。
Length
Variant 类型，可选。要返回的字符数目。如果省略该参数则本方法返回字符串的后半部分（Start 字符之后的所有字符）。
说明
Characters 对象不是集合。
对于TextFrame对象，Characters是一种方法。
另见
示例
本示例将 Sheet1 中 A1 单元格的第三个字符的格式设为加粗。
With Worksheets("Sheet1").Range("A1")
.Value = "abcdefg"
.Characters(3, 1).Font.Bold = True
End With
适用于
Phonetic 对象，Phonetics 集合对象
描述
在指定单元格中返回或设置拼音文本类型。可以是下列xlPhoneticCharacterType常量之一：xlHiagana，xlKatakana，xlKatakanaHalf或xlNoConversion。Long类型，可读写。
说明
如果选择或安装了日文支持，这些常量会很有用处。
描述
代表工作簿中的图表。
该图表既可为嵌入式图表（包含于 ChartObject 对象中）也可为分立的图表工作表。
使用Chart 对象
本部分将说明下列返回 Chart 对象的属性和方法：
Chart 属性
可用 Chart 属性返回 Chart 对象，该对象代表包含在 ChartObject 对象中的图表。下例设置工作表“Sheet1”上第一个嵌入式图表中图表区的图案。
Worksheets("sheet1").ChartObjects(1).Chart. _
ChartArea.Interior.Pattern = xlLightDown
Charts 方法
Charts 集合中的每个 Chart 对象代表工作簿中的一个图表工作表。可用Charts(index) （其中 index 为图表工作表的编号或名称）返回单个 Chart对象。下例修改第一个图表工作表中第一个系列的颜色。
Charts(1).SeriesCollection(1).Interior.Color = RGB(255, 0, 0)
图表工作表的编号表示图表工作表在工作簿的工作表标签栏上的位置。Charts(1) 是工作簿中第一个（最左边的）图表工作表； Charts(Charts.Count)
为最后一个（最右边的）图表工作表。所有的图表工作表均包括在编号序列中，即便是隐藏图表也不例外。图表工作表的名称出现在工作簿中该图表的标签上，可用 Name 属性设置或返回图表名称。
下例将图表“Sales”移至活动工作簿的尾部。
Charts("sales").Move after:=Sheets(Sheets.Count)
Chart 对象也是 Sheets 集合的成员。Sheets 集合包含工作簿中所有的工作表（既包括工作表，也包括图表工作表）。可用 Sheets(index) （其中 index为工作表的编号或名称）返回单个工作表。
ActiveChart 属性
当图表为活动对象时，可用 ActiveChart 属性引用之。如果用户选定了图表工作表，或用 Activate 方法激活了图表工作表，该图表工作表就处于活动状态。下例激活第一个图表工作表，并设置图表类型和标题。
Charts(1).Activate
With ActiveChart
.Type = xlLine
.HasTitle = True
.ChartTitle.Text = "January Sales"
End With
如果用户选定了嵌入式图表，或用 Activate 方法激活了包含嵌入式图表的ChartObject 对象，该嵌入式图表就处于活动状态。下例激活第一个工作表上的第一个嵌入式图表，并设置图表类型和标题。请注意，当激活嵌入式图表之后，本示例中的代码与上例中的代码相同。在 Visual Basic 代码中使用 ActiveChart 属性，既可引用嵌入式图表，也可引用图表工作表（只
要该图表处于活动状态）。
Worksheets(1).ChartObjects(1).Activate
ActiveChart.Type = xlLine
ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Text = "January Sales"
ActiveSheet 属性
当图表工作表为活动工作表时，可用 ActiveSheet 属性引用之。下例使用Activate 方法激活图表工作表“图表1”，并将图表中第一个系列的内部颜色设置为兰色。
Charts("Chart1").Activate
ActiveSheet.SeriesCollection(1).Interior.ColorIndex = 5
属性
Application 属性，Area3Dgroup 属性，AutoScaling 属性，Bar3Dgroup 属性，BarShape 属性，ChartArea 属性，ChartTitle 属性，ChartType 属性，CodeName 属性，Column3Dgroup 属性，Corners 属性，Creator 属性，DataTable 属性，DepthPercent 属性，DisplayBlanksAs 属性，Elevation属性，Floor 属性，GapDepth 属性，HasAxis 属性，HasDataTable 属性，HasLengend 属性，HasPivotFields 属性，HasTitle 属性，HeightPercent 属性，Hyperlinks 属性，Index 属性，Legend 属性，Line3DGroup 属性，Name 属性，Next 属性，PageSetup 属性，Parent 属性，Perspective 属性，Pie3Dgroup 属性，PivotLayout 属性，PlotArea 属性，PlotBy 属性，PlotVisibleOnly 属性，Previous 属性，ProtectContents 属性，ProtectData
属性，ProtectDrawingObjects 属性，ProtectFormatting 属性，ProtectGoalSeek 属性，ProtectionMode 属性，ProtectSelection 属性，RightAngleAxes 属性，Rotation 属性，Scripts 属性，Shapes 属性，ShowWindow 属性，SizeWithWindow 属性，SurfaceGroup 属性，Visible属性，Walls 属性，WallsAndGridlines2D 属性
方法
Activate 方法，ApplyCustomType 方法，ApplyDataLabels 方法，AreaGroups 方法，Axes 方法，BarGroups 方法，ChartGroups 方法，ChartObjects 方法，ChartWizard 方法，CheckSpelling 方法，ColumnGroups 方法，Copy 方法，CopyPicture 方法，Delete 方法，Deselect方法，DoughnutGroups 方法，Evaluate 方法，Export 方法，GetChartElement 方法，Paste 方法（Chart 对象），PieGroups 方法，PrintOut 方法，PrintPreview 方法，Protect 方法，RadarGroups 方法，Refresh 方法，SaveAs 方法，Select 方法，SeriesCollection 方法，SetBackgroundPicture 方法，SetSourceData 方法，Unprotect 方法，XYGroups 方法
事件
Activate 事件，BeforeDoubleClick 事件，BeforeRightClick 事件，Calculate事件，Deactivate 事件，DragOver 事件，DragPlot 事件，MouseDown 事件，MouseMove 事件，MouseUp 事件，Resize 事件，Select 事件，SeriesChange 事件
适用于
ChartObject 对象
描述
返回一个 Chart 对象，该对象代表指定对象所包含的图表。只读。
示例
本示例为 Sheet1 的第一个嵌入式图表添加标题。
With Worksheets("Sheet1").ChartObjects(1).Chart
.HasTitle = True
.ChartTitle.Text = "1995 Rainfall Totals by Month "
End With
描述
代表图表的图表区。二维图表的图表区包含坐标轴、图表标题、坐标轴标题和图例。三维图表的图表区包含图表标题和图例。图表区不包括图形区（图表区内绘制数据的区域）。关于设置图形区格式的详细内容，另见PlotArea 对象。
使用ChartArea 对象
可用 ChartArea 属性返回 ChartArea 对象。下例设置工作表“Sheet1”上第一个内嵌图表的图表区的图案。
Worksheets("sheet1").ChartObjects(1).Chart. _
ChartArea.Interior.Pattern = xlLightDown
属性
Application 属性，AutoScaleFont 属性，Border 属性，Creator 属性，Fill属性，Font 属性，Height 属性，Interior 属性，Left 属性，Name 属性，Parent 属性，Shadow 属性，Top 属性，Width 属性
方法
Clear 方法，ClearContents 方法，ClearFormats 方法，Copy 方法，Select方法
适用于
Chart 对象
描述
返回一个 ChartArea 对象，该对象代表指定图表中的全部图表区域。只读。
示例
本示例将“图表1”的图表区域内部颜色设为红色，并将其边框颜色设为蓝色。
With Charts("Chart1").ChartArea
.Interior.ColorIndex = 3
.Border.ColorIndex = 5
End With
描述
仅用于图表。代表单色对象的颜色，或带有渐进色或图案填充格式的对象的前景颜色或背景颜色。
使用ChartColorFormat对象
可用下表中所列的属性返回 ChartColorFormat 对象。
| 要返回的 ChartColorFormat 对象所代表的内容 | 应使用的属性 | 应使用的对象 |
| 背景填充颜色（用于底纹色或图案填充格式） | BackColor | ChartFillFormat |
| 前景填充颜色（对于纯色，则代表填充颜色） | ForeColor | ChartFillFormat |
属性
Application 属性，Creator 属性，Parent 属性，RGB 属性，SchemeColor属性，Type 属性
描述
仅用于图表。代表图表元素的填充格式。
使用ChartFillFormat 对象
可用 Fill 属性返回 ChartFillFormat 对象。下例设置第一张图表的图表区填充格式的前景颜色、背景颜色和渐进色。
With Charts(1).ChartArea.Fill
.Visible = True.
ForeColor.SchemeColor = 15
.BackColor.SchemeColor = 17
.TwoColorGradient Style:=msoGradientHorizontal, Variant:=1
End With
属性
Application 属性，BackColor 属性，Creator 属性，ForeColor 属性，CradientColorType 属性，GradientDegree 属性，GradientStyle 属性，GradientVariant 属性，Parent 属性，Pattern 属性，PresetGradientType 属性，PresetTexture 属性，TextureName 属性，TextureType 属性，Type 属性，Visible 属性
方法
OneColorGradient 方法，Patterned 方法，PresetGradient 方法，PresetTextured 方法，Solid 方法，TwoColorGradient 方法，UserPicture 方法，UserTextured 方法
描述
代表图表中用同一格式绘制的一个或多个数据系列。一个图表包含一个或多个图表组，一个图表组包含一个或多个数据系列，一个数据系列包含一个或多个数据点。例如，单个图表可能既包含折线图图表组（其中包含所有用折线图格式绘制的数据系列），也包含条形图图表组（其中包含所有用条形图格式绘制的数据系列）。ChartGroup 对象是 ChartGroups 集合的
成员。
使用ChartGroup 对象
可用 ChartGroups(index) （其中 index 为图表组的编号）返回单个ChartGroup 对象。下例向第一个图表工作表的第一个图表组添加垂直线。
Charts(1).ChartGroups(1).HasDropLines = True
如果图表处于活动状态，就可使用 ActiveChart 属性。
Charts(1).Activate
ActiveChart.ChartGroups(1).HasDropLines = True
因为当图表组所用的图表格式改变时，该图表组的编号可能改变，所以使用下列快捷的图表组方法返回特定的图表组更为容易。PieGroups 方法返回图表中饼图图表组的集合， LineGroups 方法返回图表中折线图图表组的集合，依此类推。使用这些方法时，都可以用编号返回单个 ChartGroup对象或不指定编号而返回 ChartGroups 集合。下列图表组方法是有效的：
属性
Application 属性，AxisGroup 属性，BubbleScale 属性，Creator 属性，DoughnutHoleSize 属性，DownBars 属性，DropLines 属性，FirstSliceAngle
属性，GapWidth 属性，Has3DShading 属性，HasDropLines 属性，HasHiLoLines 属性，HasRadarAxisLabels 属性，HasSeriesLines 属性，HasUpDownBars 属性，HiLoLines 属性，Index 属性，Overlap 属性，Parent属性，RadarAxisLabels 属性，SecondPlotSize 属性，SeriesLines 属性，ShowNegativeBubbles 属性，SizeRepresents 属性，SplitType 属性，SplitValue 属性，UpBars 属性，VaryByCategories 属性
方法
SeriesCollection 方法
描述
指定图表中所有 ChartGroup 对象的集合。每个 ChartGroup 对象代表图表中用同一格式绘制的一个或多个数据系列。一个图表包含一个或多个图表组，一个图表组包含一个或多个数据系列，一个数据系列包含一个或多个数据点。例如，单个图表可能既包含折线图图表组（其中包含所有用折线图格式绘制的数据系列），也包含条形图图表组（其中包含所有用条形图格式绘制的数据系列）。
使用ChartGroups 集合对象
可用 ChartGroups 方法返回 ChartGroups 集合。下例显示第一张工作表上第一个嵌入式图表中图表组的数目。
MsgBox Worksheets(1).ChartObjects(1).Chart.ChartGroups.Count
可用 ChartGroups(index) （其中 index 为图表组的编号）返回单个
ChartGroup 对象。下例向第一个图表工作表的第一个图表组添加垂直线。
Charts(1).ChartGroups(1).HasDropLines = True
如果图表处于活动状态，就可使用 ActiveChart 属性：
Charts(1).Activate
ActiveChart.ChartGroups(1).HasDropLines = True
因为当图表组所用的图表格式改变时，该图表组的编号可能改变，所以使用下列快捷的图表组方法返回特定的图表组更为容易。PieGroups 方法返回图表中饼图图表组的集合， LineGroups 方法返回图表中折线图图表组的集合，依此类推。使用这些方法时，都可以用编号返回单个 ChartGroup对象或不指定编号而返回 ChartGroups 集合。下列图表组方法是有效的：
属性
Application 属性，Count 属性，Creator 属性，Parent 属性
方法
Item 方法 ( ChartGroups集合)
适用于
Chart 对象
描述
返回一个对象，该对象既可代表单个图表组（一个 ChartGroup 对象，句法 1），也可代表所有图表组的集合（一个 ChartGroups 对象，句法 2）。返回集合包含所有的组类型。
句法 1
expression.ChartGroups(Index)
句法 2
expression.ChartGroups
expression
必选。该表达式返回一个 Chart 对象。
Index
Variant 类型，可选。图表组号。
另见
AreaGroups 方法， BarGroups 方法， ColumnGroups 方法， DoughnutGroups 方法， LineGroups 方法， PieGroups 方法
示例
本示例显示“图表1”中第一个图表组的涨跌柱线，并对其颜色进行设置。
本示例应在包含两个有一个或多个交叉数据点的系列的二维折线图上运
行。
With Charts("Chart1").ChartGroups(1)
.HasUpDownBars = True
.DownBars.Interior.ColorIndex = 3
.UpBars.Interior.ColorIndex = 5
End With
描述
代表工作表中的嵌入式图表。ChartObject 对象的作用是作为 Chart 对象的容器。ChartObject 对象的属性和方法控制工作表上嵌入式图表的外观和尺寸。ChartObject 对象是 ChartObjects 集合的成员。ChartObjects 集合包含单个工作表上所有的嵌入式图表。
使用ChartObject 对象
可用 ChartObjects(index) （其中 index 为嵌入式图表的编号或名称）返回单个 ChartObject 对象。下例设置工作表“Sheet1”上第一个嵌入式图表的图表区的图案。
Worksheets("Sheet1").ChartObjects(1).Chart. _
ChartArea.Interior.Pattern = xlLightDown
当选定嵌入式图表时，其名称出现在名称框中。可用 Name 属性设置或返回 ChartObject 对象的名称。下例使工作表“Sheet1”上的嵌入式图表“图表1”具有圆角。
Worksheets("Sheet1").ChartObjects("Chart1").RoundedCorners = True
属性Application 属性，Border 属性，BottomRightCell 属性，Chart 属性，Creator 属性，Enabled 属性，Height 属性，Index 属性，Interior 属性，Left 属性，Locked 属性，Name 属性，Parent 属性，Placement 属性，PrintObject 属性，ProtectChartObject 属性，RoundedCorners 属性，Shadow 属性，ShapeRange 属性，Top 属性，TopLeftCell 属性，Visible 属性，Width 属性，ZOrder 属性
方法
Activate 方法，BringToFront 方法，Copy 方法，CopyPicture 方法，Cut 方法，Delete 方法，Duplicate 方法，Select 方法，SendToBack 方法
描述
指定的图表工作表、对话框编辑表或工作表上所有 ChartObject 对象的集合。每个 ChartObject 对象代表一个嵌入式图表。ChartObject 对象的作用是作为 Chart 对象的容器。ChartObject 对象的属性和方法控制工作表上嵌入式图表的外观和尺寸。
使用ChartObjects 集合对象
可用 ChartObjects 方法返回 ChartObjects 集合。下例删除工作表“Sheet1”中的所有嵌入式图表。
Worksheets("sheet1").ChartObjects.Delete
可用 Add 方法新建空白嵌入式图表，并将其添加到集合中。可用
ChartWizard 方法向新图表添加数据并设置其格式。下例创建新的嵌入式图表，然后将单元格区域“A1:A20”中的数据添加到该图表中，并将该图表设置为折线图。
Dim ch As ChartObject
Set ch = Worksheets("sheet1").ChartObjects.Add(100, 30, 400, 250)
ch.Chart.ChartWizard source:=Worksheets("sheet1").Range("a1:a20"), _
gallery:=xlLine, title:="New Chart"
可用 ChartObjects(index) （其中 index 为嵌入式图表的编号或名称）返回单个 ChartObject 对象。下例设置工作表“Sheet1”上第一个嵌入式图表的图表区的图案。
Worksheets("Sheet1").ChartObjects(1).Chart. _
ChartArea.Interior.Pattern = xlLightDown
属性
Application 属性，Border 属性，Count 属性，Creator 属性，Enabled 属性，Height 属性，Interior 属性，Left 属性，Locked 属性，Parent 属性，Placement 属性，PrintObject 属性，RoundedCorners 属性，Shadow 属性，ShapeRange 属性，Top 属性，Visible 属性，Width 属性
方法
Add 方法（ChartObjects 集合），BringToFront 方法，Copy 方法，CopyPicture 方法，Cut 方法，Delete 方法，Duplicate 方法，Item 方法（ChartObjects 集合），Select 方法，SendToBack 方法
适用于
Chart 对象,WorkSheet 对象
描述
返回一个对象，该对象既可代表单个嵌入式图表（一个 ChartObject 对象，句法 1），也可代表指定工作表中所有嵌入式图表的集合（一个 ChartObjects对象，句法 2）。
句法 1
expression.ChartObjects(Index)
句法 2
expression.ChartObjects
expression
必选。该表达式返回“应用于”列表中的某个对象。如果指定一个 Chart 对象，该对象必须为图表工作表（不能是嵌入式图表）。
Index
Variant 类型，可选。指定图表的名称或号码。该参数可以是数组，用于指定多个图表。
说明
本方法不等价于 Charts 属性，本方法返回的是嵌入式图表；而 Charts 属性返回的是图表工作表。使用 Chart 属性可返回对应于嵌入式图表的Chart 对象。
另见
示例
本示例往 Sheet1 的第一个嵌入式图表中添加标题。
With Worksheets("Sheet1").ChartObjects(1).Chart
.HasTitle = True
.ChartTitle.Text = "1995 Rainfall Totals by Month"
End With
本示例在 Sheet1 的第一个嵌入式图表中新建一个系列，新系列的数据源为Sheet1 的 B1:B10 区域。
Worksheets("Sheet1").ChartObjects(1).Activate
ActiveChart.SeriesCollection.Add _
source:=Worksheets("Sheet1").Range("B1:B10")
本示例清除 Sheet1 的第一个嵌入式图表的格式设置。
Worksheets("Sheet1").ChartObjects(1).Chart.ChartArea.ClearFormats
描述
指定工作簿或活动工作簿中所有图表工作表的集合。每个图表工作表由一个 Chart 对象代表。本集合不包括嵌入在工作表或对话框编辑表中的图表。有关嵌入式图表的详细内容，另见 Chart 对象或 ChartObject 对象。
使用Charts 集合对象
可用 Charts 属性返回 Charts 集合。下例打印活动工作簿中的所有图表
工作表。
Charts.PrintOut
可用 Add 方法新建图表工作表并将其添加到工作簿中。下例向活动工作簿添加新图表工作表，并将该图表工作表置于工作表“Sheet1”之后。
Charts.Add after:=Worksheets("sheet1")
可组合使用 Add 方法和 ChartWizard 方法，以创建包含工作表中数据的图表工作表。下例基于工作表“Sheet1”中单元格区域“A1:A20”中的数据添加新的折线图。
With Charts.Add
.ChartWizard source:=Worksheets("sheet1").Range("a1:a20"), _
gallery:=xlLine, title:="February Data"
End With
可用 Charts(index) （其中 index 为图表工作表的编号或名称）返回单个Chart 对象。下例将第一个图表工作表中第一个系列的颜色改为红色。
Charts(1).SeriesCollection(1).Interior.Color = RGB(255, 0, 0)
Sheets 集合包含工作簿中的所有工作表（既包括图表工作表，也包括工作表）。可用 Sheets(index) （其中 index 为工作表的名称或编号）返回单个工作表。
属性
Application 属性，Count 属性，Creator 属性，HPageBreaks 属性，Item 属性（Charts 集合），Parent 属性，Visible 属性，VPageBreaks 属性
方法
Add 方法（Charts 集合），Copy 方法，Delete 方法，Move 方法，PrintOut
方法，PrintPreview 方法，Select 方法
适用于
Application 对象，Workbook 对象
描述
Application 对象：返回 Sheets 集合，该集合代表活动工作簿中所有的图表工作表。只读。
Workbook 对象：返回 Sheets 集合，该集合代表指定工作簿中所有的图表工作表。只读。
使用本属性时，如不给出对象识别符，将返回活动工作簿中所有的图表工作表。
另见
示例
本示例设置“图表1”的标题文本。
With Charts(揅hart1?
.HasTitle = True
.ChartTitle.Text = "First Quarter Sales"
End With
本示例删除活动工作簿中所有的图表工作表。
ActiveWorkbook.Charts.Delete
本示例隐藏“图表1”、“图表3”和“图表5”。
Charts(Array("Chart1", "Chart3", "Chart5")).Visible = False
适用于
PageSetup 对象
描述
返回或者设置图表为适应页面大小而进行缩放的方式。Long 类型，可读写。可为下列 XlObjectSize 常量之一。
| 常量 | 意义 |
| xlScreenSize | 以屏幕显示大小打印图表。 |
| xlFitToPage | 按照尽可能大的大小打印图表，同时保持该图表的屏幕所显示的高度、宽度比例。 |
| xlFullPage | 按照与页面相适应的大小打印图表，并根据需要调整其高度、宽度比例。 |
说明
本属性仅应用于图表（不能应用于嵌入式图表）。
示例
本示例对活动工作簿中第一个图表进行缩放以适应整页大小。
ActiveWorkbook.Charts(1).PageSetup.ChartSize = xlFullPage
描述
代表图表标题。
使用ChartTitle 对象
可用 ChartTitle 属性返回 ChartTitle 对象。下例向工作表“Sheet1”中的第一个内嵌图表添加标题。
With Worksheets("sheet1").ChartObjects(1).Chart
.HasTitle = True
.ChartTitle.Text = "February Sales"
End With
说明
只有将 HasTitle 属性设置为 True 后，才存在 ChartTitle 对象，从而才能使用该对象。
属性
Application 属性，AutoScaleFont 属性，Border 属性，Caption 属性，Characters 属性，Creator 属性，Fill属性，Font 属性，HorizontalAlignment属性，Interior 属性，Left 属性，Name 属性，Orientation 属性，Parent 属性，ReadingOrder 属性，Shadow 属性，Text 属性，Top 属性，VerticalAlignment 属性
方法
Delete 方法，Select 方法
适用于
Chart 对象
描述
返回一个 ChartTitle 对象，该对象代表指定图表的标题。只读。
另见
示例
本示例为“图表1”设置标题文字。
With Charts(揅hart1")
.HasTitle = True
.ChartTitle.Text = "First Quarter Sales"
End With
适用于
Chart对象，Series对象
描述
返回或设置图表类型。Long 类型，可读写。
可为下列 XlChartType 常量。
| 图表类型 | 说明 | 常量 |
| 柱形图 | 簇状 | xlColumnClustered |
| 三维簇状柱形图 | xl3DColumnClustered | |
| 堆积柱形图 | xlColumnStacked | |
| 三维堆积柱形图 | xl3DColumnStacked | |
| 百分比堆积柱形图 | xlColumnStacked100 | |
| 三维百分比堆积柱形图 | xl3DColumnStacked100 | |
| 三维柱形图 | xl3DColumn簇状 | |
| 条形图 | 簇状条形图 | xlBarClustered |
| 三维簇状条形图 | xl3DBarClustered | |
| 堆积条形图 | xlBarStacked | |
| 三维堆积条形图 | xl3DBarStacked | |
| 百分比堆积条形图 | xlBarStacked100 | |
| 三维百分比堆积条形图 | xl3DBarStacked100 | |
| 折线图 | 折线图 | xlLine |
| 数据点折线图 | xlLineMarkers | |
| 堆积折线图 | xlLineStacked | |
| 堆积数据点折线图 | xlLineMarkersStacked | |
| 百分比堆积折线图 | xlLineStacked100 | |
| 百分比堆积数据点折线图 | xlLIneMarkersStacked100 | |
| 折线图三维折线图 | xl3DLine | |
| 饼图 | 饼图 | xlPie |
| 分离型饼图 | xlPieExploded | |
| 三维饼图 | xl3Dpie | |
| 三维分离型饼图 | xl3DPieExploded | |
| 复合饼图 | xlPieOfPie | |
| 饼图复合柱饼图 | xlBarOfPie | |
| XY (散点图) | 散点图 | xlXYScatter |
| 平滑线散点图 | xlXYScatterSmooth | |
| 无数据点折线散点图 | xlXYScatterLinesNoMarkers | |
| 折线散点图 | xlXYScatterLines | |
| 无数据点折线散点图 | xlXYScatterLinesNoMarkers | |
| 气泡图 | 气泡图 | xlBubble |
| 三维气泡图 | xlBubble3DEffect | |
| 面积图 | 面积图 | xlArea |
| 三维面积图 | xl3DArea | |
| 堆积面积图 | xlAreaStacked | |
| 三维堆积面积图 | xl3DAreaStacked | |
| 百分比堆积面积图 | xlAreaStacked100 | |
| 三维百分比堆积面积图 | xl3DAreaStacked100 | |
| 圆环图 | 圆环图 | xlDoughnut |
| 分离型圆环图 | xlDoughnutExploded | |
| 雷达图 | 雷达图 | xlRadar |
| 数据点雷达图 | xlRadarMarkers | |
| 填充雷达图 | xlRadarFilled | |
| 曲面图 | 三维曲面图 | xlSurface |
| 曲面图（俯视图） | xlSurfaceTopView | |
| 三维曲面图（框架图） | xlSurfaceWireframe | |
| 曲面图（俯视框架图） | xlSurfaceTopViewWireframe | |
| 股价图 | 盘高-盘低-收盘图 | xlStockHLC |
| 成交量-盘高-盘低-收盘图 | xlStockVHLC | |
| 开盘-盘高-盘低-收盘图 | xlStockOHLC | |
| 成交量-开盘-盘高-盘低-收盘图 | xlStockVOHLC | |
| 圆柱图 | 簇状柱形圆柱图 | xlCylinderColClustered |
| 簇状条形圆柱图 | xlCylinderBarClustered | |
| 堆积柱形圆柱图 | xlCylinderColStacked | |
| 堆积条形圆柱图 | xlCylinderBarStacked | |
| 百分比堆积柱形圆柱图 | xlCylinderColStacked100 | |
| 百分比堆积条形圆柱图 | xlCylinderBarStacked100 | |
| 三维柱形圆柱图 | xlCylinderCol | |
| 圆锥图 | 簇状柱形圆锥图 | xlConeColClustered |
| 簇状条形圆锥图 | xlConeBarClustered | |
| 堆积柱形圆锥图 | xlConeColStacked | |
| 堆积条形圆锥图 | xlConeBarStacked | |
| 百分比堆积柱形圆锥图 | xlConeColStacked100 | |
| 百分比堆积条形圆锥图 | xlConeBarStacked100 | |
| 三维柱形圆锥图 | xlConeCol | |
| 棱锥图 | 簇状柱形棱锥图 | xlPyramidColClustered |
| 簇状条形棱锥图 | xlPyramidBarClustered | |
| 堆积柱形棱锥图 | xlPyramidColStacked | |
| 堆积条形棱锥图 | xlPyramidBarStacked | |
| 百分比堆积柱形棱锥图 | xlPyramidColStacked100 | |
| 百分比堆积条形棱锥图 | xlPyramidBarStacked100 | |
| 三维柱形棱锥图 | xlPyramidCol |
说明
一些图表类型不能用于数据透视表。
另见
示例
当图表为二维气泡图时，本示例将第一个图表组中的气泡大小设置为默认大小的 200%。
With Worksheets(1).ChartObjects(1).Chart
If .ChartType = xlBubble Then
.ChartGroups(1).BubbleScale = 200
End If
End With
适用于
Chart 对象
描述
修改给定图表的属性。可用本方法迅速设定图表的格式，而不必逐个设置所有属性。本方法是非交互式的，并且仅修改指定的属性。
句法
expression.ChartWizard(Source, Gallery, Format, PlotBy, CategoryLabels,SeriesLabels, HasLegend, Title, CategoryTitle, ValueTitle, ExtraTitle)
expression
必选。该表达式返回一个 Chart 对象。
Source
Variant 类型，可选。包含新图表的源数据的区域。如果省略本参数，Microsoft Excel 将修改活动图表工作表，或活动工作表中处于选定状态的嵌入式图表。
Gallery
Variant 类型，可选。图表类型。可为下列 XlChartType 常量之一： xlArea，
xlBar， xlColumn，xlLine，xlPie，xlRadar，xlXYScatter，xlCombination，xl3DArea，xl3DBar，xl3DColumn，xl3DLine，xl3DPie，xl3DSurface，xlDoughnut或xlDefaultAutoFormat。
Format
Variant 类型，可选。内置自动套用格式的编号。可为从 1 到 10 的数字，其取值依赖于图库类型。如果省略本参数， Microsoft Excel 将依据图库类型和数据源选择默认值。
PlotBy
Variant 类型，可选。指定系列中的数据是来自行还是来自列。可为下列XlRowCol 常量之一： xlRows 或 xlColumns。
CategoryLabels
Variant 类型，可选。表示包含分类标志的源区域内行数或列数的整数。有效取值为从 0（零）至小于相应的分类或系列中最大值的某一数字。
SeriesLabels
Variant 类型，可选。表示包含系列标志的源区域内行数或列数的整数。有效取值为从 0（零）至小于相应的分类或系列中最大值的某一数字。
HasLegend
Variant 类型，可选。若指定 True，则图表将具有图例。
Title
Variant 类型，可选。图表标题文字。
CategoryTitle
Variant 类型，可选。分类轴标题文字。
ValueTitle
Variant 类型，可选。数值轴标题文字。
ExtraTitle
Variant 类型，可选。三维图表的系列轴标题，或二维图表的第二数值轴标题。
说明
如果省略了 Source，且当前选定对象既不是活动工作表中的嵌入式图表，也不是活动的图表工作表，本方法将失败并引起错误。
示例
本示例重新设置“图表1”的格式，将其改为折线图，添加图例，并添加分类轴标题和数值轴标题。
Charts("Chart1").ChartWizard _
Gallery:=xlLine, _
HasLegend:=True, CategoryTitle:="Year", ValueTitle:="Sales"
适用于
DefaultWebOptions 对象
描述
如果在启动 Excel 时，Microsoft Excel 检查某个 Office 应用程序是否为默认 HTML 编辑器，则其值为 True。如果 Excel 并不进行此检查，则为False。默认值为 True，可读写，Boolean 类型。
说明
只有在所使用的 Web 浏览器支持 HTML 编辑和 HTML 编辑器时，才使用本属性。
要使用其他 HTML 编辑器，必须将此属性设置为 False，然后将该编辑器注册为默认的系统 HTML 编辑器。
示例
本示例使得 Microsoft Excel 不检查它是否为默认 HTML 编辑器。
Application.DefaultWebOptions.CheckIfOfficeIsHTMLEditor = False
适用于
Application 对象，Chart 对象，Range 对象，Worksheet 对象
描述
句法1：对一个对象进行拼写检查。该形式的调用无返回值，Microsoft Excel将显示 Spelling 对话框。
句法2：单个单词进行拼写检查。如果在某个字典中找到了指定单词则为True，如果找不到则为 False。
句法 1
expression.CheckSpelling(CustomDictionary,IgnoreUppercase,AlwaysSuggest,SpellLang)
句法 2
expression.CheckSpelling(Word, CustomDictionary, IgnoreUppercase)
expression
必选，该表达式返回“应用于”列表中的某个对象。使用 Application 对象可对单个单词进行拼写检查。（句法 2）。
CustomDictionary
Variant 类型，可选。表示自定义字典的文件名的字符串，如果指定单词在主要字典中找不到的话将到该字典中查找。如果省略该参数，将使用当前指定字典。
IgnoreUppercase
Variant 类型，可选。如果为 True，则 Microsoft Excel 忽略那些所有字母都是大写的单词。如果为 False，则 Microsoft Excel 检查那些所有字母都是大写的单词。如果省略该参数，则使用当前设置。
AlwaysSuggest
Variant 类型，可选，如果为 True，则 Microsoft Excel 在找到不正确拼写时显示建议的替换拼写列表。如果为 False，Microsoft Excel 则等待输入正确的拼写。如果省略该参数，将使用当前设置。
Word
String 类型（仅与 Application 对象一起使用），必选。要检查的单词。
SpellLang
Variant类型，可选。字典所使用的语言，可为下列LanguageID属性所使用的MsoLanguageID值之一。
说明
要检查标题、脚注和工作表中的对象，可对 Worksheet 对象使用本方法。
要仅对单元格和附注进行检查，可对 Cells 方法返回的对象使用本方法。
示例
本示例对“Sheet1”进行拼写检查。
Worksheets("Sheet1").CheckSpelling
适用于
PivotField 对象
描述
返回一个 PivotField 对象，该对象代表指定字段（如果该字段已分组并有子字段）的子字段。只读。
说明
如果指定字段没有子字段，则使用该属性会产生错误。
本属性对OLAP数据源无效。
示例
本示例显示“REGION2”字段的子字段的名称。
Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
MsgBox "The name of the child field is " & _
pvtTable.PivotFields("REGION2").ChildField.Name
适用于
PivotField 对象，PivotItem 对象
描述
返回一个对象，该对象既可代表单个数据透视表数据项（一个 PivotItem 对象，句法 1），也可代表一个包含所有数据透视表数据项的集合（一个PivotItems 对象， 句法 2），该集合可为指定字段的子字段组，也可为指定数据项的子项。只读。
句法 1
expression.ChildItems(Index)
句法 2
expression.ChildItems
expression
必选。该表达式返回一个 PivotField 或 PivotItem 对象。
Index
Variant 类型，可选。数据透视表数据项的名称或者号码（可使用数组来指定多个数据项）。
说明
本属性不能用于OLAP数据源。
示例
本示例将“vegetables”数据项的所有子数据项添加到一张新工作表中。
Set nwSheet = Worksheets.Add
nwSheet.Activate
Set pvtTable = Worksheets("Sheet2").Range("A1").PivotTable
rw = 0
For Each pvtItem In
_pvtTable.PivotFields("product")
PivotItems("vegetables").ChildItems
rw = rw + 1
nwSheet.Cells(rw, 1).Value = pvtItem.Name
Next pvtItem
适用于
Worksheet 对象
描述
用圆圈圈住工作表中的无效数据项。
句法
expression.CircleInvalid
expression
必选。该表达式返回 Worksheet 对象。
另见
Add 方法（Validation 对象）， ClearCircles 方法
示例
本示例用圆圈圈住第一张工作表无效数据项。
Worksheets(1).CircleInvalid
适用于
Worksheet 对象
描述
返回一个 Range 对象，该对象代表指定工作表中包含第一个循环引用的区域，或者如果指定工作表中无循环引用则返回 Nothing。对工作表进行计算之前必须清除所有的循环引用。只读。
示例
本示例选定“Sheet1”中第一个循环引用中的第一个单元格。
Worksheets("Sheet1").CircularReference.Select
适用于
ChartArea 对象，Legend 对象，Range 对象
描述
ChartArea，Legend或者 Range 对象：清除整个对象。ActiveX 列表框或组合框：清除整个清单中的所有项。
句法
expression.Clear
expression
必选。该表达式返回“适用于”列表中的一个对象。
另见
ClearContents 方法， ClearFormats 方法
示例
本示例清除 Sheet1 中 A1:G37 单元格的公式和公式设置。
Worksheets("Sheet1").Range("A1:G37").Clear
本示例清除“图表1”中的图表区域（图表数据和公式设置）。
Charts(揅hart1").ChartArea.Clear
适用于
Worksheet 对象
描述
清除指定工作表的追踪箭头。使用审核功能可添加追踪箭头。
句法
expression.ClearArrows
expression
必选。该表达式返回一个 Worksheet 对象。
另见
ShowDependents 方法， ShowErrors 方法， ShowPrecedents 方法
示例
本示例清除“Sheet1” 的追踪箭头。
Worksheets("Sheet1").ClearArrows
适用于
Worksheet 对象
描述
清除圈在工作表无效数据项上的圆圈。
句法
expression.ClearCircles
expression
必选。该表达式返回 Worksheet 对象。
说明
可用 CircleInvalid 方法用圆圈圈住包含无效数据的单元格。
另见
Add 方法（Validation 对象）， CircleInvalid 方法
示例
本示例清除圈在第一张工作表中无效数据项上的圆圈。
Worksheets(1).ClearCircles
适用于
Range 对象
描述
清除指定区域的所有单元格批注。
句法
expression.ClearComments
expression
必选。该表达式返回一个 Range 对象。
示例
本示例清除 E5 单元格的所有批注。
Worksheets(1).Range("e5").ClearComments
适用于
ChartArea 对象，Range 对象
描述
清除指定区域的公式。清除图表中的数据但保留格式设置。
句法
expression.ClearContents
expression
必选。该表达式返回一个 ChartArea 对象或 Range 对象。
示例
本示例清除 Sheet1 中 A1:G37 单元格的公式，但保留其格式设置。
Worksheets("Sheet1").Range("A1:G37").ClearContents
本示例删除“图表1”的图表数据，但保留其格式设置。
Charts("Chart1").ChartArea.ClearContents
适用于
ChartArea 对象，ErrorBars 对象，Floor 对象，LegendKey 对象，PlotArea对象，Point 对象，Range 对象，Series 对象，Trendline 对象，Walls 对象
描述
清除指定对象的格式设置。
句法
expression.ClearFormats
expression
必选，该表达式返回“应用于”列表中的某个对象。
另见
示例
本示例清除 Sheet1 中 A1:G37 单元格的所有格式设置。
Worksheets("Sheet1").Range("A1:G37").ClearFormats
本示例清除 Sheet1 中第一个嵌入式图表的格式设置。
Worksheets("Sheet1").ChartObjects(1).Chart.ChartArea.ClearFormats
适用于
Range 对象
描述
清除指定区域中所有单元格的附注和声音附注。
句法
expression.ClearNotes
expression
必选。该表达式返回 Range 对象。
另见
示例
本示例清除工作表“Sheet1”上从“A”列到“C”列中的所有批注和声音批注。
Worksheets("Sheet1").Columns("A:C").ClearNotes
适用于
Range 对象
描述
清除指定区域的分级显示。
句法
expression.ClearOutline
expression
必选。该表达式返回一个 Range 对象。
另见
ApplyOutlinesStyles 方法， AutoOutline 方法， DisplayOutline 属性， Outline对象， OutlineLevel 属性， ShowDetail 属性， Ungroup 方法（Range 对象）
示例
本示例清除工作表“Sheet1”中单元格区域“A1:G37”的分级显示。
Worksheets("Sheet1").Range("A1:G37").ClearOutline
适用于
Application 对象
描述
以数字值数组的形式返回剪贴板中当前的格式。可用数组中每个元素与“说明”部分所述的适当常量相比较，以判断剪贴板中是否包含特定的格式。
句法
expression.ClipboardFormats(Index)
expression
必选。该表达式返回 Application 对象。
Index
Variant 类型，可选。指明要返回的数组元素。若省略本参数，本属性返回包含当前剪贴板上所有格式的数组。详细内容另见“说明”部分。
说明
本属性返回数字数组。可用数组中每个元素与下列 XlClipboardFormat 常量之一相比较，以判断剪贴板中是否包含特定的格式：
| xlClipboardFormatBIFF | xlClipboardFormatBIFF2 |
| xlClipboardFormatBIFF3 | xlClipboardFormatBIFF4 |
| xlClipboardFormatBinary | xlClipboardFormatBitmap |
| xlClipboardFormatCGM | xlClipboardFormatCSV |
| xlClipboardFormatDIF | xlClipboardFormatDspText |
| xlClipboardFormatEmbeddedObject | xlClipboardFormatEmbedSource |
| xlClipboardFormatLink | xlClipboardFormatLinkSource |
| xlClipboardFormatLinkSourceDesc | xlClipboardFormatMovie |
| xlClipboardFormatNative | xlClipboardFormatObjectDesc |
| xlClipboardFormatObjectLink | xlClipboardFormatOwnerLink |
| xlClipboardFormatPICT | xlClipboardFormatPrintPICT |
| xlClipboardFormatRTF | xlClipboardFormatScreenPICT |
| xlClipboardFormatStandardFont | xlClipboardFormatStandardScale |
| xlClipboardFormatSYLK | xlClipboardFormatTable |
| xlClipboardFormatText | xlClipboardFormatToolFace |
| xlClipboardFormatToolFacePICT | xlClipboardFormatVALU |
| xlClipboardFormatWK1 |
适用于
Window 对象，Workbook 对象，Workbooks集合对象
描述
关闭指定对象。对于 Workbooks 集合使用句法 1；对于 Window 对象和Workbook 对象则使用句法 2。
句法 1
expression.Close
句法 2
expression.Close(SaveChanges, FileName, RouteWorkbook)
expression
必选，该表达式返回“应用于”列表中的某个对象。
SaveChanges
Variant 类型，可选。如果工作簿没有改变则忽略此参数；如果工作簿发生了改变并且在另外的窗口中也打开了该工作簿，则仍然忽略此参数；如果工作簿发生了改变并且没有在另外的窗口中打开，则此参数将指定是否在工作簿中保存所发生的更改。取值与操作如下表所示：
| 取值 | 操作 |
| True | 将改变保存到工作簿。如果该工作簿尚未命名，则使用FileName 所指定的名称。如果省略 FileName 参数，则要求用户输入文件名。 |
| False | 不将改变保存到此文件。 |
| 省略 | 显示一个对话框，要求用户决定是否保存所作的更改。 |
FileName
Variant 类型，可选。以此文件名保存所作的更改。
RouteWorkbook
Variant 类型，可选。如果指定工作簿不需要传送给下一个收件人（没有传送名单或已经传送），则忽略该参数。否则， Microsoft Excel 将按照下表所示处理传送。
| 取值 | 意义 |
| True | 将工作簿传送给下一个收信人。 |
| False | 不传送该工作簿。 |
| 省略 | 显示一个对话框，要求用户决定是否传送此工作簿。 |
说明
从 Visual Basic 关闭工作簿并不运行该工作簿中的任何自动关闭宏，而使用 RunAutoMacros 方法可运行自动关闭宏。
示例
本示例关闭 Book1.xls，并放弃所有对此工作簿的更改。
Workbooks("BOOK1.XLS").Close SaveChanges:=False
本示例关闭所有打开的工作簿。如果某个打开的工作簿有改变， MicrosoftExcel 将显示询问是否保存更改的对话框和相应提示。
Workbooks.Close
适用于
Chart 对象，Workbook 对象，Worksheet 对象
描述
返回指定对象的代码名。String 类型，只读。
注意：在Properties窗口右边的(Name)单元格中看到的值是选定对象的代码名字。在设计时，你可通过改变这个值来改变对象的代码名。你不能在运行时改变该属性。
说明
对于一个返回指定对象的表达式，该表达式可使用对象的代码名。例如，如果第一张工作表的代码名为“Sheet1”，则下列表达式是等价的。
Worksheets(1).Range("a1")
Sheet1.Range("a1")
工作表的名称可以与其代码名不同。创建一张工作表时，其工作表名称和代码名是相同的，不过，更改工作表名称时并不影响其代码名，并且，更改工作表代码名（在 Visual Basic 编辑器中使用“属性”窗口）也不影响其工作表名称。
示例
本示例显示第一张工作表的代码名。
MsgBox Worksheets(1).CodeName
适用于
Border 对象，Borders集合对象，Font 对象，Interior 对象
描述
返回或者设置对象的基色，如下表所示。使用 RGB 函数可产生一个颜色值。Long 类型，可读写。
| 对象 | 颜色 |
| Border | 边框的颜色。 |
| Borders | 一个区域的所有四条边的颜色。如果四边不是同一种颜色，则 Color 返回的是 0（零）。 |
| Font | 字体的颜色。 |
| Interior | 单元格底纹颜色或者图形对象的填充颜色。 |
示例
本示例对“图表1”中数值坐标轴的刻度线标志的颜色进行设置。
Charts("Chart1").Axes(xlValue).TickLabels.Font.Color =_RGB(0, 255, 0)
ColorFormat 对象
描述
代表单色对象的颜色，或者带有渐进色或图案填充格式的对象的前景颜色或背景颜色，或者指针颜色。可用 RGB 属性将颜色设置为红-绿-兰三色值，或用 SchemeColor 属性将颜色设置为配色方案中的某一颜色。
使用ColorFormat对象
可用下表所列的属性返回 ColorFormat 对象。
| 返回的 ColorFormat 对象所代表的颜色 | 所用的属性 | 所用的对象 |
| 背景填充颜色（用于渐进色或图案填充格式） | BackColor | FillFormat |
| 前景填充颜色（对于纯色填充格式，即代表填充颜色） | ForeColor | FillFormat |
| 线条背景颜色（用于图案线条） | BackColor | LineFormat |
| 线条前景颜色（对于纯色线条，即代表线条颜色） | ForeColor | LineFormat |
| 阴影颜色 | ForeColor | ShadowFormat |
| 挤压对象的侧边颜色 | ExtrusionColor | ThreeDFormat |
可用 RGB 属性将颜色设置为红-绿-兰三色值。下例向 myDocument 中添加矩形，然后设置矩形的填充格式的前景颜色、背景颜色和渐进色。
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeRectangle,
_90, 90, 90, 50).Fill
.ForeColor.RGB = RGB(128, 0, 0)
.BackColor.RGB = RGB(170, 170, 170)
.TwoColorGradient msoGradientHorizontal, 1
End With
属性
Application 属性，Creator 属性，Parent 属性，RGB 属性，SchemeColor属性，Type 属性
适用于
Border 对象，Border 集合对象，Font 对象，Interior 对象
描述
返回或者设置边框、字体或者内部填充区域的颜色，如下表所示。该颜色可定义为当前调色板中的索引值，也可使用下列 XlColorIndex 常量之一：xlColorIndexAutomatic 或 xlColorIndexNone。Variant 类型，可读写。
| 对象 | 颜色索引 |
| Border | 边框的颜色。 |
| Borders | 四条边框的颜色。如果四条边框使用的不是同一种颜色则返回Null。 |
| Font | 字体的颜色。指定为 xlColorIndexAutomatic 可自动设置颜色。 |
| Interior | 内部填充的颜色。将本属性指定为 xlColorIndexNone 可不进行内部填充。将本属性设为 xlColorIndexAutomatic 可进行自动填充（对于图形对象）。 |
说明
本属性将一种颜色指定为工作簿调色板的一条索引。可使用 Colors 方法返回当前调色板。
另见
Color 属性， Colors 属性， PatternColor 属性
示例
以下示例假定正在使用默认调色板。
本示例将 Sheet1 的 A1 单元格的字体颜色改为红色。
Worksheets("Sheet1").Range("A1").Font.ColorIndex = 3
本示例对“图表1”的数值坐标轴的主网格线的颜色进行设置。
With Charts("Chart1").Axes(xlValue)
If .HasMajorGridlines Then
.MajorGridlines.Border.ColorIndex = 5'将颜色设为蓝色
End If
End With
本示例将“图表1”的图表区域内部颜色设为红色，将其边框的颜色设为蓝色。
With Charts("Chart1").ChartArea
.Interior.ColorIndex = 3
.Border.ColorIndex = 5
End With
适用于
Workbook 对象
描述
返回或设置工作簿调色板中的颜色。调色板共有 56 项，每一项用一个 RGB值表示。Variant 类型，可读写。
句法
expression.Colors(Index)
expression
必选。该表达式返回 Workbook 对象。
Index
Variant 类型，可选。颜色号（从 1 至 56）。如果未给出本参数，本属性返回包含调色板中所有 56 种颜色的数组。
另见
示例
本示例使活动工作簿的调色板与工作簿“Book2.xls”的调色板相同。
ActiveWorkbook.Colors = Workbooks("BOOK2.XLS").Colors
本示例设置活动工作簿调色板的第五号颜色。
ActiveWorkbook.Colors(5) = RGB(255, 0, 0)
适用于
PictureFormat 对象
描述
返回或设置应用于指定图片或 OLE 对象的颜色变换方式类型。可为下列MsoPictureColorType 常量之一：msoPictureAutomatic，msoPictureBlackAndWhite，msoPictureGrayscale，msoPictureMixed 或msoPictureWatermark。Long 类型，可读写。
示例
本示例将 myDocument 上的第一个形状的颜色变换方式设置为灰度级。第一个形状必须为图片或 OLE 对象。
Set myDocument = Worksheets(1)
myDocument.Shapes(1).PictureFormat.ColorType = msoPictureGrayScale
适用于
Range 对象
描述
返回指定区域中第一块的第一列的列号。
Long 类型，只读。
说明
“A”列返回 1，“B”列返回 2，依次类推。
可用下列语句返回区域中最后一列的列号。
myRange.Columns(myRange.Columns.Count).Column
另见
示例
本示例将工作表“Sheet1”上每隔一列的列宽设置为 4 磅。
For Each col In Worksheets("Sheet1").Columns
If col.Column Mod 2 = 0 Then
col.ColumnWidth = 4
End If
Next col
适用于
Chart 对象
描述
返回一个 ChartGroup 对象，该对象代表三维图表中的柱形图表组。只读。
另见
示例
本示例设置三维柱形图组的柱形簇之间的距离等于柱形宽度的一半。
Charts(1).Column3DGroup.GapWidth = 50
适用于
Range 对象
描述
返回 Range 对象，该对象代表每列中所有与比较单元格内容不同的单元格。
句法
expression.ColumnDifferences(Comparison)
expression
必选。该表达式返回包含将被比较的单元格的 Range 对象。
Comparison
Variant 类型，必选。用于对指定区域进行比较的单个单元格。
另见
示例
本示例选定工作表“Sheet1”上“A”列中与单元格“A4”内容不同的单元格。
Worksheets("Sheet1").Activate
Set r1 = ActiveSheet.Columns("A").ColumnDifferences( _
Comparison:=ActiveSheet.Range("A4"))
r1.Select
适用于
PivotLayout 对象，PivotTable 对象
描述
返回一个对象，该对象既可代表单个数据透视表字段（一个 PivotField 对象， 句法 1），也可代表包含数据透视表中所有以列字段显示的字段集合（一个 PivotFields 对象, 句法 2）。只读。
句法 1
expression.ColumnFields(Index)
句法 2
expression.ColumnFields
expression
必选。该表达式返回一个 PivotTable 对象。
Index
Variant 类型，可选。数据透视表字段的名称或号码（可为指定多个字段的数组）。
另见
DataFields 属性， HiddenFields 属性， PageFields 属性， PivotFields 方法， RowFields 属性， VisibleFields 属性
示例
本示例将数据透视表的所有列字段名称添加到一张新工作表中。
Set nwSheet = Worksheets.Add
nwSheet.Activate
Set pvtTable = Worksheets("Sheet2").Range("A1").PivotTable
rw = 0
For Each pvtField In pvtTable.ColumnFields
rw = rw + 1
nwSheet.Cells(rw, 1).Value = pvtField.Name
Next pvtField
适用于
PivotTable 对象
描述
如果指定数据透视表显示列总计则为 True。Boolean 类型，可读写。
另见
示例
本示例设置数据透视表报表以显示列总计。
Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
pvtTable.ColumnGrand = True
适用于
Chart 对象
描述
在二维图表中返回一个对象，该对象既可代表单个柱形图表组（一个ChartGroup 对象，句法 1），也可代表一个柱形图表组集合（一个ChartGroups 集合，句法 2）。
句法 1
expression.ColumnGroups(Index)
句法 2
expression.ColumnGroups
expression
必选。该表达式返回一个 Chart 对象。
Index
Variant 类型，可选。指定图表组。
另见
AreaGroups 方法， BarGroups 方法， ChartGroups 方法， Column3DGroup属性， DoughnutGroups 方法， LineGroups 方法， PieGroups 方法
示例
本示例设置二维柱形图组的柱形簇之间的距离等于柱形宽度的一半。
Charts(1).ColumnGroups(1).GapWidth=50
适用于
PivotTable 对象
描述
返回一个 Range 对象，该对象代表包含指定数据透视表报表列区域的区域。只读。
另见
DataBodyRange 属性， DataLabelRange 属性， PageRange 属性， RowRange属性
示例
本示例为数据透视表选择列标题。
Worksheets("Sheet1").Activate
Range("A3").Select
ActiveCell.PivotTable.ColumnRange.Select
适用于
Application 对象，Range 对象，Worksheet 对象
描述
Application 对象：返回一个 Range 对象，此对象代表当前工作表的所有列。 如果当前文档不是工作表， Columns 属性无效。只读。
Range 对象：返回一个 Range 对象，此对象代表指定区域中的所有列。
只读。
Worksheet 对象：返回一个 Range 对象，此对象代表指定工作表上的所有列。只读。
说明
在不使用对象识别符的情况下使用此属性等价于 ActiveSheet.Columns。当对一个多重选定区域的 Range 对象应用 Columns 属性时，此属性返回的只是所选区域的第一个子区域中的列。例如，如果 Range 对象有两个子区域 A1:B2 和 C3:D4，那么，Selection.Columns.Count 的返回值是 2，而不是 4。要对一个可能包含多重选定区域的区域使用此属性，可用Areas.Count 方法测试一下此区域内是否包含多个子区域。如果确实包含多个子区域，可对此区域内的每一子区域进行循环。
另见
示例
本示例将 Sheet1 的第一列（A 列）的字体设置为加粗。
Worksheets("Sheet1").Columns(1).Font.Bold = True
本示例将“myRange”区域第一列中每一单元格的值置为 0（零）。
Range("myRange").Columns(1).Value = 0
本示例显示 Sheet1 中选定区域的列数。如果选定区域包含多个子区域，本示例将对每一子区域进行循环。
Worksheets("Sheet1").Activate
areaCount = Selection.Areas.Count
If areaCount <= 1 Then
MsgBox "The selection contains " & _
Selection.Columns.Count & " columns."
Else
For i = 1 To areaCount
MsgBox "Area " & i & " of the selection contains " & _
Selection.Areas(i).Columns.Count & " columns."
Next I
End If
适用于
Range 对象
描述
返回或设置指定区域中所有列的列宽。Variant 类型，可读写。
说明
一个列宽单位等于“常规”样式中一个字符的宽度。对于均衡字体，使用字符“0”（零）的宽度。
可用 Width 属性以磅为单位返回列宽。
如果区域中所有列的列宽都相等， ColumnWidth 属性返回该宽度值。如果区域中的列宽不等，本属性返回 Null。
另见
示例
本示例使工作表“Sheet1”上“A”列的列宽加倍。
With Worksheets("Sheet1").Columns("A")
.ColumnWidth = .ColumnWidth * 2
End With
适用于
Application 对象
描述
返回 Microsoft Excel 的 COMAddIns 集合，它代表当前所安装的 COM加载宏。只读。
另见
COMAddIns 集合对象（《Microsoft Office 语言参考手册》）
示例
本示例显示当前已安装的 COM 加载宏的数目。
Set objAI = Application.COMAddIns
MsgBox "Number of COM add-ins available:" & _
objAI.Count
适用于
Application 对象，Workbook 对象
描述
返回 CommandBars 对象，该对象代表 Microsoft Excel 命令栏。只读。
说明
同 Application 对象一起使用，本属性返回所有对该应用程序有效的内置及自定义命令栏
如果工作簿嵌入在另一个应用程序中，并且用户双击激活了该工作簿，使用本属性及 Workbook 对象可以返回 Microsoft Excel 的所有在该应用程序中有效的命令栏。其他任何时候与 Workbook 共同使用本属性返回Nothing。
没有程序化的方法返回附属于工作簿的命令栏集合。
示例
本示例删除所有不可见的自定义命令栏。
For Each bar In Application.CommandBars
If Not bar.BuiltIn And Not bar.Visible Then bar.Delete
Next
适用于
PivotCache 对象，QueryTable 对象
描述
返回或设置指定数据源的命令串。可读写，Variant 类型。
说明
应使用 CommandText 属性而不应使用 SQL 属性，SQL 属性的存在主要是为了与 Microsoft Excel 的早期版本兼容。如果同时使用了这两个属性，则 CommandText 属性值将先起作用。
对于 OLE DB 源，CommandType 属性用于描述 CommandText 属性的值。
对于 ODBC 源，CommandText 属性与 SQL 属性功能相同，设置此属性将导致数据进行刷新。
示例
本示例为第一个查询表的 ODBC 数据源设置命令串。注意，命令串是一个SQL 语句。
Set qtQtrResults =
_ Workbooks(1).Worksheets(1).QueryTables(1)
With qtQtrResults
.CommandType = xlCmdSQL
.CommandText = _
"Select ProductID From Products Where ProductID < 10"
.Refresh
End With
适用于
PivotCache 对象，QueryTable 对象
描述
返回或设置下表所列XlCmdType常量中的一个。这些常量返回或设置CommandText属性值的描述。缺省值是xlCmdSQL。可读写，XlCmdType类型。
| 常量 | 描述 |
| xlCmdCube | 包含OLAP数据源中的一个块名cube name |
| xlCmdDefault | 包含OLE DB提供者所能识别的命令 |
| xlCmdSQL | 包含一个SQL指令 |
| xlCmdTable | 包含一个访问OLE DB数据源所需的表名 |
说明
只有当查询表或数据透视表高速缓存的 QueryType 属性值为xlOLEDBQuery 时，才可设置 CommandType 属性。
当 CommandType 属性的值为 xlCmdCube，如果没有与查询表相关联的数据透视表报表，则不能更改 CommandType 属性的值。
示例
本示例设置第一张查询表的 ODBC 数据源的命令串。该命令串是一个 SQL语句。
Set qtQtrResults = _
Workbooks(1).Worksheets(1).QueryTables(1)
With qtQtrResults
.CommandType = xlCmdSQL
.CommandText = _
"Select ProductID From Products Where ProductID < 10"
.Refresh
End With
适用于
Application 对象
描述
返回或设置 Microsoft Excel 中带下划线的 Macintosh 命令状态。可为以下XlCommandUnderlines 常量中的一种：xlCommandUnderlinesOn，xlCommandUnderlinesOff或 xlCommandUnderlinesAutomatic。Long 类型，可读写。
说明
在Microsoft Excel for Windows中，读取该属性返回的总是xlCommandUnderlinesOn，该属性只能设为 xlCommandUnderlinesOn，不允许设为其它任何值。
示例
本示例关闭 Microsoft Excel for Macintosh 中的命令行的显示。
Application.CommandUnderlines = xlCommandUnderlinesOff
描述
代表一条单元格批注。Comment 对象是 Comments 集合的成员。
使用 Comment 对象
使用 Comment 属性可返回一个 Comment 对象。下列示例对 E5 单元格的批注文字进行更改。
Worksheets(1).Range("E5").Comment.Text "reviewed on " & Date
使用 Comments(index)（其中 index 为批注号）可返回 Comments 集合中的单条批注。下列示例隐藏第一张工作表的第二条批注。
Worksheets(1).Comments(2).Visible = False
使用 AddComment 方法可为一个区域添加批注。下列示例为第一张工作表的 E5 单元格添加批注。
With Worksheets(1).Range("e5").AddComment
.Visible = False
.Text "reviewed on " & Date
End With
属性
Application 属性，Author 属性，Creator 属性，Parent 属性，Shape 属性，Visible 属性
方法
Delete 方法，Next 方法，Previous 方法，Text 方法
适用于
Range 对象，Scenario 对象
描述
Range 对象：返回 Comment 对象，该对象代表与该区域左上角单元格相联系的批注。只读。
Scenario 对象：返回或设置与该方案相联系的批注。批注文本不能超过 255个字符。String 类型，可读写。
另见
ChangeScenario 方法， ChangingCells 属性， NoteText 方法
示例
本示例设置工作表“Sheet1”中第一个方案的批注。
Worksheets("Sheet1").Scenarios(1).Comment = _
"Worst case July 1993 sales"
描述
单元格批注的集合。每一批注由一个 Comment 对象表示。
使用 Comments 集合
使用 Comments 属性可返回 Comments 集合。下列示例隐藏第一张工作表的所有批注。
Set cmt = Worksheets(1).Comments
For Each c In cmt
c.Visible = False
Next
使用 AddComment 方法可为一个区域添加批注。下列示例为第一张工作表中的 E5 单元格添加批注。
With Worksheets(1).Range("e5").AddComment
.Visible = False
.Text "reviewed on " & Date
End With
使用 Comments(index)（其中 index 为批注号）可返回 Comments 集合中单条批注。下列示例隐藏第一张工作表中的第二条批注。
Worksheets(1).Comments(2).Visible = False
属性
Application 属性，Count 属性，Creator 属性，Parent 属性
方法
Item 方法（d 集合）
适用于
Worksheet 对象
描述
返回 Comments 集合，该集合代表指定工作表中所有的批注。只读。
另见
示例
本示例将活动工作表中所有由 Jean Selva 所作的批注删除。
For Each c in ActiveSheet.Comments
If c.Author = "Jean Selva" Then c.Delete
Next
适用于
Workbook 对象
描述
返回或设置更新共享工作簿时解决冲突的方式。XlSaveConflictResolution类型，可读写。
可为下列 XlSaveConflictResolution 常量。
| 常量 | 说明 |
| xlLocalSessionChanges | 总接受本地用户所作的修改。 |
| xlOtherSessionChanges | 总取消本地用户所作的修改。 |
| xlUserResolution | 弹出对话框请求用户解决冲突。 |
示例
本示例使共享工作簿有冲突时总是接受本地用户所作的修改。
ActiveWorkbook.ConflictResolution = xlLocalSessionChanges
适用于
PivotCache 对象，QueryTable 对象
描述
返回或者设置包含下列某项的字符串：允许 Microsoft Excel 连接到 OLE
DB 数据源的 OLE DB 设置；允许 Microsoft Excel 连接到 ODBC 数据源的 ODBC 设置；允许 Microsoft Excel 连接到 Web 数据源的 URL；或者是文本文件的名称或路径，或是指定某个数据库或 Web 查询的文件名称或路径。Variant 类型，可读写。
说明
设置 Connection 属性并不会立即启动与数据源的连接。必须使用 Refresh方法来建立连接和检索数据。
在使用脱机多维数据集文件时，请将 UseLocalConnection 属性设置为True，并使用 LocalConnection 属性，而不用 Connection 属性。
有关连接字符串句法的详细信息，另见 QueryTables 集合的Add 方法和PivotCaches 集合的 Add 方法。
为了提高性能，用户可能会选择 Microsoft ActiveX 数据对象（ADO）库以直接访问数据源。
示例
本示例在活动工作表的 A3 单元格上新建一个基于 OLAP 提供程序的数据透视表高速缓存，然后基于该高速缓存创建一个新的数据透视表报表。
With ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
.Connection = _
"OLEDB;Provider=MSOLAP;Location=srvdata;Initial Catalog=National"
.MaintainConnection = True
.CreatePivotTable TableDestination:=Range("A3"), _
TableName:= "PivotTable1"
End With
With ActiveSheet.PivotTables("PivotTable1")
.SmallGrid = False
.PivotCache.RefreshPeriod = 0
With .CubeFields("[state]")
.Orientation = xlColumnField
.Position = 0
End With
With .CubeFields("[Measures].[Count Of au_id]")
.Orientation = xlDataField
.Position = 0
End With
End With
本示例为第一张工作表上的第一个查询表提供新的 ODBC 连接信息。
Worksheets(1).QueryTables(1) _
.Connection:="ODBC;DSN=96SalesData;UID=Rep21;PWD=NUyHwYQI;"
本示例指定一个文本文件。
Worksheets(1).QueryTables(1) _
Connection := "TEXT;C:\My Documents\19980331.txt"
适用于
Shape 对象，ShapeRange 集合对象
描述
返回指定的形状上连接节点的数目。Long 类型，只读。
示例
本示例向 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)
lastsite = secondRect.ConnectionSiteCount
With s.AddConnector(msoConnectorCurve, -0, 0, 100, 100).ConnectorFormat
.BeginConnect ConnectedShape:=firstRect, -ConnectionSite:=1
.EndConnect ConnectedShape:=secondRect, -ConnectionSite:=1
End With
With s.AddConnector(msoConnectorCurve, -0, 0, 100, 100).ConnectorFormat
.BeginConnect ConnectedShape:=firstRect, -ConnectionSite:=1
.EndConnect ConnectedShape:=secondRect, -ConnectionSite:=lastsite
End With
适用于
Shape 对象，ShapeRange 集合对象
描述
如果指定的形状是连接符，本属性为 True。Long 类型，只读。
示例
本示例删除 myDocument 上的所有连接符。
Set myDocument = Worksheets(1)
With myDocument.Shapes
For i = .Count To 1 Step -1
With .Item(i)
If .Connector Then .Delete
End With
Next
End With
描述
包含应用于连接符的属性和方法。连接符是用于连接其它两个形状的线，所连接的位置叫做连接节点。如果重新排列已连接的形状，那么连接符的几何形状将自动调整，以使重新排列的形状仍保持连接。
使用ConnectorFormat 对象
可用 ConnectorFormat 属性返回 ConnectorFormat 对象；可用BeginConnect 方法和 EndConnect 方法将连接符的端点与文档中的其它形状连接起来；可用 RerouteConnections 方法自动找出所连接的两个形状之间的最短路径；可用 Connector 属性判断某一形状是否为连接符。
请注意，虽然向 Shapes 集合添加连接符时，对其设置了大小和位置，但
将连接符的起点和终点连接到其它形状时，连接符的大小和位置将会自动调整。因而，如果打算用连接符连接其它形状，那么对其设置的初始大小和位置就没有什么实际意义。同样，用连接符连接其它形状时，将指定要连接的形状上的连接节点，但将连接符连接好之后，用 RerouteConnections方法可能会改变连接符所连接的连接节点，使开始时选定的连接节点变得没有意义。
下例向 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)
Setc c = s.AddConnector(msoConnectorCurve, 0, 0, 0, 0)
With c.ConnectorFormat
.BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
.EndConnect ConnectedShape:=secondRect, ConnectionSite:=1
c.RerouteConnections
End With
说明
连接节点的编号通常按下表所列的规则进行。
| 形状的类型 | 连接节点编号方案 |
| AutoShapes、WordArt、图片和 OLE对象 | 连接节点从顶部开始按反时针方向编号。 |
| 任意多边形 | 连接节点就是顶点，其编号就相应于顶点的编号。 |
对于复杂的形状，如果要搞清楚哪个编号相应于哪个连接节点，可在宏记录器打开的时候对该形状做一些操作，然后再查看所记录的代码；或者可创建并选定该形状，然后运行下述示例。下述代码将对每个连接节点进行编号，并对每个连接节点连接一个连接符。
Set mainshape = ActiveWindow.Selection.ShapeRange(1)
With mainshape
bx = .Left + .Width + 50
by = .Top + .Height + 50
End With
With ActiveSheet
For j = 1 To mainshape.ConnectionSiteCount
With .Shapes.AddConnector(msoConnectorStraight, -bx, by, bx + 50, by + 50)
.ConnectorFormat.EndConnect mainshape, j
.ConnectorFormat.Type= msoConnectorElbow
.Line.ForeColor.RGB = RGB(255, 0, 0)
l = .Left
t = .Top
End With
With .Shapes.AddTextbox(msoTextOrientationHorizontal, -l, t, 36, 14)
.Fill.Visible = False
.Line.Visible = False
.TextFrame.Characters.Text = j
End With
Next j
End With
属性
Application 属性，BeginConnected 属性，BeginConnectedShape 属性，BeginConnectionSite 属性，Creator 属性，EndConnected 属性，EndConnectedShape 属性，EndConnectionSite 属性，Parent 属性，Type 属性
方法
BeginConnect 方法，BeginDisconnect 方法，EndConnect 方法，EndDisconnect 方法
适用于
Shape 对象，ShapeRange 集合对象
描述
返回 ConnectorFormat 对象，该对象包含连接符格式属性。应用于代表连接符的 Shape 对象或 ShapeRange 对象。只读。
示例
本示例向 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
适用于
Range 对象
描述
将若干工作表中若干区域的数据合并计算至单个工作表上的单个区域中。
句法
expression.Consolidate(Sources, Function, TopRow, LeftColumn, CreateLinks)
expression
必选。该表达式返回 Range 对象。
Sources
Variant 类型，可选。以字符串数组的形式给出合并计算的源，该数组中包含 R1C1-样式的引用记号。这些引用必须包含将要合并计算的工作表的完整路径。
Function
Variant 类型，可选。合并计算函数。可为下列 XlConsolidationFunction 常量之一： xlAverage，xlCount，xlCountNums，xlMax，xlMin，xlProduct，xlStDev，xlStDevP，xlSum，xlVar 或 xlVarP。默认值为 xlAverage。
TopRow
Variant 类型，可选。若指定为 True，则基于合并计算区域中首行内的列标题对数据进行合并计算。若指定为 False，则按位置进行合并计算。默认值为 False。
LeftColumn
Variant 类型，可选。若指定为 True，则基于合并计算区域中左列内的行标题对数据进行合并计算。若指定为 False，则按位置进行合并计算。默认值为 False。
CreateLinks
Variant 类型，可选。若指定为 True，合并计算将使用工作表链接。若指定为 False，合并计算时将复制数据。默认值为 False。
另见
ConsolidationFunction 属性， ConsolidationOptions 属性， ConsolidationSources 属性， Style 属性
示例
本示例将工作表“Sheet2”和“Sheet3”中的数据用“SUM”函数合并计算至工作表“Sheet1”中。
Worksheets("Sheet1").Range("A1").Consolidate _
Sources:=Array("Sheet2!R1C1:R37C6", "Sheet3!R1C1:R37C6"), _
Function:=xlSum
适用于
Worksheet 对象
描述
返回当前合并计算所使用的函数代码。可为下列 XlConsolidationFunction常量之一： xlAverage，xlCount，xlCountNums，xlMax，xlMin，xlProduct，xlStDev，xlStDevP，xlSum，xlUnknown，xlVar 或 xlVarP。Long 类型，只读。
另见
Consolidate 方法， ConsolidationOptions 属性， ConsolidationSources 属性
示例
如果当前合并计算所使用的函数为“SUM”函数，本示例将显示一消息框。If Worksheets("Sheet1").ConsolidationFunction = xlSum Then
MsgBox "Sheet1 uses the SUM function for consolidation."
End If
适用于
Worksheet 对象
描述
返回表示合并计算选项的三元素数组，如下表所示。某元素为 True 就表示设置了该选项。
Variant 类型，只读。
| 元素 | 含义 |
| 1 | 使用首行的标志 |
| 2 | 使用左列的标志 |
| 3 | 创建与源数据的链接 |
另见
Consolidate 方法， ConsolidationFunction 属性， ConsolidationSources 属性
示例
本示例显示工作表“Sheet1”中合并计算的选项。选项列表将出现在本示例新建的工作表中。
Set newSheet = Worksheets.Add
aOptions = Worksheets("Sheet1").ConsolidationOptions
newSheet.Range("A1").Value = "Use labels in top row"
newSheet.Range("A2").Value = "Use labels in left column"
newSheet.Range("A3").Value = "Create links to source data"
For i = 1 To 3
If aOptions(i) = True Then
newSheet.Cells(i, 2).Value = "True"
Else
newSheet.Cells(i, 2).Value = "False"
End If
Next I
newSheet.Columns("A:B").AutoFit
适用于
Worksheet 对象
描述
返回一个字符串数组，这些字符串是工作表中当前合并计算的数据源的名称。如果工作表中没有合并计算，将返回 Empty。Variant 类型，只读。
另见
Consolidate 方法， ConsolidationFunction 属性， ConsolidationOptions 属性
示例
本示例显示在工作表“Sheet1”中用于合并计算的数据源的名称。名称列表将出现在本示例新建的工作表中。
Set newSheet = Worksheets.Add
newSheet.Range("A1").Value = "Consolidation Sources"
aSources = Worksheets("Sheet1").ConsolidationSources
If IsEmpty(aSources) Then
newSheet.Range("A2").Value = "none"
Else
For i = 1 To UBound(aSources)
newSheet.Cells(i + 1, 1).Value = aSources(i)
Next I
End If
newSheet.Columns("A:B").AutoFit
适用于
Application 对象
描述
如果手写识别程序只能识别数字和标点符号则为 True。Boolean 类型，可读写。
注意：该属性仅在使用 Microsoft Windows for Pen Computing 时可用。如果试图在其它操作系统中对该属性进行设置将产生错误。
示例
本示例监测是否运行在 Microsoft Windows for Pen Computing 上，如果是则限定手写识别程序仅识别数字和标点符号。
If Application.WindowsForPens Then
Application.ConstrainNumeric = True
End If
适用于
Worksheet 对象
描述
返回一个对象，此对象包含指定的嵌入式工作簿。Object 类型，只读。
说明
对指定的嵌入式工作簿使用此属性可返回相应的容器对象。如果指定对象不支持 OLE 自动化，或者指定工作簿不是嵌入式的，此属性无效。
示例
本示例隐藏包含活动的 Microsoft Excel 工作簿的活页夹中的第二部分，并将A1单元格的值设为 345.67。本示例中使用的活页夹为 Binder1.obd。
Set myBinder = GetObject("Binder1.obd", "Office.Binder")
Set myWorkbook = myBinder.Sections(1).Object
With myWorkbook
.Container.Sections(2).Visible = False
.Sheets(1).Cells(1, 1).Value = 345.67
End With
适用于
PictureFormat 对象
描述
返回或设置指定的图片或 OLE 对象的对比度。本属性的值必须是从 0.0（对比度最小）到 1.0（对比度最大）之间的数。Single 类型，可读写。
示例
本示例设置 myDocument 上的第一个形状的对比度。第一个形状必须是图片或 OLE 对象。
Set myDocument = Worksheets(1)
myDocument.Shapes(1).PictureFormat.Contrast = 0.8
适用于
Application 对象
描述
如果Microsoft Excel的控制字符以从右到左的语言显示则值为True。可读写，Boolean类型。
说明
只有安装并选择了从右至左的语言时才能设置此属性。
示例
本例设置Microsoft Excel翻译控制字符。
Application.ControlCharacters = True
描述
包含 Microsoft Excel 控件属性。
使用 ControlFormat 对象
使用 ControlFormat 属性可返回一个 ControlFormat 对象。下列示例为第一张工作表的一个列表框控件设置填充区域。
Worksheets(1).Shapes(1).ControlFormat.ListFillRange = "A1:A10"
如果指定形状不是控件，则 ControlFormat 属性失效；并且如果该控件不是列表框则 ListFillRange 属性失效。
属性
Application 属性，Creator 属性，DropDownLines 属性，Enabled 属性，LargeChange 属性，LinkedCell 属性，ListCount 属性，ListFillRange 属性，ListIndex 属性，LockedText 属性，Max 属性，Min 属性，MultiSelect属性，Parent 属性，PrintObject 属性，SmallChange 属性，Value 属性
方法
AddItem 方法，List 方法，RemoveAllItems 方法，RemoveItem 方法
适用于
Shape 对象
描述
返回一个 ControlFormat 对象，该对象包含 Microsoft Excel 控件属性。
只读。
示例
本示例删除列表框中的选定数据项。如果 Shapes(2) 不表示列表框则
本示例无效。
Set lbcf = Worksheets(1).Shapes(2).ControlFormat
lbcf.RemoveItem lbcf.ListIndex
适用于
Application 对象
描述
在公式中的A1和R1C1引用样式之间转换单元格引用，或者在相对和绝对引用之间进行转换，或者同时进行这两种转换。
句法
expression.ConvertFormula(Formula,FromReferenceStyle,ToReferenceStyle,ToAbsolute, RelativeTo)
expression
必选。该表达式返回一个 Application对象。
Formula
Variant 类型，必选。包含所要转换的公式的字符串。必须为合法的公式，并且以等号开头。
FromReferenceStyle
Long 类型，必选。公式的引用样式 。可为下列 XLReferenceStyle 常量之一： xlA1 或 xlR1C1。
ToReferenceStyle
Variant 类型，可选。要返回的引用样式。可为下列 XLReferenceStyle 常量之一： xlA1 或 xlR1C1。如果省略本参数，则引用样式不作改变；公式样式保持 FromReferenceStyle 参数所指定的样式。
ToAbsolute
Variant 类型，可选。指定要转换的引用类型，可为下列 XLReferenceType常量之一： xlAbsolute、 xlAbsRowRelColumn、 xlRelRowAbsColumn 或xlRelative。如果省略该参数，则引用类型不作改变。
RelativeTo
Variant 类型，可选。包含一个单元格的 Range 对象。与此单元格有关的相关引用。
示例
本示例将包含 R1C1-样式引用的 SUM 公式转换为包含 A1-样式引用的等价公式，然后显示转换结果。
inputFormula = "=SUM(R10C2:R15C2)"
MsgBox Application.ConvertFormula( _
formula:=inputFormula, _
fromReferenceStyle:=xlR1C1, _t
oReferenceStyle:=xlA1)
适用于
FreeformBuilder 对象
描述
创建形状，该形状将具有指定的 FreeformBuilder 对象的几何特性。返回Shape 对象，该对象代表新建的形状。
注意：在使用 ConvertToShape 方法之前，必须向 FreeformBuilder 对象至少应用一次 AddNodes 方法。
句法
expression.ConvertToShape
expression
必选。该表达式返回 FreeformBuilder 对象。
示例
本示例向 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
适用于
Chart 对象，ChartArea 对象，ChartObject 对象，ChartObjects 集合对象，Charts 集合对象，OLEObject 对象，OLEObjects 集合对象，Point 对象，Range对象，Series 对象，Shape 对象，Sheets 集合对象，Worksheet对象，Worksheets 集合对象
描述
句法 1：将指定对象复制到剪贴板。将数据点或数据系列的图片复制到剪贴板上。
句法 2：将选定的 Range 对象复制到指定区域或者复制到剪贴板上。
句法 3：将工作表复制到工作簿的另一位置。
句法 1
expression.Copy
句法 2
expression.Copy(Destination)
句法 3
expression.Copy(Before, After)
expression
必选。该表达式返回“应用于”列表中某个对象。要复制整张图表，可对 Chart
对象使用句法 3。如果仅复制图表区域，可对 ChartArea 对象使用句法 1。
Destination
Variant 类型，可选。指定指定的区域要复制到的新区域。如果省略该参数，则 Microsoft Excel 将指定区域复制到剪贴板。
Before
句法 3： Variant 类型，可选。复制工作表放到此工作表之前。如果已经指定了 After，则不能指定 Before。
After
Variant 类型，可选。复制工作表放到此工作表之后。如果已经指定了Before，则不能指定 After。
说明
如果既不指定 Before 参数也不指定 After 参数，则 Microsoft Excel 将新建一个工作簿并将复制工作表放到新工作簿中。
另见
示例
本示例复制 Sheet1，并将其放到 Sheet3 之后。
Worksheets("Sheet1").Copy after := Worksheets("Sheet3")
本示例复制 Sheet1 中的已用区域，新建一个工作表，然后将复制区域的值粘贴到新工作表中。
Worksheets("Sheet1").UsedRange.Copy
Set newSheet = Worksheets.Add
newSheet.Range("A1").PasteSpecial Paste:=xlValues
本示例将 Sheet1 中 A1:D4 单元格的公式复制到 Sheet2 中的 E5:H8 单元格中。
Worksheets("Sheet1").Range("A1:D4").Copy _
destination:=Worksheets("Sheet2").Range("E5")
适用于
Range 对象
描述
将一个ADO或 DAO Recordset 对象的内容复制到工作表中，复制的起始位置在指定区域的左上角。如果 Recordset 对象包含带 OLE 对象的字段，本方法将失效。
句法
expression.CopyFromRecordset(Data, MaxRows, MaxColumns)
expression
必选。该表达式返回一个 Range 对象。
Data
Void 类型，必选。复制到指定区域的 Recordset 对象。
MaxRows
Variant 类型，可选。复制到工作表的记录个数上限。如果省略该参数，将复制 Recordset 对象的所有记录。
MaxColumns
Variant 类型，可选。复制到工作表的字段个数上限。如果省略该参数，将复制 Recordset 对象的所有字段。
说明
复制内容从 Recordset 对象的当前行起始。复制完成之后， Recordset 对象的 EOF 属性值为 True。
示例
本示例将 DAO Recordset 对象中的字段名称复制到工作表的第一行中，并将这些名称的格式设为加粗。然后，本示例将记录集复制到工作表中，复制起始位置在 A2 单元格。
For iCols = 0 to rs.Fields.Count - 1
ws.Cells(1, iCols + 1).Value = rs.Fields(iCols).Name
Next
ws.Range(ws.Cells(1, 1), _
ws.Cells(1, rs.Fields.Count)).Font.Bold = True
ws.Range("A2").CopyFromRecordset rs
适用于
Application 对象
描述
如果对象与单元格一同剪切、复制、提取和排序则为 True。Boolean 类型，可读写。
示例
本示例设置 Microsoft Excel 将单元格与对象一同剪切、复制、提取和排序。
Application.CopyObjectsWithCells = True
适用于
Chart 对象，ChartObject 对象，ChartObjects 集合对象，OLEObject 对象，OLEObjects 集合对象，Range 对象，Shape 对象
描述
将选定对象作为图片复制到剪贴板。
句法
expression.CopyPicture(Appearance, Format, Size)
expression
必选。该表达式返回“应用于”列表中某个对象。
Appearance
Variant 类型，可选。指定图片的复制方式。 可为下列 XlPictureAppearance常数之一：xlScreen 或 xlPrinter。如果使用的是 xlScreen，图片将尽可能按照其屏幕显示进行复制。如果使用的是 xlPrinter，图片将按其打印效果进行复制。默认值为 xlScreen。
Format
Variant 类型，可选。图片的格式。可为以下 XlCopyPictureFormat 常数之一： xlPicture 或 xlBitmap。默认值为 xlPicture。
Size
Variant 类型，可选。只与Chart 对象一起使用。当指定的对象是图表中的图（不是嵌入工作表中的图）时，此参数代表复制到剪贴板的图片大小。可为下列 XlPictureAppearance 常数之一： xlScreen 或 xlPrinter。如果使用的是 xlScreen，复制到剪贴板的图片大小将尽可能与其屏幕显示的大小一致。如果使用的是 xlPrinter，复制到剪贴板的图片大小将尽可能与打印输出的大小一致。默认值为 xlPrinter。
说明
如果复制的是一个区域，则必须由相邻的单元格组成。
另见
示例
本示例将 Sheet1 中 A1:D4 单元格的屏幕图象复制到剪贴板，并将其位图粘贴到 Sheet1 中的另一位置。
Worksheets("Sheet1").Range("A1:D4").CopyPicture xlScreen, xlBitmap
Worksheets("Sheet1").Paste _
Destination:=Worksheets("Sheet1").Range("E6")
描述
代表三维图表的边角。本对象不是一个集合。
使用 Corners 对象
使用 Corners 属性可返回 Corners 对象。下列示例选定第一张图表的边角。
Charts(1).Corners.Select
如果指定图表不是三维图表则 Corners 属性失效。
属性
Application 属性，Creator 属性，Name 属性，Parent 属性
方法
Select 方法
适用于
Chart 对象
描述
返回一个 Corners 对象，该对象代表三维图表的角。只读。
示例
本示例选定“图表1”的角，并在三维图表上运行（在其他类型的图表上 Select方法无效）。With Charts(揅hart1")
.Activate
.Corners.Select
End With
适用于
AutoCorrect 对象
描述
如果 Microsoft Excel 自动更正无意中使用的 CAPS LOCK 键则为 True。Boolean 类型，可读写。
示例
本示例对 CAPS LOCK 键的处理进行设置，使 Microsoft Excel 可自动更正无意中使用的 CAPS LOCK 键。
Application.AutoCorrect.CorrectCapsLock = True
适用于
AutoCorrect 对象
描述
如果 Microsoft Excel 自动更正句子的大写（第一个单词）则为 True。Boolean 类型，可读写。
示例
本示例对大写功能的处理进行设置，使 Microsoft Excel 可自动更正句子的大写。
Application.AutoCorrect.CorrectSentenceCap = True
适用于
AddIns 集合对象，Adjustments 对象，Areas 集合对象，Axes 集合对象，Borders 集合对象，CalculatedFields 集合对象，CalculatedItems 集合对象，Characters 对象，ChartGroups 集合对象，ChartObjects 集合对象，Charts 集合对象，Comments 集合对象，CubeFields 集合对象，CustomViews 集合对象，DataLabels 集合对象，Dialogs 集合对象，Filters集合对象，FormatConditions 集合对象，GroupShapes 集合对象，HPageBreaks 集合对象，Hyperlinks 集合对象，LegendEntries 集合对象，Names 集合对象，ODBCErrors 集合对象，OLEDBErrors 集合对象，OLEObjects 集合对象，Panes 集合对象，Parameters 集合对象，Phonetics集合对象，PivotCaches 集合对象，PivotFields 集合对象，PivotFormulas 集合对象，PivotItems 集合对象，PivotTables 集合对象，Points 集合对象，PublishObjects 集合对象，QueryTables 集合对象，Range 对象，RecentFiles集合对象，Scenarios集合对象，SeriesCollection 集合对象，ShapeNodes 集合对象，ShapeRange 集合对象，Shapes 集合对象，Sheets 集合对象，Styles集合对象，Trendlines 集合对象，VPageBreaks 集合对象，Windows 集合对象，Workbooks 集合对象，Worksheets 集合对象
描述
返回指定集合中对象的数目。
Long 类型，只读。
说明
对于OLAP数据源，只对数据透视表中的可视域进行计数。
示例
本示例显示 Sheet1 中选定区域的列数。本示例还将检测选定区域中是否包含多重选定区域，如果包含，则对多重选定区域中每一子区域进行循环。
Worksheets("Sheet1").Activate
areaCount = Selection.Areas.Count
If areaCount <= 1 Then
MsgBox "The selection contains " & _
Selection.Columns.Count & " columns."
Else
For i = 1 To areaCount
MsgBox "Area " & i & " of the selection contains " & _
Selection.Areas(i).Columns.Count & "columns. "
Next I
End If
本示例将 A1 单元格的最后一个字符设为上标字符。
n = Worksheets("Sheet1").Range("A1").Characters.Count
Worksheets("Sheet1").Range("A1").Characters(n, 1) _
.Font.Superscript = True
适用于
Workbook 对象
描述
如果保存文件时创建备份文件则为 True。Boolean 类型，只读。
示例
本示例检查保存当前工作簿时是否创建备份文件，如果创建则显示一条信息。
If ActiveWorkbook.CreateBackup = True Then
MsgBox "Remember, there is a backup copy of this workbook"
End If
适用于
Range 对象
描述
在指定区域中依据工作表中的文字标志创建名称。
句法
expression.CreateNames(Top, Left, Bottom, Right)
expression
必选。该表达式返回一个 Range 对象。
Top
Variant 类型，可选。若指定为 True，则使用首行中的标志创建名称。默认值为 False。
Left
Variant 类型，可选。若指定为 True，则使用左列中的标志创建名称。默
认值为 False。
Bottom
Variant 类型，可选。若指定为 True，则使用尾行中的标志创建名称。默认值为 False。
Right
Variant 类型，可选。若指定为 True，则使用最右列中的标志创建名称。默认值为 False。
说明
如果未指定 Top，Left，Bottom 或 Right 之一， Microsoft Excel 将根据指定区域的形状猜测用于创建名称的文字标志的位置。
另见
示例
本示例用单元格区域“A1:A3”中的文字创建区域“B1:B3”的名称。注意指定区域时必须包括那些含有名称文字的单元格，即便只是为单元格区域“B1:B3”创建名称。
Set rangeToName = Worksheets("Sheet1").Range("A1:B3")
rangeToName.CreateNames Left:=True
适用于
Hyperlink 对象
描述
新建一个链接到指定超级链接的文档。
句法
expression.CreateNewDocument(Filename, EditNow, Overwrite)
expression
一个返回 Hyperlink 对象的表达式。
Filename
必选。String 类型。表示指定文档的文件名。
EditNow
必选。Boolean 类型。如果为 True，则立即在关联的编辑环境中打开指定文档。默认值为 True。
Overwrite
必选，Boolean 类型。如果为 True，则覆盖相同文件夹中的已有同名文件。如果为 False，则保留同名文件，同时使用 Filename 参数指定一个新文件名。默认值为 False。
示例
本示例在第一张工作表中新建一个基于新超级链接的文档，然后将该文档装入 Microsoft Excel 中进行编辑。该文档名为“Report.xls”，同时还会覆盖“\\Serverl\Annual”目录下的所有同名文件。
with Worksheets(1)
Set objHyper =
_ .Hyperlinks.Add(Anchor:=.Range("A10"), _
Address:="\\Server1\Annual\Report.xls")
objHyper.CreateNewDocument _
FileName:="\\Server1\Annual\Report.xls", _
EditNow:=True, Overwrite:=True
End With适用于
PivotCache 对象
描述
创建一个基于 PivotCache 对象的数据透视表报表，返回一个 PivotTable对象。
句法
expression.CreatePivotTable(TableDestination, TableName, ReadData)
expression
一个返回 PivotCache 对象的表达式。
TableDestination
必选，Variant 类型。代表数据透视表报表目标区域（工作表中用于放置所生成的数据透视表报表的区域）左上角处的单元格。目标区域必须位于工作簿（此工作簿应包含由 expression 所指定的 PivotCache 对象）的某个工作表中。
TableName
可选，Variant 类型。代表新的数据透视表报表的名称。
ReadData
可选，Variant 类型。如果为 True，则创建一个包含外部数据库中所有记录的数据透视表高速缓存，此高速缓存可以很大。如果为 False，则允许在实际读取数据前将有些字段设置为基于服务器的页字段。
说明
有关创建基于数据透视表高速缓存的数据透视表报表的另一种方法，
另见PivotTable 对象的 Add 方法。
另见
Add 方法（PivotCaches 集合）， PivotTableWizard 方法
示例
本示例在活动工作表的 A3 单元格上创建一个基于 OLAP 提供者的新的数据透视表高速缓存，然后再基于此高速缓存创建一个新的数据透视表报表。
With ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
.Connection = _
"OLEDB;Provider=MSOLAP;Location=srvdata;Initial Catalog=National"
.MaintainConnection = True
.CreatePivotTable TableDestination:=Range("A3"), _
TableName:= "PivotTable1"
End With
With ActiveSheet.PivotTables("PivotTable1")
.SmallGrid = False
.PivotCache.RefreshPeriod = 0
With .CubeFields("[state]")
.Orientation = xlColumnField
.Position = 0
End With
With .CubeFields("[Measures].[Count Of au_id]")
.Orientation = xlDataField
.Position = 0
End With
End With
本示例在活动工作表的 A3 单元格上通过一个连接到 Microsoft Jet 的ADO 新建一个数据透视表高速缓存，然后再基于此高速缓存新建一个数据透视表报表。
Dim cnnConn As ADODB.Connection
Dim rstRecordset As ADODB.Recordset
Dim cmdCommand As ADODB.Command
' 打开连接。Set cnnConn = New ADODB.Connection
With cnnConn
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0"
.Open "C:\perfdate\record.mdb"
End With
'设置命令文本。
Set cmdCommand = New ADODB.Command
Set cmdCommand.ActiveConnection = cnnConn
With cmdCommand
.CommandText = "Select Speed, Pressure, Time From DynoRun"
.CommandType = adCmdText
.Execute
End With
'打开记录集。
Set rstRecordset = New ADODB.Recordset
Set rstRecordset.ActiveConnection = cnnConn
rstRecordset.Open cmdCommand
'创建数据透视表高速缓存和报表。
Set objPivotCache = ActiveWorkbook.PivotCaches.Add( _
SourceType:=xlExternal)
Set objPivotCache.Recordset = rstRecordset
With objPivotCache
.CreatePivotTable TableDestination:=Range("A3"), _
TableName:="Performance"
End With
With ActiveSheet.PivotTables("Performance")
.SmallGrid = False
With .PivotFields("Pressure")
.Orientation = xlRowField
.Position = 1
End With
With .PivotFields("Speed")
.Orientation = xlColumnField
.Position = 1
End With
With .PivotFields("Time")
.Orientation = xlDataField
.Position = 1
End With
End With
' 关闭连接和最后清理。
cnnConn.Close
Set cmdCommand = Nothing
Set rstRecordSet = Nothing
Set cnnConn = Nothing
适用于
Scenarios 集合对象
描述
新建一个工作表，并在其中显示指定工作表中的所有方案的总结报表。
句法
expression.CreateSummary(ReportType, ResultCells)
expression
必选。该表达式返回一个 Scenarios 集合。
ReportType
Variant 类型，可选。报表类型，可为下列 XlSummaryReportType 常数之一：xlStandardSummary 或 xlSummaryPivotTable。默认值为xlStandardSummary。
ResultCells
Variant 类型，可选。代表指定工作表中计算结果单元格的 Range 对象。一般而言，此区域指的是一个或多个包含公式的单元格，即显示特定方案计算结果的单元格，这些单元格中的公式的值由模型中的可变单元格值计算而得。如果省略此参数，报表中将没有任何结果单元格。
示例
本示例用“Sheet1”中的计算结果单元格区域“C4:C9”创建“Sheet1”中所有方案的总结报告。
orksheets("Sheet1").Scenarios.CreateSummary _
ResultCells := Worksheets("Sheet1").Range("C4:C9")
适用于
AddIn 对象，AddIns 集合对象，Adjustments 对象，Application 对象，Areas 集合对象，AutoCorrect 对象，AutoFilter 对象，Axes 集合对象，Axis 对象，AxisTitle 对象，Border 对象，Borders 集合对象，CalculatedFields 集合对象，CalculatedItems 集合对象，CalloutFormat 对象，Characters 对象，Chart 对象，ChartArea 对象，ChartColorFormat 对象，ChartFillFormat 对象，ChartGroup 对象，ChartGroups 集合对象，ChartObject 对象，ChartObjects 集合对象，Charts 集合对象，ChartTitle对象，ColorFormat 对象，Comment 对象，Comments 集合对象，ConnectorFormat 对象，ControlFormat 对象，Corners 对象，CubeField 对象，CubeFields 集合对象，CustomView 对象，CustomViews 集合对象，DataLabel 对象，DataLabels 集合对象，DataTable 对象，DefaultWebOptions 对象，Dialog 对象，Dialogs 集合对象，DisplayUnitLabel 对象，DownBars 对象，DropLines 对象，ErrorBars 对象，FillFormat 对象，Filter 对象，Filters 集合对象，Floor 对象，Font 对象，FormatCondition 对象，FormatConditions 集合对象，FreeformBuilder对象，Gridlines 对象，GroupShapes 集合对象，HiLoLines 对象，HPageBreak 对象，HPageBreaks 集合对象，Hyperlink 对象，Hyperlinks集合对象，Interior 对象，LeaderLines 对象，Legend 对象，LegendEntries集合对象，LegendEntry 对象，LegendKey 对象，LineFormat 对象，LinkFormat 对象，Name 对象，Names 集合对象，ODBCError 对象，ODBCErrors 集合对象，OLEDBError 对象，OLEDBErrors 集合对象，OLEFormat 对象，OLEObject 对象，OLEObjects 集合对象，Outline 对象，PageSetup 对象，Pane 对象，Panes 集合对象，Parameter 对象，Parameters 集合对象，Phonetic 对象，Phonetics 集合对象，PictureFormat对象，PivotCache 对象，PivotCaches 集合对象，PivotField 对象，PivotFields集合对象，PivotFormula 对象，PivotFormulas 集合对象，PivotItem 对象，PivotItems 集合对象，PivotLayout 对象，PivotTable 对象，PivotTables集合对象，PlotArea 对象，Point 对象，Points 集合对象，PublishObject 对象，PublishObjects 集合对象，QueryTable 对象，QueryTables 集合对象，Range 对象，RecentFile 对象，RecentFiles 集合对象，RoutingSlip 对象，Scenario 对象，Scenarios 集合对象，Series 对象，SeriesCollection 集合对象，SeriesLines 对象，ShadowFormat 对象，Shape 对象，ShapeNode 对象，Sheets 集合对象，SoundNote 对象，Style 对象，Styles 集合对象，TextEffectFormat 对象，TextFrame 对象，ThreeDFormat 对象，TickLabels对象，TreeviewControl 对象，Trendline 对象，Trendlines 集合对象，UpBars对象，Validation 对象，VPageBreak 对象，VPageBreaks 集合对象，Walls对象，WebOptions 对象，Window 对象，Windows 集合对象，Workbook对象，Workbooks 集合对象，Worksheet 对象，WorksheetFunction 对象，Worksheets 集合对象
描述
返回一个 32 位的整数，此整数代表用于创建该对象的应用程序。如果该对象是在 Microsoft Excel 中创建的，则本属性将返回字符串“XCEL”，它等于十六进制的数字“5843454C”。只读，Long 类型。
说明
Creator 属性是为 Macintosh 平台上的 Microsoft Excel 设计的，在
Macintosh 平台上，每个应用程序都具有一个四字符的创建程序代码。例如，Microsoft Excel 的创建程序代码为“XCEL"。
另见
示例
本示例显示一条有关 myObject 创建程序的消息。
Set myObject = ActiveWorkbook
If myObject.Creator = &h5843454c Then
MsgBox "This is a Microsoft Excel object"
Else
MsgBox "This is not a Microsoft Excel object"
End If
适用于
Filter 对象
描述
返回筛选区域内指定列上的第一个筛选值。
Variant 类型，只读。
另见
示例
下面的示例设置一个变量的值为 Criteria1 属性。此 Criteria1 属性是 Crew 工作表中已过滤范围中第一列的过滤器的。
With Worksheets("Crew")
If .AutoFilterMode Then
With .AutoFilter.Filters(1)
If .On Then c1 = .Criteria1
End With
End If
End With
适用于
Filter 对象
描述
返回已过滤范围中指定列的第二个过滤的值。只读，Variant类型。
说明
访问过滤器的Criteria2 属性时，如果该过滤器没有使用两个标准则将发生错误。在试图访问 Criteria2 属性之前，需保证 Filter 对象的 Operator 属性不为零(0) 。
另见
示例
下面的示例设置一个变量的值为 Criteria2 属性。该属性是 Crew 工作表中已过滤范围中第一列的过滤器的。
With Worksheets("Crew")
If .AutoFilterMode Then
With .AutoFilter.Filters(1)
If .On And .Operator Then
c2 = .Criteria2
Else
c2 = "Not set"
End If
End With
End If
End With
适用于
PictureFormat 对象
描述
返回或设置要从指定的图片或 OLE 对象底部裁去的磅数。Single 类型，可读写。
注意：裁剪操作是相对于图片的原有大小进行计算的。例如，如果插入的图片原高度为 100 磅，后又将其高度按比例调整到 200 磅，然后将CropBottom 属性设置为 50，那么将从图片的底部裁去 100 磅（而非 50 磅）。
示例
本示例从 myDocument 上的第三个形状底部裁去 20 磅。为使本示例正常运行，第三个形状必须是图片或 OLE 对象。
Set myDocument = Worksheets(1) myDocument.Shapes(3).PictureFormat.CropBottom = 20
使用本示例，可以指定要从选定的形状底部裁去的百分比，不管该形状是否已被调整过大小。为使本示例正常运行，选定的形状必须是图片或 OLE对象。
percentToCrop = InputBox("What percentage do you want to crop off the bottom of thispicture?")
Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1)
With shapeToCrop.Duplicate
.ScaleHeight 1, True
origHeight = .Height
.Delete
End With
cropPoints = origHeight * percentToCrop / 100
shapeToCrop.PictureFormat.CropBottom = cropPoints
适用于
PictureFormat 对象
描述
返回或设置要从指定的图片或 OLE 对象左边裁去的磅数。Single 类型，
可读写。
注意：裁剪操作是相对于图片的原有大小进行计算的。例如，如果插入的图片原宽度为 100 磅，后又将其宽度按比例调整到 200 磅，然后将CropLeft 属性设置为 50，那么将从图片的左边裁去 100 磅（而非 50磅）。
示例
本示例从 myDocument 上的第三个形状左边裁去 20 磅。为使本示例正常运行，第三个形状必须是图片或 OLE 对象。
Set myDocument = Worksheets(1) myDocument.Shapes(3).PictureFormat.CropLeft = 20
使用本示例，可以指定要从选定的形状左边裁去的百分比，不管该形状是否已被调整过大小。为使本示例正常运行，选定的形状必须是图片或 OLE对象。
percentToCrop = InputBox("What percentage do you want to crop off the left of thispicture?")
Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1)
With shapeToCrop.Duplicate
.ScaleWidth 1, True
origWidth = .Width
.Delete
End With
cropPoints = origWidth * percentToCrop / 100
shapeToCrop.PictureFormat.CropLeft = cropPoints
适用于
PictureFormat 对象
描述
返回或设置要从指定的图片或 OLE 对象右边裁去的磅数。Single 类型，可读写。
注意：裁剪操作是相对于图片的原有大小进行计算的。例如，如果插入的图片原宽度为 100 磅，后又将其宽度按比例调整到 200 磅，然后将CropRight 属性设置为 50，那么将从图片的右边裁去 100 磅（而非 50磅）。
示例
本示例从 myDocument 上的第三个形状右边裁去 20 磅。为使本示例正常运行，第三个形状必须是图片或 OLE 对象。
Set myDocument = Worksheets(1) myDocument.Shapes(3).PictureFormat.CropRight = 20
使用本示例，可以指定要从选定的形状右边裁去的百分比，不管该形状是否已被调整过大小。为使本示例正常运行，选定的形状必须是图片或 OLE对象。
percentToCrop = InputBox("What percentage do you want to crop off the right of thispicture?")
Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1)
With shapeToCrop.Duplicate
.ScaleWidth 1, True
origWidth = .Width
.Delete
End With
cropPoints = origWidth * percentToCrop / 100
shapeToCrop.PictureFormat.CropRight = cropPoints
适用于
PictureFormat 对象
描述
返回或设置要从指定的图片或 OLE 对象顶部裁去的磅数。Single 类型，可读写。
注释：裁剪操作是相对于图片的原有大小进行计算的。例如，如果插入的图片原高度为 100 磅，后又将其高度按比例调整到 200 磅，然后将CropTop 属性设置为 50，那么将从图片的顶部裁去 100 磅（而非 50磅）。
示例
本示例从 myDocument 上的第三个形状顶部裁去 20 磅。为使本示例正常运行，第三个形状必须是图片或 OLE 对象。
Set myDocument = Worksheets(1)myDocument.Shapes(3).PictureFormat.CropTop = 20
使用本示例，可以指定要从选定的形状顶部裁去的百分比，不管该形状是否已被调整过大小。为使本示例正常运行，选定的形状必须是图片或 OLE对象。
percentToCrop = InputBox("What percentage do you want to crop off the top of thispicture?")
Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1)
With shapeToCrop.Duplicate
.ScaleHeight 1, True
origHeight = .Height
.Delete
End With
cropPoints = origHeight * percentToCrop / 100
shapeToCrop.PictureFormat.CropTop = cropPoints
适用于
Axis 对象
描述
返回或者设置指定坐标轴上与其他坐标轴相交的点。
Long 类型，可读写。可为下列 XlAxisCrosses 常量之一。
| 常量 | 意义 |
| xlAxisCrossesAutomatic | 由 Microsoft Excel 设置坐标轴交点。 |
| xlMinimum | 坐标轴交点在最小值点。 |
| xlMaximum | 坐标轴交点在最大值点。 |
| xlAxisCrossesCustom | 由 CrossesAt 属性指定坐标轴交点。 |
说明
本属性对三维图表或者雷达图无效。
本属性既可用于分类坐标轴，也可用于数值坐标轴。对于分类坐标轴，xlMinimum 设置数值坐标轴的交点在第一个分类， xlMaximum 设置数值坐标轴交点在最后一个分类。
请注意， xlMinimum 和 xlMaximum 可表示不同的意义，视坐标轴的具体情况而定。
另见
示例
本示例设置“图表1”的数值坐标轴与分类坐标轴的交点在最大的 x 值处。
Charts("Chart1").Axes(xlCategory).Crosses = xlMaximum
适用于
Axis 对象
描述
返回或者设置数值坐标轴中与分类坐标轴的交点。仅应用于数值坐标轴。Double 类型，可读写。
说明
设置该属性将把 Crosses 属性值改为 xlAxisCrossesCustom。本属性不可用于三维图表或雷达图。
另见
示例
本示例设置“图表1”的分类坐标轴与数值坐标轴的交点在数值坐标轴的 3处。
With Charts("Chart1").Axes(xlValue)
.Crosses = xlCustom
.CrossesAt = 3
End With
描述
代表 OLAP 多维数据集中的层次或度量值字段。在数据透视表报表中，CubeField 对象是 CubeFields 集合中的成员。
使用 CubeField 对象
使用 CubeField 属性可返回 CubeField 对象。本示例对所有层次字段（工作表“Sheet1”中第一个基于OLAP的数据透视表报表）的多维数据集字段名称创建一个列表。
Set objNewSheet = Worksheets.Add
objNewSheet.Activate
intRow = 1For Each objPF in _
Worksheets("Sheet1").PivotTables(1).PivotFields
If objPF.CubeField.CubeFieldType = xlHierarchy Then
objNewSheet.Cells(intRow, 1).Value = objPF.Name
intRow = intRow + 1
End If
Next objPF
使用 CubeFields(index) 可返回一个 CubeField 对象，其中，index 为多维数据集字段的索引号。下例可确定活动工作表中第一个数据透视表报表的第二个多维数据集字段的名称。
strAlphaName = _
ActiveSheet.PivotTables(1).CubeFields(2).Name
属性
Application 属性，Caption 属性，Creator 属性，CubeFieldType 属性，DragToColumn 属性，DragToData 属性，DragToHide 属性，DragToPage属性，DragToRow 属性，HiddenLevels 属性，Name 属性，Orientation 属性，Parent 属性，Position 属性，TreeviewControl 属性，Value 属性
另见
适用于
PivotField 对象
描述
返回派生出指定数据透视表字段的 CubeField 对象。只读。
另见
示例
本示例为工作表“Sheet1”上第一个基于OLAP 的数据透视表报表中的所有层次字段的多维数据集字段名称创建一个列表。
Set objNewSheet = Worksheets.Add
objNewSheet.Activate
intRow = 1
For Each objPF in _
Worksheets("Sheet1").PivotTables(1).PivotFields
If objPF.CubeField.CubeFieldType = xlHierarchy Then
objNewSheet.Cells(intRow, 1).Value = objPF.Name
intRow = intRow + 1
End IfNext objPF描述
代表基于 OLAP 多维数据集的数据透视表报表中所有 CubeField 对象的集合。每个 CubeField 对象都代表多维数据集中的一个层次或度量值字段。
使用 CubeFields 集合
使用 CubeFields 属性可返回 CubeFields集合。下例为数据字段（工作表“Sheet1”中第一个基于 OLAP 的数据透视表报表上）的多维数据集字段名称创建一个列表。
Set objNewSheet = Worksheets.AddintRow = 1For Each objCubeFld In _
Worksheets("Sheet1").PivotTables(1).CubeFields
If objCubeFld.Orientation = xlDataField Then
objNewSheet.Cells(intRow, 1).Value = objCubeFld.Name
intRow = intRow + 1
End If
Next objCubeFld
使用 CubeFields(index) 可返回一个 CubeField 对象，其中，index 是多维数据集字段的索引号。下例将确定活动工作表上第一个数据透视表报表中第二个多维数据集字段的名称。
strAlphaName = _
ActiveSheet.PivotTables(1).CubeFields(2).Name
属性
Application 属性，Count 属性，Creator 属性，Item 属性（CubeFields 集合），Parent 属性
适用于
PivotLayout 对象，PivotTable 对象
描述
返回 CubeFields 集合。每个 CubeField 对象都包含多维数据集字段元素的属性，只读。
示例
本示例为工作表“Sheet1”中第一个基于 OLAP 的数据透视表报表中的数据字段的多维数据集字段名称创建一个列表。
Set objNewSheet = Worksheets.Add
objNewSheet.Activate
intRow = 1
For Each objCubeFld In Worksheets("Sheet1").PivotTables(1).CubeFields
If objCubeFld.Orientation = xlDataField Then
objNewSheet.Cells(intRow, 1).Value = objCubeFld.Name
intRow = intRow + 1
End If
Next objCubeFld
适用于
CubeField 对象
描述
表明 OLAP 多维数据集字段是否为层次字段或度量值字段。可以为下列XlCubeFieldType 常量之一：xlHierarchy 或 xlMeasure。只读，XlCubeFieldType 类型。
示例
本示例为工作表“Sheet1”第一个基于 OLAP 的数据透视表报表的度量值字段的多维数据集字段名称创建一个列表。
Set objNewSheet = Worksheets.Add
objNewSheet.Activate
intRow = 1
For Each objCubeFld in Worksheets("Sheet1").PivotTables(1).CubeFields
If objCubeFld.CubeFieldType = xlMeasure Then
objNewSheet.Cells(intRow, 1).Value = objCubeFld.Name
intRow = intRow + 1
End If
Next objCubeFld
适用于
Range 对象
描述
如果指定的单元格是某数组的一部分，那么本属性返回代表整个数组的Range 对象。只读。
另见
示例
假定工作表“Sheet1”的活动单元格为“A1”，且该单元格属于包含单元格
区域“A1:A10”的数组，那么本示例将选定工作表“Sheet1”上的单元格区域“A1:A10”。
ActiveCell.CurrentArray.Select
适用于
PivotField 对象
描述
返回或者设置页字段的当前页显示（仅对页字段有效）。 PivotItem 类型，可读写。
说明
对于 OLAP 数据源，本属性返回或设置一个字符串，该字符串包含唯一的页名称（由 SourceName 属性所指定）。如果 CurrentPage 属性被设置成一个不存在的名称，则当前页的名称会被设置成新的名称。
示例
本示例将“Sheet1”上数据透视表报表中的当前页名称返回到字符串变量strPgName 中。
Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
strPgName = pvtTable.PivotFields("Country").CurrentPage.Name
适用于
PivotField 对象
描述
返回或设置指定数据透视表报表上的当前显示页。该页名称将出现在页字段中。注意，只有当已存在当前显示页时，本属性才有效。可读写，String 类型。
示例
本示例将活动工作表上第一个数据透视表报表的当前显示页的名称设置为 “United States"。
ActiveSheet.PivotTables("PivotTable1") _
.PivotFields("Country").CurrentPageName = _
"United States"
适用于
Range 对象
描述
返回 Range 对象，该对象代表当前区。当前区指以任意空白行及空白列的组合为边界的区域。只读。
说明
在许多须将选定区域自动扩展为当前区的操作中，本属性非常有用，例如AutoFormat 方法。
另见
示例
本示例选定工作表“Sheet1”上的当前区。
Worksheets("Sheet1").Activate
ActiveCell.CurrentRegion.Select
本示例假定在工作表“Sheet1”中有一个包含标题行的表。本示例选定该表，但不选定标题行。运行本示例之前，活动单元格必须处于该表中。
Set tbl = ActiveCell.CurrentRegion tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, - tbl.Columns.Count).Select
适用于
Application 对象
描述
返回或者设置 Microsoft Excel 中鼠标指针的形状。Long 类型，可读写。可为下列 XlMousePointer 常量之一：
| 常量 | 描述 |
| xlDefault | 默认指针形状 |
| xlWait | 沙漏指针形状 |
| xlNorthwestArrow | 箭头指针形状 |
| xlIBeamI | 形指针说明 |
示例
本示例将鼠标指针形状改变成 I 形，稍停片刻，然后将其重新变为默认指针形状。
Sub ChangeCursor()
Application.Cursor = xlIBeam
For x = 1 To 1000
For y = 1 to 1000
Next y
Next x
Application.Cursor = xlDefault
End Sub
适用于
Application 对象
描述
返回或设置一个数值，它指出正在使用的是可视光标还是逻辑光标。可以是以下常量之一：xlVisualCursor 或 xlLogicalCursor。可读写，Long类型。
说明
也许这些常量是无效的，这要看所安装和选择的语言（例如，US. English）
示例
本例使Microsoft Excel使用可视光标。
Application.CursorMovement = xlVisualCursor
适用于
Workbook 对象
描述
返回一个 DocumentProperties 集合，该集合代表指定工作簿的所有自定义文档属性。只读。
说明
本属性返回的是自定义文档属性的整个集合。通过指定属性的名称或集合索引号（数字），用 Item 方法可返回集合中的单个成员（一个DocumentProperty 对象）。
由于 Item 方法是 DocumentProperties 集合的默认方法，下列语句是相同的：
CustomDocumentProperties.Item("Complete")
CustomDocumentProperties("Complete")
使用 BuiltinDocumentProperties 属性可返回内置文档属性的集合。
示例
本示例在第一个工作表中显示自定义文档属性的名称及值的列表。
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.CustomDocumentProperties
Cells(rw, 1).Value = p.Name
Cells(rw, 2).Value = p.Value
rw = rw + 1
Next
适用于
CalloutFormat 对象
描述
以磅为单位，设置标注文本框的边框与标注线所指向的位置之间的垂直距离。此距离从标注文本框的顶边开始计算，除非 AutoAttach 属性为 True，且标注文本框位于标注线起点（标注线所指向的位置）的左边，这种情况下落差值从标注文本框的底边开始计算。
句法
expression.CustomDrop(Drop)
expression
必选。该表达式返回一个 CalloutFormat 对象。
Drop
Single 类型，必选。以磅为单位指定落差值。
示例
本示例将自定义落差值设置为 14 磅，并指定落差值总从标注文本框的顶边开始计算。为使本示例正常运行，第三个形状必须是标注。
Set myDocument = Worksheets(1)
With myDocument.Shapes(3).Callout
.CustomDrop 14
.AutoAttach = False
End With
适用于
CalloutFormat 对象
描述
使标注线的第一条线段（即与标注文本框相连的线段）在标注移动时保持固定长度不变。可用 AutomaticLength 方法使标注线的第一条线段在标注移动时自动调整长短。仅适用于于标注线由若干线段组成的标注（msoCalloutThree 类型和 msoCalloutFour 类型）。
句法
expression.CustomLength(Length)
expression
必选。该表达式返回一个 CalloutFormat 对象。
Length
Single 类型，必选。以磅为单位指定标注线的第一条线段的长度。
说明
应用本方法将使 AutoLength 属性变为 False，并使 Length 属性成为Length 参数所指定的值。
示例
本示例判断 myDocument 上第一个形状的标注线，如果其第一段是自动调整长度的，就将其转换为固定长度的；而如果第一段是固定长度的，就将其转换为自动调整长度的。为使
本示例正常运行，第一个形状必须是标注。
Set myDocument = Worksheets(1)
With myDocument.Shapes(1).Callout
If .AutoLength Then
.CustomLength 50
Else
.AutomaticLength
End If
End With
适用于
Application 对象
描述
返回已定义的自定义列表的数目（包括内置列表）。
Long 类型，只读。
另见
AddCustomList 方法， DeleteCustomList 方法， GetCustomListContents 方法， GetCustomListNum 方法
示例
本示例显示当前已定义的自定义列表的数目。
MsgBox "There are currently " & Application.CustomListCount & _ " defined custom lists."
描述
代表一个自定义工作簿视图。CustomView 对象是 CustomViews 集合的成员。
使用 CustomView 对象
使用 CustomViews(index)，其中 index 为自定义视图的名称或索引号，可返回一个 CustomView 对象。下列示例显示“Current Inventory”自定义视图。
ThisWorkbook.CustomViews("Current Inventory").Show
属性
Application 属性，Creator 属性，Name 属性，Parent 属性，PrintSettings属性，RowColSettings 属性
方法
Delete 方法，Show 方法
描述
自定义工作簿视图的集合。每一视图由一个 CustomView 对象表示。
使用 CustomViews 集合
使用 CustomViews 属性可返回 CustomViews 集合；使用 Add 方法可新建一个自定义视图，并将其添加到一个 CustomViews 集合中。下列示例新建一个名为“Summary”的自定义视图。
ActiveWorkbook.CustomViews.Add "Summary", True, True
属性
Application 属性，Count 属性，Creator 属性，Parent 属性
方法
Add 方法（CustomViews 对象），Item 方法（CustomViews 集合）
适用于
Workbook 对象
描述
返回一个 CustomViews 集合，该集合代表指定工作簿的所有自定义视图。
示例
本示例在活动工作簿中新建一个自定义视图，命名为“Summary”。
ActiveWorkbook.CustomViews.Add "Summary", True, True
适用于
ChartObject 对象，ChartObjects 集合对象，OLEObject 对象，OLEObjects集合对象，Range 对象，Shape 对象
描述
将对象剪切到剪贴板，或者将其粘贴到特定的目的地。
句法
expression.Cut(Destination)
expression
必选。该表达式返回一个“适用于”列表中的某个对象。
Destination
Variant 类型，可选。仅用于 Range 对象，即对象被粘贴到的区域。如果省略此参数，对象将剪切到剪贴板。
说明
被剪切的对象必须由相邻的单元格组成。
只有嵌入式图表可被剪切。
另见
示例
本示例将 Sheet1 中的 A1:G37 区域剪下，并放入剪贴板。
Worksheets("Sheet1").Range("A1:G37").Cut
适用于
Application 对象
描述
Long 类型，返回或者设置剪切或复制模式的状态。可为 True，False 或一个 XLCutCopyMode 常量，如下表所示。可读写。
| 返回值 | 描述 |
| False | 不处于剪切或复制模式。 |
| xlCopy | 处于复制模式。 |
| xlCut | 处于剪切模式。 |
| 设置值 | 描述 |
| False | 取消剪切或复制模式并清除移动边框。 |
| True | 取消剪切或复制模式并清除移动边框。 |
示例
本示例在消息框中显示剪切或复制模式的状态。
Select Case Application.CutCopyMode
Case Is = False
MsgBox "Not in Cut or Copy mode"
Case Is = xlCopy
MsgBox "In Copy mode"
Case Is = xlCut
MsgBox "In Cut mode"
End Select