VBA 语言参考

返回或设置指定的直线的虚线样式。可为下列 MsoLineDashStyle 常量之一：msoLineDash，msoLineDashDot，msoLineDashDotDot，msoLineDashStyle-Mixed，msoLineLongDash，msoLineLongDashDot，msoLineRoundDot，mso-LineSolid 或 msoLineSquareDot。

返回一个 Range 对象，该对象代表包含数据透视表数据区域的区域。只读。

返回或者设置数据输入模式，如下表所示。处于数据输入模式时，仅可在当前选定区域的未锁定单元格中输入数据。Long 类型，可读写

返回一个对象，该对象既可代表单个数据透视表字段（一个 PivotField 对象，句法 1），也可代表包含所有以数据字段显示的当前数据透视表字段的集合（一个 PivotFields 对象，句法 2）。只读。

Variant 类型，可选。数据透视表字段的名称或号码（可为指定多个字段的数组）。

代表图表数据点或趋势线的数据标志。在数据系列中， DataLabel 对象是DataLabels 集合的成员。DataLabels 集合中的每个 DataLabel 对象代表一个数据点的数据标志。对于没有可定义数据点的数据系列（例如面积图系列），DataLabels 集合包含单个 DataLabel 对象。

可用 DataLabels(index) （其中 index 为数据标志的编号）返回单个DataLabel 对象。下例设置第一个工作表上第一个嵌入式图表中第一个数据系列中的第五个数据标志的数字格式。

可用 DataLabel 属性返回单个数据点的 DataLabel 对象。下例打开图表工作表“图表1”上第一个数据系列中第二个数据点的数据标志，并将该数据标志的文字设置为“Saturday”。

趋势线的 DataLabel 属性返回与趋势线一起显示的文字。这些文字可能是公式、R-平方值或两者均有（如果两者均显示的话）。下例使趋势线的文字中仅出现公式，并将数据标志文字置于工作表“Sheet1”的单元格“A1”。

Application 属性，AutoScaleFont 属性，AutoText 属性，Border 属性，Caption 属性，Characters 属性，Creator 属性，Fill 属性，Font 属性，HorizontalAlignment 属性，Interior 属性，Left 属性，Name 属性，

NumberFormat 属性，NumberFormatLinked 属性，Orientation 属性，Parent 属性，Position 属性，ReadingOrder 属性，Shadow 属性，ShowLegendKey 属性，Text 属性，Top 属性，Type 属性，VerticalAlignment属性

返回一个 DataLabel 对象，该对象代表与数据点或趋势线相联系的数据标志。只读。

返回一个 Range 对象，该对象代表包含数据透视表的数据字段标记的区域。只读。

指定数据系列中所有 DataLabel 对象的集合。每个 DataLabel 对象代表一个数据点或趋势线的数据标志。对于没有可定义数据点的数据系列（例如面积图系列），DataLabels 集合包含单个数据标志。

可用 DataLabels 方法返回一个 DataLabels 集合。下例设置第一个图表工作表上第一个数据系列中的数据标志的数字格式。

Application 属性，AutoScaleFont 属性，AutoText 属性，Border 属性，Count 属性，Creator 属性，Fill 属性，Font 属性，HorizontalAlignment 属性，Interior 属性，Name 属性，NumberFormat 属性，NumberFormatLinked 属性，Orientation 属性，Parent 属性，Position 属性，ReadingOrder 属性，Shadow 属性，ShowLegendKey 属性，Type 属性，VerticalAlignment 属性

返回一个对象，该对象既可代表单个数据标志（一个 DataLabel 对象，句法 1），也可代表包含系列所有数据标志的集合（一个 DataLabels 集合，句法 2）。

如果指定系列数据标志的“显示值”选项处于打开状态，则返回的集合中每个数据点最多包含一个数据标志。可分别设置系列中单个数据点的数据标志开关选项。

如果指定系列处于面积图中，并且数据标志的Show Label选项处于打开状态，则返回的集合中仅包含单个数据标志，即面积系列的标记。

在指定区域内创建数据系列。句法expression.DataSeries(Rowcol, Type, Date, Step, Stop, Trend)

Variant 类型，可选。可为 xlRows 或 xlColumns 常量，分别表示向行内或向列内输入数据系列。如果省略本参数，则使用区域的大小和形状。

Variant 类型，可选。可为下列XlDataSeriesType常量之一：xlDataSeriesLinear，xlGrowth，xlChronological 或 xlAutoFill。默认值为xlDataSeriesLinear。

Variant类型，可选。如果Type参数为xlChronological，那么Date参数将指明日期步长单位。可为下列XlDataSeriesDate常量之一：xlDay，xlWeekday，xlMonth或xlYear。默认值为 xlDay。StepVariant 类型，可选。系列的步长值。默认值为 1。StopVariant 类型，可选。系列的终止值。如果省略本参数， Microsoft Excel 将填满该区域。TrendVariant 类型，可选。若指定为 True，则创建线性趋势或等比趋势。若指定为 False，则创建标准数据系列。默认值为 False。

使用 DataTable 属性可返回一个 DataTable 对象。下列示例为第一张嵌入式图表添加一张带分级显示边框的数据表。

DataTable.HasBorderOutline = TrueEnd With属性Application 属性，AutoScaleFont 属性，Border 属性，Creator 属性，Font属性，HasBorderHorizontal 属性，HasBorderOutline 属性，HasBorderVertical 属性，Parent 属性，ShowLegendKey 属性

只读数据透视表字段的数据类型的常量。可为下列 XlPivotFieldDataType 常数之一： xlText，xlNumber 或者xlDate。Long 类型，只读。

Parameter 对象：返回或设置指定的查询参数数据类型。Long 类型，可读/写。

如果指定工作簿使用的是 1904 日期系统则为 True。Boolean 类型，可读写。

返回特定应用 DDE 返回代码，该代码包含在 Microsoft Excel 接收到的最后一个DDE确认信息中。Long 类型，只读。

通过指定的 DDE 通道在另一个应用程序中执行一条命令或执行其他操作。

DDEExecute 方法用于向另一个应用程序发送命令。尽管使用 SendKeys 方法是向另一个应用程序发送击键信息的首选方法，但也可用此方法向另一个应用程序发送击键信息。String 参数可指定任意的单个键：在 Windows中，可为任何与 ALT、 CTRL 或 SHIFT 联用的键或者这些键的任何组合。每个键可由一个或多个字符代表，例如“a”表示字符 a，或者“{ENTER}”表示 ENTER 键。

在按键时，如要表示非显示字符（例如， ENTER 键或 TAB 键），可使用下表所列的键代码。下表中的每一代码表示键盘上的一个键。

在 Windows 中，也可以表示与 SHIFT 和（或）CTRL 和（或）ALT 组合的键。要表示与这些键的组合键，可使用下表。

String 类型，必选。描述通道所到的应用程序的有关信息，通常为该应用程序的一个文档。

如果成功的话， DDEInitiate 方法将返回打开通道的通道号，所有随后的DDE 函数将使用此号码指定通道。

来自指定应用程序的请求信息。本方法总是返回一个数组。有关的详情，另见

图表、工作表或工作簿从活动状态转为非活动状态时产生此事件。

返回或者设置 Microsoft Excel 打开文件时使用的默认路径。String 类型，可读写。

返回或者设置保存文件使用的默认格式。有关有效常量清单的详细内容，

返回或设置Microsoft Excel显示新窗口和工作表的缺省方向。可以是以下常量中的一个：xlRTL (从右到左) 或 xlLTR (从左到右)。可读写，Long类型。

有些常量可能无效，这依赖于所安装和选择的语言（例如美国英语）。

包含应用程序级的全局属性，当以 Web 页保存文档或打开 Web 页时，Microsoft Excel 将使用这些属性。可以在应用程序级（全局）或工作簿级返回或设置此属性（注意，由于保存工作簿时的属性值可能不同，所以不同工作簿的属性值也可能不同）。工作簿级的属性设置会覆盖应用程序级的属性设置。工作簿级的属性包含在 WebOptions 对象中。

使用 DefaultWebOptions 属性可返回 DefaultWebOptions 对象。下例将查看是否允许将 PNG（便携式网络图形）作为图像格式使用，同时设置相应的 strImageFileType 变量。

AllowPNG 属性，AlwaysSaveInDefaultEnconding 属性，Application 属性，CheckIfOfficeIsHTMLEditor 属性，Creator 属性，DownloadComponents 属性，Encoding 属性，FolderSuffix 属性，Fonts 属性，LoadPictures 属性，LocationOfComponents 属性，OrganizeInFolder 属性，Parent 属性，PixelsPerInch 属性，RelyOnCSS 属性，RelyOnVML 属性，SaveHiddenData 属性，ScreenSize 属性，UpdateLinksOnSave 属性，UseLongFileNames 属性

返回 DefaultWebOptions 对象，该对象包含应用程序级的全局属性，当以Web 页保存文档或打开 Web 页时，Microsoft Excel 会使用这些属性。只读。

Axis 对象，AxisTitle 对象，Characters 对象，Chart 对象，ChartObject 对象，ChartObjects 集合对象，Charts 集合对象，ChartTitle 对象，Comment对象，CustomView 对象，DataLabel 对象，DataLabels 集合对象，DataTable对象，DisplayUnitLabel 对象，DownBars 对象，DropLines 对象，ErrorBars对象，FormatCondition对象，FormatConditions 集合对象，Gridlines 对象，HiLoLines 对象，HPageBreak 对象，Hyperlink 对象，Hyperlinks 集合对象，LeaderLines 对象，Legend 对象，LegendEntry 对象，LegendKey对象，Name 对象，OLEObject 对象，OLEObjects 集合对象，Parameters集合对象，Phonetics 集合对象，PivotField 对象，PivotFormula 对象，PivotItem 对象，Point 对象，PublishObject 对象，PublishObjects 集合对象，QueryTable 对象，Range 对象，RecentFile 对象，Scenario 对象，Series 对象，SeriesLines 对象，Shape 对象，ShapeNodes 集合对象，ShapeRange 集合对象，Sheets 集合对象，SoundNote 对象，Style 对象，TickLabels 对象，Trendline 对象，UpBars 对象，Validation 对象，VPageBreak 对象，Worksheet 对象，Worksheets 集合对象

Variant 类型，可选。仅用于 Range 对象。指定删除单元格时的移位方式。可为下列 XlDeleteShiftDirection 常量之一：xlShiftToLeft 或 xlShiftUp。如果省略该参数， Microsoft Excel 将根据区域的形状决定如何移位。

从图表的可用自动套用格式列表中删除自定义图表自动套用格式。

Long 类型，必选。自定义列表号。此数字必须大于等于 5（Microsoft Excel有四个不可删除的内置自定义列表）。

如果列表数字小于 5 或者没有匹配的自定义列表则使用本方法将产生错误。

String 类型，必选。要替换的文本，它出现在 AutoCorrect 替换文本数组要删除的行中。如果此字符串在 AutoCorrect 替换文本数组中不存在，则本方法失败。

返回或者设置邮件传递的方法。可为以下 XlRoutingSlipDelivery 常数：xlOneAfterAnother 或 xlAllAtOnce。Long 类型，可读写。

返回 Range 对象，该对象代表由单元格的所有从属单元格组成的区域。如

果单元格有若干从属单元格，该区域就可能是多块的选定区域（Range 对象的联合）。只读。

返回或设置形状挤压的深度。可为从 -600 到 9600 之间的值。（正值表示挤压部分的前面就是原有形状；负值表示挤压部分的后面是原有形状）。

对于TickLabels对象，返回分类位置标志水平数值。Long类型，只读。

以图表宽度百分数的形式返回或者设置三维图表的深度（在 20% 和 2000%之间）。Long 类型，可读写。

返回查询表目标区域（查询结果表放置的区域）的左上角单元格。目标区域必须位于包含 QueryTable Range 对象的工作表中。只读。

代表内置 Microsoft Excel 对话框。Dialog 对象是 Dialogs 集合的成员，Dialogs 集合包含 Microsoft Excel 中所有的内置对话框。不能新建内置对话框或向该集合中添加内置对话框。用 Dialog 对象所能做的唯一有用的事情是将其与 Show 方法共用，以显示相应的内置对话框。

可用 Dialogs(index) （其中 index 为用于标识对话框的内置常量）返回单个 Dialog 对象。下例运行“文件”菜单中的内置“打开”对话框。如果Microsoft Excel 成功地打开了文件， Show 方法将返回 True；如果用户取消了对话框，则返回 False。

Microsoft Excel Visual Basic 对象库包括了许多内置对话框的内置常量。每个常量都以“xlDialog”打头，后跟对话框的名称。例如，“应用名称”对话框的常量为 xlDialogApplyNames，而“查找”对话框的常量为

显示由 Microsoft Excel 4.0 宏表上的对话框定义表所定义的对话框。返回选定控制的编号，或者当用户单击“取消”按钮后，返回 False。

必选。该表达式返回 Range 对象。该 Range 对象必须指向 Microsoft Excel4.0 宏表上的对话框定义表。

Microsoft Excel 中所有 Dialog 对象的集合。每个 Dialog 对象代表一个内置对话框，不能新建内置对话框或向该集合中添加内置对话框。用 Dialog 对象所能做的唯一有用的事情是将其与 Show 方法共用，以显示相应的内置对话框。

可用 Dialogs 属性返回 Dialogs 集合。下例显示有效的内置 Microsoft Excel对话框的数目。

可用 Dialogs(index) （其中 index 为用于标识对话框的内置常量）返回单个 Dialog 对象。下例运行“文件”菜单中的内置“打开”对话框。

Microsoft Excel Visual Basic 对象库包括了许多内置对话框的内置常量。每个常量都以“xlDialog”打头，后跟对话框的名称。例如，“应用名称”对话框的常量为 xlDialogApplyNames，而“查找文件”对话框的常量为xlDialogFindFile。这些常量是 XlBuiltinDialog 枚举类型的成员。

Application 属性，Count 属性，Creator 属性，Item 属性（Dialogs 集合），Parent 属性

返回一个 Dialogs 集合，此集合代表所有的内置对话框。只读。

返回 Range 对象，该对象代表由单元格的所有直接从属单元格组成的区域。如果单元格有若干从属单元格，该区域就可能是多块的选定区域（Range对象的联合）。只读。

返回 Range 对象，该对象代表由单元格的所有直接引用单元格组成的区域。如果单元格有若干引用单元格，该区域就可能是多块的选定区域（Range对象的联合）。只读。

如果宏运行时 Microsoft Excel 显示特定的警告和消息，本属性为 True。Boolean 类型，可读写。

默认值为 True。如果不想在宏运行时被无穷无尽的提示和警告消息所困扰，就将本属性设置为 False，这样每次出现需用户应答的消息时， MicrosoftExcel 将选择默认应答。

如果将本属性设置为 False，那么宏运行结束后， Microsoft Excel 并不自动将其设置回 True。故当宏运行结束后，都应将本属性设置回 True 值。

返回或者设置图表中空白单元格的处理方式。可为下列 XlDisplayBlanksAs常量之一： xlNotPlotted、 xlInterpolated 或 xlZero。

返回或者设置单元格批注和指示器的显示方式。可为下列XlCommentDisplayMode 常量之一： xlNoIndicator、xlCommentIndicatorOnly 或 xlCommentAndIndicator。

如果显示图表中的趋势线方程则为 True（其数据标志与 R-平方值的相同）。将本属性设为 True 可自动显示数据标志。Boolean 类型，可读写。

如果数据透视表在有错误的单元格中显示用户自定义的错误字符串，本属性为 True。默认值为 False。Boolean 类型，可读写。

使用 ErrorString 属性设置用户自定义的错误字符串。处理“被零除”错误时，本属性特别有用。

如果 Microsoft Excel 显示 4.0 版的菜单栏则为 True。Boolean 类型，可读写。

如果指定窗口中显示的是公式则为 True，如果显示的是值则为 False。

如果 Microsoft Excel 处于全屏显示模式则为 True。Boolean 类型，可读写。

全屏显示模式将应用程序窗口最大化，以覆盖整个屏幕并隐藏应用程序窗口的标题栏（在 Microsoft Windows 中）。可对工具栏、状态栏和编辑栏独立设置其全屏显示模式和常规显示模式。

此属性仅对已显示的网格线起作用。可用此 PrintGridlines 属性对网格线的打印进行控制。

如果行号和列号都可见则为 True；如果行、列号都不可见则为 False。Boolean 类型，可读写。

此属性仅对已显示的行和列起作用。使用 PrintHeadings 属性则可以对行号列标的打印进行控制。

True 如果包含附注的单元格显示单元格提示，且有附注记号（单元格右上角的小点）。Boolean 类型，可读写。

如果数据透视表在包含 null 值的单元格中显示用户自定义的字符串，本属性为 True。默认值为 True。Boolean 类型，可读写。

使用 NullString 属性设置用户自定义的在包含 null 值的单元格中显示的字符串。

如果显示指定工作表中的分页符（包括自动和手动分页符），本属性为True。Boolean 类型，可读写。

如果最近使用文件的名称在“文件”菜单中显示则为 True。Boolean 类型，可读写。

如果窗口从右到左显示文字，而非从左到右，本属性为 True。若从左到右则为False。Boolean 类型，可读写。说明本属性仅当安装和选择了从右到左的语言时才能被设置。

如果显示图表中趋势线的 R-平方值则为 True（其数据标志与方程的相同）。将该属性设为 True 可自动显示数据标志。

如果所有工作簿的滚动条可见则为 True。Boolean 类型，可读写。

返回或设置指定坐标轴的单位标志。可以为下列 XlDisplayUnit 常量之一：xlNone，xlHundreds，xlThousands，xlTenThousands，xlHundredThousands，xlMillions，xlTenMillions，xlHundredMillions，xlThousandMillions，xlMillionMillions或xlCustom。如果其值为 xlCustom，则DisplayUnitCustom 属性将返回或设置显示单位的值。可读写，XlDisplayUnit 类型。

在绘制大数值图表时，使用单位标志可使刻度线标志易于阅读和辨认。例如，如果将数值轴的单位设置为百、千或百万，则可以在坐标轴的刻度标志上使用较小数值标志。

如果 DisplayUnit 属性的值为 xlCustom，则 DisplayUnitCustom 属性将返回或设置显示单位的值。此数值必须介于 0 到 10E307 之间。可读写，Double 类型。

代表指定图表中坐标轴上的单位标志。在绘制大数据的图表时使用单位标志会很有用，例如：上百万或几十亿的大数据。在刻度线上使用单位标志而不直接使用大数据可以使图表更易读、易理解。

使用 DisplayUnitLabel 属性可返回 DisplayUnitLabel 对象。下例将图表“Chart1”中数值轴的显示标志标题设置为“Millions”，然后自动关闭自动字体缩放。

Application 属性，AutoScaleFont 属性，Border 属性，Caption 属性，Characters 属性，Creator 属性，Fill 属性，Font 属性，HorizontalAlignment属性，Interior 属性，Left 属性，Name 属性，Orientation 属性，Parent 属性，ReadingOrder 属性，Shadow 属性，Text 属性，Top 属性，VerticalAlignment 属性

返回指定坐标轴的 DisplayUnitLabel 对象。如果 HasDisplayUnitLabel 属性设置为 False，则返回 Null。只读。

Long 类型，必选。指定形状子集中的形状是在水平方向进行分布，还是在垂直方向进行分布。可为下列 MsoDistributeCmd 常量之一：msoDistributeHorizontally 或 msoDistributeVertically。

标记的唯一标识符。此标记与保存为 Web 页的文档中的某一项相关联。该项可以是整个工作簿、一张工作表选定的打印区域、自动筛选区域、单元格区域、图表、数据透视表报表或查询表。只读，String 类型。

示例

本示例将一个单元格区域存储到 Web 页中，然后从  标记中获取该项的标识符，并查找保存的 Web 页 (q198.htm) 上的特定行。同时，本示例还创建该 Web 页的一个副本 (newq1.htm)，并在该文件副本的  标记前插入一个注释行。

Set objPO = ActiveWorkbook.PublishObjects.Add( _

    SourceType:=xlSourceRange, _

    Filename:="\\server1\Reports\q198.htm", _

    Sheet:="Sheet1", _

    Source:="C2:D6", _

    HtmlType:=xlHtmlCalc)

objPO.Publish

strTargetDivID = objPO.DivID

Open "\\server1\Reports\q198.htm" For Input As #1

Open "\\server1\Reports\newq1.htm" For Output As #2

While Not EOF(1)

    Line Input #1, strFileLine

    If InStr(strFileLine, strTargetDivID) > 0 And _

        InStr(strFileLine, " 0 Then

            Print #2, ""

    End If

    Print #2, strFileLin

Wend

Close #2

Close #1

DoubleClick 方法

适用于

Application 对象

描述

等价于双击活动单元格。

句法

expression.DoubleClick

expression

必选。该表达式返回 Application 对象。

示例

本示例双击 Sheet1 中的活动单元格。

Worksheets("Sheet1").Activate

Application.DoubleClick

DoughnutGroups 方法

适用于

Chart 对象描

在二维图表中返回一个对象，该对象既可代表单个圆环图组（一个ChartGroup 对象，句法 1），也可代表一个圆环图组的集合（一个ChartGroups 集合，句法 2）。

句法 1

expression.DoughnutGroups(Index)

句法 2

expression.DoughnutGroups

expression

必选。该表达式返回一个 Chart 对象。

Index

Variant 类型，可选。指定图表组。

另见

AreaGroups 方法， BarGroups 方法， ChartGroups 方法， ColumnGroups方法， LineGroups 方法， PieGroups 方法

示例

本示例设置“图表1”中第一个圆环组的起始角度。

Charts("Chart1").DoughnutGroups(1).FirstSliceAngle = 45

DoughnutHoleSize 属性

适用于

ChartGroup 对象

描述

返回或者设置圆环图表组内径的大小，其内径大小以图表大小的百分数表示，数值在 10% 和 90% 之间。Long 类型，可读写。

示例

本示例对“图表1”中第一个圆环图表组的内径大小进行设置。本示例应在二维圆环图上运行。

Charts("Chart1").DoughnutGroups(1).DoughnutHoleSize = 10

DownBars 对象

描述

代表图表组中的跌柱线。跌柱线将图表组中第一个系列的数据点与最后一个系列中相应的有较小值的数据点连接起来（从第一个系列向下生长），只有至少包含两个系列的二维折线图才能有跌柱线。本对象并非集合，没有代表单个跌柱线的对象。要么打开图表组中所有数据点的涨跌柱线，要么将其全部关闭。

使用DownBars 对象

可用 DownBars 属性返回 DownBars 对象。下例打开工作表“Sheet5”上第一个内嵌图表中第一个图表组的涨跌柱线，然后下例将涨柱线的颜色设置为兰色，而将跌柱线设置为红色。

With Worksheets("sheet5").ChartObjects(1).Chart.ChartGroups(1)

.HasUpDownBars = True

.UpBars.Interior.Color = RGB(0, 0, 255)

.DownBars.Interior.Color = RGB(255, 0, 0)

End With

说明

如果 HasUpDownBars 属性为 False，DownBars 对象的绝大部分属性将禁用。

属性

Application 属性，Border 属性，Creator 属性，Fill 属性，Interior 属性，Name 属性，Parent 属性

方法

Delete 方法，Select 方法

另见

UpBars对象

DownBars 属性

适用于

ChartGroup 对象

描述

返回一个 DownBars 对象，该对象代表折线图中的所有跌柱线。仅应用于折线图，只读。

另见

HasUpDownBars 属性， UpBars 属性，

示例

本示例显示“图表1”的涨跌柱线，并对其颜色进行设置。本示例应在包含两组有一个或多个相交数据点的数据系列的二维折线图上运行。

With Charts("Chart1").ChartGroups(1)

.   HasUpDownBars = True

.   DownBars.Interior.ColorIndex = 3.

    UpBars.Interior.ColorIndex = 5

End With

DownloadComponents 属性

适用于

DefaultWebOptions 对象，WebOptions 对象

描述

在 Web 浏览器中查看已保存的文档时，如果必要的 Microsoft Office Web组件还没有安装，而系统会下载这些组件，则其值为 True。如果不下载这些组件，则其值为 False。默认值为 False。可读写，Boolean 类型。

说明

可以将 LocationOfComponents 属性设置为中央 URL（对于企业内部网或Web）或路径（对于本地或网络而言），而授权用户在查看已保存的文档时，可以从这些位置下载组件。该路径必须有效，且指向的位置必须包含必要的组件，同时用户还必须拥有有效的 Microsoft Office 2000 许可。

Office Web 组件可增强保存为 Web 页的文档的交互性。如果在没有安装这些组件的计算机上使用 Web 浏览器查看 Web 页，则该页上的交互部分将表现为静态的（不能交互）。

示例

如果 Office Web 组件还没有安装，则本示例允许在指定的 Web 页中下载Office Web 组件。

Application.DefaultWebOptions.DownloadComponents = True

Application.DefaultWebOptions.LocationOfComponents = _

    Application.Path & Application.PathSeparator & "foo"

Draft 属性

适用于

PageSetup 对象

描述

如果打印工作表时不打印其中的图形则为 True。Boolean 类型，可读写。

说明

将本属性设为 True 可加快打印速度（代价是不打印其中的图形）。

另见

PrintObject 属性

示例

本示例设置不打印 Sheet1 中的图形。

Worksheets("Sheet1").PageSetup.Draft = True

DragOff 方法

适用于

HPageBreak 对象，VPageBreak 对象

描述

将一个分页符拖到打印区域之外。

句法

expression.DragOff(Direction, RegionIndex)

expression

必选。该表达式返回一个 HPageBreak 或 VPageBreak 对象。

Direction

Long 类型，必选。分页符拖动的方向。可为下列 XlDirection 常量之一：xlDown、 xlToLeft、 xlToRight 或 xlUp。

RegionIndex

Long 类型，必选。分页符打印区域索引（如果用户按下鼠标拖动分页符时鼠标指针所在的位置）。如果打印区域是连续的，则只有一个打印区域。如果打印区域不是连续的则有多个打印区域。

说明

本方法主要用于宏记录器。使用 Delete 方法可在 Visual Basic 中删除分页符。

示例

本示例将活动工作表中的第一个垂直分页符拖出第一个打印区域的右边界，删除该分页符。

ActiveSheet.VPageBreaks(1).DragOff xlToRight, 1

DragOver 事件

适用于

Chart 对象

描述

当将一个单元格区域拖过图表时产生此事件。

句法

Private Sub object_DragOver()

Object

在类模块中带有事件声明的 Chart 类型对象。

示例

本示例显示拖过图表的单元格区域的地址。

Private Sub Chart_DragOver()

     MsgBox Selection.Address

End Sub

DragPlot 事件

适用于

Chart 对象

描述

将一个单元格区域拖放到图表上时产生此事件。

句法

Private Sub object_DragPlot()

Object

在类模块中带有事件声明的 Chart 类型对象。

示例

本示例当将单元格区域拖放到图表上时更改该图表的类型。

Private Sub Chart_DragPlot()

      Me.ChartType = xlLine

End Sub

DragToColumn 属性

适用于

CubeField 对象，PivotField 对象

描述

如果数据透视表字段能被拖至列，本属性为 True。默认值为 True。Boolean类型，可读写。说明

对于OLAP数据源，本属性在测量域中为False。

另见

DragToHide 属性， DragToPage 属性， DragToRow 属性

示例

本示例使“Year”字段不能被拖至列。

Worksheets(1).PivotTables("Pivot1") _

.PivotFields("Year").DragToColumn = False

DragToData 属性

适用于

CubeField 对象，PivotField 对象

描述

如果指定字段可拖至数据位置，则其值为 True。默认值为 True。可读写，Boolean 类型。

示例

本示例防止将“Year”字段拖动至第一张工作表上第一个数据透视表报表的数据位置上。

Worksheets(1).PivotTables("Pivot1") _

    .PivotFields("Year").DragToData = False

DragToHide 属性

适用于

CubeField 对象，PivotField 对象

描述

如果可用将字段拖离数据透视表报表的方法隐藏该字段，本属性为 True。默认值为 True。Boolean 类型，可读写。

说明

对于 OLAP 数据源，如果本字段能从数据透视表报表视图中移出，则值为True。

另见

DragToColumn 属性， DragToPage 属性， DragToRow 属性

示例

本示例使“Year”字段不能被拖离数据透视表报表。

Worksheets(1).PivotTables("Pivot1") _.

      PivotFields("Year").DragToHide = False

DragToPage 属性

适用于

CubeField 对象，PivotField 对象

描述

如果字段能被拖至页，本属性为 True。默认值为 True。Boolean 类型，可读写。

说明

对于OLAP数据源，本属性在测量字段里为False。

另见

DragToColumn 属性， DragToHide 属性， DragToRow 属性

示例

本示例使“Year”字段不能被拖至页。

Worksheets(1).PivotTables("Pivot1") _.

       PivotFields("Year").DragToPage = False

DragToRow 属性

适用于

CubeField 对象，PivotField 对象

描述

如果字段能被拖至行，本属性为 True。默认值为 True。Boolean 类型，可读写。

说明

对于OLAP数据源，本属性在测量字段里为False。

另见

DragToColumn 属性， DragToHide 属性， DragToPage 属性

示例

本示例使“Year”字段不能被拖至行。

Worksheets(1).PivotTables("Pivot1") _.

     PivotFields("Year").DragToRow = False

Drilled 属性

适用于

TreeviewControl 对象

描述

返回或设置多维数据集字段的层次成员选择控件中的多维数据集字段成员的“drilled”（展开或可见）状态。本属性主要用于录制宏，并不作它用。可读写。

说明

Drilled 属性返回或设置一个数组。该数组的每一个元素都对应一个已扩展的多维数据集字段的级别。元素的最大个数可等于多维数据集字段中级别的个数。而数组中的每一元素都是一个 String 类型的数组，它们包含该控件相应级别上可见（展开）的唯一成员名称。另见 TreeviewControl 对象的 Hidden 属性以确定何时在展开视图中显式地隐藏这些成员。

示例

本示例展开活动工作表上第一个数据透视表报表中第一个多维数据集字段的第二级成员。

ActiveSheet.PivotTables("PivotTable1").CubeFields(1) _

    .TreeviewControl.Drilled = _

        Array(Array("", "", "", "", "", "", "", "", _

        "", "", "", ""), _

        Array("[state].[states].[AB]", _

        "[state].[states].[CA]", _

        "[state].[states].[IN]", _

        "[state].[states].[KS]", _

        "[state].[states].[KY]", _

        "[state].[states].[MD]", _

        "[state].[states].[MI]", _

        "[state].[states].[OH]", _

        "[state].[states].[OR]", _

        "[state].[states].[TN]", _

        "[state].[states].[UT]", _

        "[state].[states].[WA]"))

DrilledDown 属性

适用于

PivotField 对象，PivotItem 对象

描述

如果指定数据透视表字段或数据透视表项的标志设置为“drilled”（展开或可见），则其值为True。可读写，Boolean 类型。

说明

本属性仅对 OLAP 数据源有效。

如果字段或项隐藏时，则不可设置本属性。

示例

本示例将活动工作表上第三个数据透视表报表中状态字段的所有项的标记设置为“not drilled”。

ActiveSheet.PivotTables("PivotTable3") _

    .PivotFields("state").DrilledDown = False

Drop 属性

适用于

CalloutFormat 对象

描述

对于显式地设置落差值的标注，本属性以磅为单位返回设置标注文本框的边框与标注线所指向的位置之间的垂直距离。此距离从标注文本框的顶边开始计算，除非 AutoAttach 属性为 True，且标注文本框位于标注线起点（标注线所指向的位置）的左边，这种情况下落差值从标注文本框的底边开始计算。Single 类型，只读。

说明

可用 CustomDrop 方法设置本属性的值。

仅当标注的落差值是显式设置的，即 DropType 属性的值是msoCalloutDropCustom 时，本属性的值才能准确地反映标注线连接到标注文本框的位置。

示例

本示例根据自定义的落差值是大于还是小于标注文本框高度的一半，将myDocument 上第一个形状的自定义落差值替换为两个预置落差值之一。

为使本示例正常运行，第一个形状必须为标注。

Set myDocument = Worksheets(1)

With myDocument.Shapes(1).Callout

    If .DropType = msoCalloutDropCustom Then

        If .Drop < .Parent.Height / 2 Then

            .PresetDrop msoCalloutDropTop

        Else

            .PresetDrop msoCalloutDropBottom

        End If

   End If

End With

DropDownLines 属性

适用于

ControlFormat 对象

描述

返回或者设置组合框显示的下拉部分的列表项行数。Long 类型，可读写。

示例

本示例创建一个组合框，并将其下拉部分设为 10 行。

With Worksheets(1).Shapes.AddFormControl(xlDropDown, _

         Left:=10, Top:=10, Width:=100, Height:=10)

.   ControlFormat.DropDownLines = 10

End With

DropLines 对象

描述

代表图表组中的垂直线。垂直线将图表中的数据点与 x 轴连接起来，只有折线图和面积图可以有垂直线，本对象并非集合。没有代表单个垂直线的对象，要么打开图表组中所有数据点的垂直线，要么其全部关闭。

使用DropLines 对象

可用 DropLines 属性返回 DropLines 对象。下例打开第一个嵌入式图表的第一个图表组的垂直线，并将垂直线的颜色设置为红色

Worksheets("sheet1").ChartObjects(1).Activate

ActiveChart.ChartGroups(1).HasDropLines = True

ActiveChart.ChartGroups(1).DropLines.Border.ColorIndex = 3

说明

如果 HasDropLines 属性为 False，DropLines 对象的绝大部分属性将禁用。

属性

Application 属性，Border 属性，Creator 属性，Name 属性，Parent 属性

方法

Delete 方法，Select 方法

DropLines 属性

适用于

ChartGroup 对象

描述

返回一个 DropLines 对象，该对象代表折线图或面积图系列的所有垂直线。仅应用于折线图或者面积图。只读。

另见

HasDropLines 属性

示例

本示例显示“图表1”的第一个图表组的垂直线，并对其线型、粗细和颜色

进行设置。本示例应在包含一个数据系列的二维折线图上运行。

With Charts("Chart1").ChartGroups(1).

     HasDropLines = True

     With .DropLines.Border

          .LineStyle = xlThin.

          Weight = xlMedium.

          ColorIndex = 3

     End With

End With

DropType 属性

适用于

CalloutFormat 对象

描述

返回表示标注线与标注文本框相连接的连接符的值。可为下列MsoCalloutDropType 常量之一：msoCalloutDropBottom、msoCalloutDropCenter、msoCalloutDropCustom、msoCalloutDropMixed 或 msoCalloutDropTop。Long类型，只读。

说明

如果标注的落差类型为 msoCalloutDropCustom，那么 Drop 属性和AutoAttach 属性的值，以及标注文本框和标注线起点（标注所指向的位置）的相对位置将用于决定标注线与标注文本框的连接符。

本属性为只读属性。可用 PresetDrop 方法设置本属性的值

示例

本示例根据自定义的落差值是大于还是小于标注文本框高度的一半，将myDocument 上第一个形状的自定义落差值替换为两个预置落差值之一。为使本示例正常运行，第一个形状必须为标注。

Set myDocument = Worksheets(1)

With myDocument.Shapes(1).Callout

    If .DropType = msoCalloutDropCustom Then

        If .Drop < .Parent.Height / 2 Then

            .PresetDrop msoCalloutDropTop

        Else

            .PresetDrop msoCalloutDropBottom

        End If

    End If

End With

Duplicate 方法

适用于

ChartObject 对象，ChartObjects 集合对象，OLEObject 对象，OLEObjects集合对象，Shape 对象，ShapeRange 集合对象

描述

复制指定对象，并返回一个对新复制对象的引用。

句法

expression.Duplicate

expression

必选，该表达式返回“适用于”列表中的某个对象。

示例

本示例复制 Sheet1 中第一个嵌入式图表，然后选定新复制的图表。

Set dChart = Worksheets("Sheet1").ChartObjects(1).Duplicate

dChart.Select

EditDirectlyInCell 属性

适用于

Application 对象

描述

如果 Microsoft Excel 允许在单元格中直接进行编辑则为 True。Boolean 类型，可读写。

示例

本示例设置允许在单元格中直接进行编辑。

Application.EditDirectlyInCell = True

EditingType 属性

适用于

ShapeNode 对象

描述

如果指定的节点是顶点，本属性的值决定对节点所作的修改将如何影响与

该节点所连的线段。可为下列 MsoEditingType 常量之一：msoEditingAuto、msoEditingCorner、msoEditingSmooth 或msoEditingSymmetric。如果节点是曲线段的控制点，本属性返回相邻顶点的编辑类型。Long 类型，只读。

说明

本属性为只读属性。可用 SetEditingType 方法设置本属性的值。

示例

本示例使 myDocument 上第三个形状上所有的尖角节点变成光滑节点。为使本示例正常运行，第三个形状必须是任意多边形。

Set myDocument = Worksheets(1)

With myDocument.Shapes(3).Nodes

    For n = 1 to .Count

        If .Item(n).EditingType = msoEditingCorner Then

            .SetEditingType n, msoEditingSmooth

        End If

    Next

End With

Elevation 属性

适用于

Chart 对象

描述

以角度为单位返回或者设置三维图表视图的仰角。Long 类型，可读写。

说明

图表仰角指查看图表时视点所处的高度。对于大多数图表类型的默认值为15。该属性的值必须在 -90 和 90 之间，但对于三维条形图除外，三维条形图的仰角值必须在 0 和 44 之间。

另见

Perspective 属性， Rotation 属性

示例

本示例将“图表1”的仰角设为 34 度。本示例应在三维图表上运行（Elevation属性在二维图表上无效） 。

Charts("Chart1").Elevation = 34

EmailSubject 属性

适用于

Hyperlink 对象

描述

返回或设置指定超级链接的电子邮件主题行的文本串。主题行是添加到超级链接地址上的。可读写，String 类型。

说明

本属性常与电子邮件超级链接一起使用。

本属性值优先于任何通过同一 Hyperlink 对象中 Address 属性所指定的电子邮件主题行。

示例

本示例设置第一张工作表中第一个超级链接的电子邮件主题行。

Worksheets(1).Hyperlinks(1).EmailSubject = "Quote Request"

EnableAnimations 属性

适用于

Application 对象

描述

如果动态插入和删除功能有效则为 True，Boolean 类型，可读写。

说明

如果动态插入和删除功能生效时，所插入的工作表行和列就会逐渐出现；同样，被删除的工作表行和列就会逐渐消失。

示例

本示例关闭动态插入和删除功能。

Application.EnableAnimations = False

EnableAutoComplete 属性

适用于

Application 对象

描述

如果记忆式键入功能可用则为 True。Boolean 类型，可读写。

另见

AutoComplete 方法

示例

本示例启动记忆式键入功能。

Application.EnableAutoComplete = True

EnableAutoFilter 属性

适用于

Worksheet 对象

描述

当仅限于用户界面保护处于打开状态时，如果自动筛选箭头是激活的则为True。Boolean 类型，可读写。

说明

本属性可应用于每一工作表，并且不保存到工作表或工作期中。

另见

Protect 方法， Unprotect 方法

示例

本示例激活受保护工作表中的自动筛选箭头。

ActiveSheet.EnableAutoFilter = True

ActiveSheet.Protect contents:=True, userInterfaceOnly:=True

EnableCalculation 属性

适用于

Worksheet 对象

描述

如果 Microsoft Excel 在必要的情况下自动重新计算工作表则为 True。如果用户必须提出重新计算请求（Microsoft Excel 不会自动重新计算工作表）则为 False。Boolean 类型，可读写。

说明

如果将本属性从 False 更改为 True， Microsoft Excel 将对指定工作表进行重新计算；如果本属性的值为False，则可请求重新计算。

示例

本示例对自动重新计算功能进行设置，使 Microsoft Excel 不对第一张工作表自动进行重新计算；如果本属性的值为False，则可请求重新计算。

Worksheets(1).EnableCalculation = False

EnableCancelKey 属性

适用于

Application 对象

描述

控制Microsoft Excel对用户使用CTRL+BREAK（或ESC、COMMAND+PERIOD）键中断程序运行的处理方式。Long 类型，可读写。可为下列 XlEnableCancelKey 常量之一：

常量	意义
xlDisabled	对“取消”键的捕获功能完全无效。
xlInterrupt	中断当前运行程序，用户可以进行排错或中止程序的运行。
xlErrorHandler	将中断作为错误信号传递给运行程序，由 On Error GoTo 语句设置的错误处理程序捕获。可捕获错误代码为 18。

说明

使用该属性要相当小心。如果设为 xlDisabled，则没有办法中断失控循环或者其他的不能自结束的代码；另外，虽然使用xlErrorHandler属性，但是错误处理程序总使用 Resume 语句返回，同样没有办法终止失控程序。每当 Microsoft Excel 回到空闲状态并且没有程序处于运行状态，EnableCancelKey 属性总是重置为 xlInterrupt。要捕获或者禁止取消程序运行，则每次在程序被调用时必须显式地更改 EnableCancelKey 属性。

示例

本示例演示如何使用 EnableCancelKey 属性设置自定义的取消键处理程序。

On Error GoTo handleCancel

Application.EnableCancelKey = xlErrorHandler

MsgBox "This may take a long time: press ESC to cancel"

For x = 1 To 1000000' Do something 1,000,000 times(long!)

  ' do something here

Next x

handleCancel:

If Err = 18 Then

     MsgBox "You cancelled "

End If

Enabled 属性

适用于

ChartObject 对象，ChartObjects 集合对象，ControlFormat 对象，OLEObject 对象，OLEObjects 集合对象

描述

如果对象是可用的，本属性为 True。Boolean 类型，可读写。

示例

本示例禁用第一张工作表上的第一个内嵌图表。

Worksheets(1).ChartObjects(1).Enabled = False

EnableDrilldown 属性

适用于

PivotTable 对象

描述

如果“显示明细数据”激活，本属性为 True。默认值为 True。Boolean 类型，可读写。

说明

对数据透视表设置本属性，等同于对数据透视表中所有的字段设置本属性。

示例

本示例禁止数据透视表中所有字段的明细数据

Worksheets(1).PivotTables("Pivot1").EnableDrilldown = False

EnableEditing 属性

适用于

QueryTable 对象

描述

如果允许用户对指定查询表进行编辑则为 True；如果用户只能刷新查询表则为 False。Boolean 类型，可读写。

示例

本示例对第一张查询表进行设置，使用户不能对其进行编辑。

Worksheets(1).QueryTables(1).EnableEditing = False

EnableEvents 属性

适用于

Application 对象

描述

如果指定对象能触发事件，本属性为 True。Boolean 类型，可读写。

示例

本示例在保存文件之前禁止事件，从而使 BeforeSave 事件不能触发。

Application.EnableEvents = False

ActiveWorkbook.Save

Application.EnableEvents = True

EnableFieldDialog 属性

适用于

PivotTable 对象

描述

当用户双击数据透视表字段时，如果“数据透视表字段”对话框有效，本属性为 True。默认值为 True。Boolean 类型，可读写。

说明

对数据透视表设置本属性，等同于对数据透视表中所有的字段设置本属性。

示例

本示例对“Year”字段禁用“数据透视表字段”对话框。

Worksheets(1).PivotTables("Pivot1") _.

     PivotFields("Year").EnableFieldDialog = False

EnableOutlining 属性

适用于

Worksheet 对象

描述

当仅限于用户界面保护处于打开状态时，如果显示分级符号则为 True。Boolean 类型，可读写。

说明

本属性可应用于每一工作表，并不保存到工作表或工作期中。

另见

Protect 方法， Unprotect 方法

示例

本示例显示受保护工作表中的分级符号。

ActiveSheet.EnableOutlining = True

ActiveSheet.Protect contents:=True, userInterfaceOnly:=True

EnablePivotTable 属性

适用于

Worksheet 对象

描述

当仅限于用户界面保护处于打开状态时，如果数据透视表的控件可选和可对数据透视表进行操作则为 True。Boolean 类型，可读写。

说明

本属性可应用于每一工作表，并不保存到工作表或工作期中。

指定数据透视表的右下方必须有足够的未锁定单元格，以便 Microsoft Excel进行重新计算并显示数据透视表报表。

另见

Protect 方法， Unprotect 方法

示例

本示例使受保护工作表中的数据透视表控件可选。

ActiveSheet.EnablePivotTable = True

ActiveSheet.Protect contents:=True, userInterfaceOnly:=True

EnableRefresh 属性

适用于

PivotCache 对象，QueryTable 对象

描述

如果数据透视表高速缓存或查询表可被用户刷新，本属性为 True。默认值为 True。Boolean 类型，可读写。

说明

如果 EnableRefresh 属性为 False，则忽略 RefreshOnFileOpen 属性。对于OLAP数据源，设置此属性为False来禁止刷新。

另见

RefreshOnFileOpen 属性

示例

本示例使数据透视表不能刷新。

Worksheets(1).PivotTables(揚ivot1") _

    .PivotCache.EnableRefresh = False

EnableResize 属性

适用于

Window 对象

描述

如果窗口大小能够调整，本属性为 True。Boolean 类型，可读写。

示例

本示例使活动窗口的大小不能调整。

ActiveWindow.EnableResize = False

EnableSelection 属性

适用于

Worksheet 对象

描述

返回或设置在工作表上所能进行的选定。可为下列 XlEnableSelection 常量之一： xlNoRestrictions，xlNoSelection 或 xlUnlockedCells。Long 类型，可读写。

说明

仅当工作表处于保护状态时，本属性才能起作用： xlNoSelection 导致在工作表上不能进行任何选定， xlUnlockedCells 仅允许 Locked 属性为 False的单元格才能被选定，而 xlNoRestrictions 允许选定任意单元格。

另见

Protect 方法

示例

本示例使在第一张工作表上不能进行任何选定。

With Worksheets(1).

     EnableSelection = xlNoSelection

    .Protect Contents:=True, UserInterfaceOnly:=True

End With

EnableSound 属性

适用于

Application 对象

描述

如果打开 Microsoft Office 的声效则为 True。Boolean 类型，可读写。

示例

本示例关闭声效。

Application.EnableSound = False

EnableWizard 属性

适用于

PivotTable 对象

描述

如果数据透视表向导有效，本属性为 True。默认值为 True。Boolean 类型，可读写。

说明

当本属性被设置时，在工作表中的单元格域不被显示。

示例

本示例对“工作表1”中的第一个“数据透视表报表”禁用数据透视表向导。

Worksheets(1).PivotTables("Pivot1").EnableWizard = False

Encoding 属性

适用于

DefaultWebOptions 对象，WebOptions 对象

描述

返回或设置文档的编码方式（代码页或字符集），当查看保存的文档时，Web浏览器将使用此文档编码方式。可以是“Visual Basic 对象浏览器”中列出的 MsoEncoding 常量之一。默认值为系统代码页。可读写，MsoEncoding 类型。

说明

不能使用任何带有 AutoDetect 后缀的常量。这些常量由 ReloadAs 方法使用。

另见

AlwaysSaveInDefaultEncoding 属性

示例

本示例检查默认编码方式是否为 Western，然后设置相应的 strDocEncoding串。

If Application.DefaultWebOptions.Encoding = msoEncodingWestern Then

    strDocEncoding = "Western"

Else

    strDocEncoding = "Other"

End If

End 属性

适用于

Range 对象

描述

返回 Range 对象，该对象代表包含源区域的区域结尾处的单元格。等同于按键 END+上箭头键、END+下箭头键、END+左箭头键或 END+右箭头键。只读。

句法

expression.End(Direction)

expression

必选。该表达式返回 Range 对象。

Direction

Long 类型，必选。移动的方向。可为下列 XlDirection 常量之一： xlToLeft，xlToRight，xlUp或xlDown。

示例

本示例选定包含单元格“B4”的区域在 B 列中顶端的单元格。

Range("B4").End(xlUp).Select

本示例选定包含单元格“B4”的区域在第 4 行中最右端的单元格。

Range("B4").End(xlToRight).Select

本示例将选定区域从单元格“B4”延伸至第四行最后一个包含数据的单元格。

Worksheets("Sheet1").Activate

Range("B4", Range("B4").End(xlToRight)).Select

EndArrowheadLength 属性

适用于

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

EndArrowheadStyle 属性

适用于

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

EndArrowheadWidth 属性

适用于

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

EndConnect 方法

适用于

ConnectorFormat 对象

描述

将指定的连接符的终点连接到指定的形状上。如果在连接符的终点与其它形状之间已经有了连接，那么该已有的连接将中断。如果连接符的终点不在所需的连接节点，本方法将把连接符的终点移到该连接节点，并对连接符的大小和位置作相应的调整。可用 BeginConnect 方法将连接符的起点连接到某一形状上。

句法

expression.EndConnect(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

EndConnected 属性

适用于

ConnectorFormat 对象

描述

如果指定的连接符的终点已连接到了某一形状上，本属性为 True。Long 类型，只读。

示例

如果 myDocument 上的第三个形状是连接符，且它的终点已连接到了某一形状上，本示例将把连接节点的编号存储到变量 oldEndConnSite 中，把对所连接的形状的引用存储到对象变量 oldEndConnShape 中，然后断开连接符的终点与形状的连接。

Set myDocument = Worksheets(1)

With myDocument.Shapes(3)

    If .Connector Then

        With .ConnectorFormat

            If .EndConnected Then

                oldEndConnSite = .EndConnectionSite

                Set oldEndConnShape = .EndConnectedShape

                .EndDisconnect

            End If

        End With

    End If

End With

EndConnectedShape 属性

适用于

ConnectorFormat 对象

描述

返回 Shape 对象，该对象代表连接在指定的连接符的终点上的形状。只读。

注意：如果指定的连接符的终点并未连接到任何形状上，那么本属性将导致错误。

示例

本示例假定在 myDocument 上，有两个用连接符“Conn1To2”连接起来的形状。本示例的代码将向 myDocument 添加一个矩形和一条连接符。新添加的连接符的终点将连接到“Conn1To2”的终点所连接的同一连接节点上，而新添加的连接符的起点则连接到新添加的矩形的第一个连接节点上。

Set myDocument = Worksheets(1)

With myDocument.Shapes

Set r3 = .AddShape(msoShapeRectangle,

    _100, 420, 200, 100)

    With .Item("Conn1To2").ConnectorFormat

        endConnSite1 = .EndConnectionSite

        Set endConnShape1 = .EndConnectedShape

    End With

    With .AddConnector(msoConnectorCurve,_0, 0, 10, 10).ConnectorFormat

        .BeginConnect r3, 1

        .EndConnect endConnShape1, endConnSite1

    End With

End With

EndConnectionSite 属性

适用于

ConnectorFormat 对象

描述

返回指定连接符的终点所连接的连接节点的整数。Long 类型，只读。

注意：如果指定的连接符的终点并未连接到任何形状上，那么本属性将导致错误。

示例

本示例假定在 myDocument 上，有两个用连接符“Conn1To2”连接起来的形状。本示例的代码将向 myDocument 添加一个矩形和一条连接符。新添加的连接符的终点将连接到“Conn1To2”的终点所连接的同一连接节点上，而新添加的连接符的起点则连接到新添加的矩形的第一个连接节点上。

Set myDocument = Worksheets(1)

With myDocument.Shapes

Set r3 = .AddShape(msoShapeRectangle, _100, 420, 200, 100)

    With .Item("Conn1To2").ConnectorFormat

        endConnSite1 = .EndConnectionSite

        Set endConnShape1 = .EndConnectedShape

End With

    With .AddConnector(msoConnectorCurve, _0, 0, 10, 10).ConnectorFormat

        .BeginConnect r3, 1

        .EndConnect endConnShape1, endConnSite1

End With

End With

EndDisconnect 方法

适用于

ConnectorFormat 对象

描述

使指定的连接符的终点与其所连接的形状脱离。本方法并不修改连接符的尺寸和位置：连接符的终点仍保留在原来所连接的连接节点的位置，但与该连接节点之间不再有连接。可用 BeginDisconnect 方法使连接符的起点与某一形状脱离。

句法

expression.EndDisconnect

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

EndStyle 属性

适用于

ErrorBars 对象

描述

返回或者设置误差线的末端样式。可为下列 XlEndStyleCap 常量之一：

xlCap 或 xlNoCap。Long 类型，可读写。

示例

本示例对“图表1”第一个系列的误差线的末端样式进行设置。

本示例必须在其第一个系列带 Y 误差线的二维折线图上运行。

Charts("Chart1").SeriesCollection(1).ErrorBars.EndStyle = xlCap

EntireColumn 属性

适用于

Range 对象

描述

返回 Range 对象，该对象代表包含指定区域的整个列（或若干列）。只读。

另见

EntireRow 属性

示例

本示例对包含活动单元格的列中的第一个单元格赋值。本示例必须在工作表上运行。ActiveCell.EntireColumn.Cells(1, 1).Value = 5

EntireRow 属性

适用于

Range 对象

描述

返回 Range 对象，该对象代表包含指定区域的整个行（或若干行）。只读。

另见

EntireColumn 属性

示例

本示例对包含活动单元格的行中的第一个单元格赋值。本示例必须在工作表上运行。ActiveCell.EntireRow.Cells(1, 1).Value = 5

EnvelopeVisible 属性

适用于

Workbook 对象

描述

如果电子邮件标题和信封工具栏都可见，则其值为 True 。可读写，Boolean类型。

示例

本示例检查第一个工作簿中电子邮件标题和信封工具栏是否可见。如果可见，则将变量 strSubject 设置为电子邮件主题行的文本。

If Workbooks(1).EnvelopeVisible = True Then

    strSubject = "Please read: Review immediately"

End If

ErrorBar 方法

适用于

Series 对象

描述

在图表系列中添加误差线。

句法

expression.ErrorBar(Direction, Include, Type, Amount, MinusValues)

expression

必选。该表达式返回一个 Series 对象。

Direction

Variant 类型，可选。误差线的方向。可为以下 XlErrorBarDirection 常数之一： xlX 或 xlY。xlX 仅用于散点图。默认值为 xlY。

Include

Variant 类型，可选。要包含的误差线部分。可为以下 XlErrorBarInclude 常数：xlErrorBarIncludePlusValues，xlErrorBarIncludeMinusValues，xlErrorBarIncludeNone或者xlErrorBarIncludeBoth。默认值为xlErrorBarIncludeBoth。

Type

Variant 类型，可选。误差线类型。可为以下 XlErrorBarType 常数：xlErrorBarTypeFixedValue、xlErrorBarTypePercent、xlErrorBarTypeStDev、 xlErrorBarTypeStError 或者xlErrorBarTypeCustom。Amount

Variant 类型，可选。误差量。当 Type 设为 xlErrorBarTypeCustom 时只用于正误差量。

MinusValues

Variant 类型，可选。当 Type 设为 xlErrorBarTypeCustom 时的负误差量。

另见

ErrorBars 属性， HasErrorBars 属性

示例

本示例显示“图表1”中的系列一在 Y 方向上的标准误差线。误差线是正负两个方向的，本示例应在二维折线图上运行。

Charts("Chart1").SeriesCollection(1).ErrorBar _

Direction:=xlY, Include:=xlErrorBarIncludeBoth, _

Type:=xlErrorBarTypeStError

ErrorBars 对象

描述

代表图表数据系列上的误差线。误差线指出图表数据的不确定度。只有二维的面积图、条形图、柱形图、折线图和散点图中的数据系列可以有误差线，只有散点图中的数据系列可以有 x 误差线和 y 误差线。本对象并非集合，没有代表单个误差线的对象，要么打开系列中所有数据点的 x 误差线或 y 误差线，要么将其全部关闭。

使用ErrorBars对象

可用 ErrorBars 属性返回 ErrorBars 对象。下例打开第一个嵌入式图表的第一个数据系列的误差线，并设置误差线的尾部样式。

Worksheets("sheet1").ChartObjects(1).Activate

ActiveChart.SeriesCollection(1).HasErrorBars=True

ActiveChart.SeriesCollection(1).ErrorBars.EndStyle = xlNoCap

说明

ErrorBar 方法可用于修改误差线的格式和类型。

属性Application 属性，Border 属性，Creator 属性，EndStyle 属性，Name 属性，Parent 属性

方法

ClearFormats 方法，Delete 方法，Select 方法

ErrorBars 属性

适用于

Series 对象

描述

返回一个 ErrorBars 对象，此对象代表图表系列的误差线。只读。

另见

ErrorBar 方法， HasErrorBars 属性

示例

本示例对“图表1”中系列一的误差线颜色进行设置。本示例应在其系列一有误差线的二维折线图上运行。

With Charts("Chart1").SeriesCollection(1).

ErrorBars.Border.ColorIndex = 8

End With

ErrorMessage 属性

适用于

Validation 对象

描述

返回或设置数据有效性检验错误信息。String 类型，可读写。

另见

Add 方法（Validation 对象）， ErrorTitle 属性， IgnoreBlank 属性

InCellDropdown 属性，InputMessage 属性

示例

本示例向单元格“E5”添加数据有效性检验，并指定输入消息和错误消息。

With Range("e5").Validation.

Add Type:=xlValidateWholeNumber,

_AlertStyle:= xlValidAlertStop,

_Operator:=xlBetween, Formula1:="5", Formula2:= "10"

InputTitle = "Integers".

ErrorTitle = "Integers".

InputMessage = "Enter an integer from five to ten"

.ErrorMessage = "You must enter a number from five to ten"

End With

ErrorString 属性

适用于

ODBCError 对象，OLEDBError 对象，PivotTable 对象

描述

PivotTable 对象：返回或设置当 DisplayErrorString 为 True 时，在有错误的单元格中显示的字符串。默认值为空字符串（“”）。String 类型，可读写。

ODBCError 对象：返回 ODBC 错误字符串。String 类型，只读。

另见

DisplayErrorString 属性， NullString 属性

示例

本示例使数据透视表在有错误的单元格中显示连字符。

With Worksheets(1).PivotTables("Pivot1").

    ErrorString = "-"

.    DisplayErrorString = True

End With

ErrorTitle 属性

适用于

Validation 对象

描述

返回或者设置数据有效性检验错误对话框的标题。String 类型，可读写。

另见

Add 方法（Validation 对象）， ErrorMessage 属性， InputTitle 属性

示例

本示例为 E5 单元格添加数据有效性检验规则。

With Range("e5").Validation.

    Add xlValidateWholeNumber,_xlValidAlertInformation, xlBetween, "5", "10".

    InputTitle = "Integers".

    ErrorTitle = "Integers".

    InputMessage = "Enter an integer from five to ten".

    ErrorMessage = "You must enter a number from five to ten"

End With

Evaluate 方法

适用于

Application 对象，Chart 对象，Worksheet 对象

描述

将一个 Microsoft Excel 名称转换为一个对象或者一个值。

句法

expression.Evaluate(Name)

expression

对于 Application 对象可选，对于 Chart 对象，DialogSheet 对象和Worksheet 对象必选。该表达式返回“应用于”列表中的一个对象。

Name

String 类型，必选。对象名，使用 Microsoft Excel 的命名约定。

说明

下列几类 Microsoft Excel 名称可以使用此方法：

l A1-样式引用。可以引用任何以 A1-样式符号表示的单个单元格。所有引用都是绝对引用。

l 区域。你可以参考使用范围、交集和并集操作符（分别对应思考、空格和逗号）。

l 已定义的名称。您可以指定宏语言中任何名称。

l 外部引用。可以使用 ! 操作符引用另一工作簿上的单元格或已定义的名称。例如， Evaluate("[BOOK1.XLS]Sheet1!A1")。

注意：使用方括号（例如,“[A1:C5]”）与用字符串参数调用 Evaluate 方法是等效的。例如，下列表达式对是等价的。

[a1].Value = 25

Evaluate("A1").Value = 25

trigVariable = [SIN(45)]

trigVariable = Evaluate("SIN(45)")

Set firstCellInSheet = Workbooks("BOOK1.XLS").Sheets(4).[A1]

Set firstCellInSheet = _Workbooks("BOOK1.XLS").Sheets(4).Evaluate("A1")

使用方括号的优点在于代码较短。使用 Evaluate 的优点则在于参数是字符串，这样既可以在代码中构造，也可以使用 Visual Basic 变量。

示例

本示例将 Sheet1 中 A1 单元格的字体设置为加粗。

Worksheets("Sheet1").Activate

boldCell = "A1"

Application.Evaluate(boldCell).Font.Bold = True

Excel4IntlMacroSheets 属性

适用于

Application 对象，Workbook 对象

描述

返回一个 Sheets 集合，此集合代表所有在指定工作簿中的 Microsoft Excel4.0 国别设定宏表。只读。

说明

使用 Application 对象的此属性，或者不使用对象识别符，都等价于使用ActiveWorkbook.Excel4IntlMacroSheets。

另见

Excel4MacroSheets 属性， Worksheets 属性

示例

本示例显示当前工作簿中的 Microsoft Excel 4.0 国别设定宏表的数目。

MsgBox "There are " & _ActiveWorkbook.Excel4IntlMacroSheets.Count & _

      "Microsoft Excel 4.0 international macro sheets in this workbook."

Excel4MacroSheets 属性

适用于

Application 对象，Workbook 对象

描述

返回一个 Sheets 集合，此集合代表在指定工作簿中的所有 Microsoft Excel4.0 宏表。只读。

说明

使用 Application 对象运用此属性，或者不使用对象识别符，都等价于使用 ActiveWorkbook.Excel4MacroSheets。

另见

Excel4IntlMacroSheets 属性， Worksheets 属性

示例

本示例显示当前工作簿中 Microsoft Excel 4.0 宏表的数目。

MsgBox "There are " & ActiveWorkbook.Excel4MacroSheets.Count & _

        " Microsoft Excel 4.0 macro sheets in this workbook."

ExclusiveAccess 方法

适用于

Workbook 对象

描述

指定当前用户对共享清单中的工作簿进行独占访问。

句法

expression.ExclusiveAccess

expression

必选。该表达式返回一个 Workbook 对象。

说明

ExclusiveAccess 方法保存对指定工作簿的任何修改，并要求其他打开该工作簿的用户将所作改变保存到另外的文件。

如果指定工作簿不是以共享清单形式打开，则本方法无效。要确定工作簿是否以共享清单方式打开，可使用MultiUserEditing 属性进行检查。

另见

MultiUserEditing 属性， SaveAs 方法

示例

本示例检查活动工作簿是否以共享清单方式打开，如果是则本示例设置当前用户以独占方式访问工作簿。

If ActiveWorkbook.MultiUserEditing Then

      ActiveWorkbook.ExclusiveAccess

End If

ExecuteExcel4Macro 方法

适用于

Application 对象

描述

执行一个 Microsoft Excel 4.0 宏函数，然后返回此函数的结果。返回结果的类型取决于函数的类型。

句法

expression.ExecuteExcel4Macro(String)

expression

可选。该表达式返回一个 Application 对象。

String

String类型，必选。一个不带等号的 Microsoft Excel 4.0 宏语言函数。所有引用必须是像 R1C1 这样的字符串。如果 String 内包含双引号，则必须写两个。例如，要运行此宏函数=MID(“sometext”,1,4)，String 应写成“MID(“sometext”,1,4)”。

说明

Microsoft Excel 4.0 宏不在当前工作簿或工作表的环境中求值，也就是说所有的引用都应该是外部引用，而且需要明确指定工作簿名。例如，要在Book1 中执行 Microsoft Excel 4.0 宏 “My_Macro”，必须使用“Book1!My_Macro()”。如果不指定工作簿名，此方法将失败。

另见

Run 方法

示例

本示例对 Sheet1 工作表的 C3 单元格执行 GET.CELL(42) 宏函数，然后在一个消息框中显示结果。GET.CELL(42) 宏函数返回当前窗口左边缘到活动单元格的左边缘之间的水平距离。Visual Basic 中没有与此宏函数直接等价的函数。

Worksheets("Sheet1").Activate

Range("C3").Select

MsgBox ExecuteExcel4Macro("GET.CELL(42)")

Explosion 属性

适用于

Point 对象，Series 对象

描述

返回或者设置饼图或圆环图的分割扇区大小。如果不进行分割则返回 0（零），即扇区的中心与饼图中心重合。Long 类型，可读写。

示例

本示例设置“图表1”中第二个点的分割值。本示例应在饼图上运行。

Charts("Chart1").SeriesCollection(1).Points(2).Explosion = 20

Export 方法

适用于

Chart 对象

描述

将图表以某种图形格式导出。

句法

expression.Export(FileName, FilterName, Interactive)

expression

必选。该表达式返回一个 Chart 对象。

FileName

String 类型，必选。导出文件名。

FilterName

Variant 类型，可选。在注册表中显示的与图形过滤器的语言无关的名称。

Interactive

Variant 类型，可选。如果为 True 则显示包含专用过滤器选项的对话框。如果该本参数设为 False，则 Microsoft Excel 使用过滤器的默认值。默认值为 False。

示例

本示例将第一张图表导出到 GIF 文件。

Worksheet("sheet1").ChartObjects(1)_.

Charts(1).Export _

      FileName:="current_sales.gif", FilterName:="GIF"

Extend 方法

适用于

SeriesCollection 集合对象

描述

向已存在的系列集合中添加新数据点。

句法

expression.Extend(Source, Rowcol, CategoryLabels)

expression

必选。该表达式返回 SeriesCollection 对象。

Source

Variant 类型，必选。要添加到 SeriesCollection 对象中的新数据，以 Range对象或数据点数组的形式给出。

Rowcol

Variant 类型，可选。如果 Source 为数组，则忽略本参数。指定新数据点的值是处于给定源区域的行内还是列内。可为下列 XlRowCol 常量之一：xlRows 或 xlColumns。如果省略本参数， Microsoft Excel 将依据选定区域的大小和方向，或数组的维数判断新数值的位置。

CategoryLabels

Variant 类型，可选。如果 Source 为数组，则忽略本参数。若指定为 True，则使第一行或第一列中的内容包含分类标志的名称。若指定为 False，则使第一行或第一列中的内容包含系列的第一个数据点。如果省略本参数，Microsoft Excel 将依据第一行或第一列中的内容判断分类标志的位置。

说明

本方法对PivotChart报表无效。

示例

本示例将工作表“Sheet1”中单元格区域“B1:B6”中的数据添加到“图表1”中，以延伸其中的系列。

Charts("Chart1").SeriesCollection.Extend _

        Source:=Worksheets("Sheet1").Range("B1:B6")

ExtendList 属性

适用于

Application 对象

描述

如果 Microsoft Excel 自动将格式和公式扩展到清单中新增的数据，则其值为 True。可读写，Boolean 类型。

说明

要实现格式和公式的扩展，则清单中新行或新列前五行或五列中至少应有三行或三列必须具有这些格式和公式，且数据必须添加到清单的底部或右方。

Extent 属性

适用于

HPageBreak 对象，VPageBreak 对象

描述

返回指定分页符的类型：全屏幕或仅在打印区内。可为下列XlPageBreakExtent 常量之一： xlPageBreakFull 或 xlPageBreakPartial。Long 类型，只读。

示例

本示例显示全屏幕水平分页符和打印区水平分页符的总数。

For Each pb in Worksheets(1).HPageBreaks

   If pb.Extent = xlPageBreakFull Then

      cFull = cFull + 1

   Else

      cPartial = cPartial + 1

   End If

Next

MsgBox cFull & " full-screen page breaks, " & cPartial & _

     " print-area page breaks"

ExtrusionColor 属性

适用于

ThreeDFormat 对象

描述

返回 ColorFormat 对象，该对象代表形状挤压部分的颜色。只读。

示例

本示例向 myDocument 中添加椭圆，然后使该椭圆挤压深度达50磅高，并指定此部分的颜色为紫色。

Set myDocument = Worksheets(1)

Set myShape = myDocument.Shapes.AddShape(msoShapeOval, 90, 90, 90, 40)

With myShape.ThreeD

    .Visible = True

    .Depth = 50

    .ExtrusionColor.RGB = RGB(255, 100, 255)

    ' RGB value for purple

End With

ExtrusionColorType 属性

适用于

ThreeDFormat 对象

描述

返回或设置形状深度部分的颜色是随形状本身填充颜色（深度部分的前面）的改变而自动改变，还是独立于形状本身的颜色。可为下列MsoExtrusionColorType 常量之一：msoExtrusionColorAutomatic（深度部分的颜色根据形状本身的填充颜色变化）、msoExtrusionColorCustom（深度部分的颜色独立于形状本身的颜色）或 msoExtrusionColorTypeMixed。Long 类型，可读写。

示例

如果 myDocument 上第一个形状的深度部分的颜色是自动变化的，本示例就将该深度部分的颜色设置为自定义的黄色。

Set myDocument = Worksheets(1)

With myDocument.Shapes(1).ThreeD

    If .ExtrusionColorType = msoExtrusionColorAutomatic Then

        .ExtrusionColor.RGB = RGB(240, 235, 16)

    End If

End With

值	意义
xlOn	数据输入模式处于打开状态。
xlOff	数据输入模式处于关闭状态。
xlStrict	数据输入模式处于打开状态，并且按 ESC 键时不关闭数据输入模式。

对象	数据区域
数据字段	字段中包含的数据
行、列或者页字段	字段中的数据项
数据项	数据项规范所限定的数据

xlParamTypeBigInt	xlParamTypeBinary
xlParamTypeBit	xlParamTypeChar
xlParamTypeDate	xlParamTypeDecimal
xlParamTypeDouble	xlParamTypeFloat
xlParamTypeInteger	xlParamTypeLongVarBinary
xlParamTypeLongVarChar	xlParamTypeNumeric
xlParamTypeReal	xlParamTypeSmallInt
xlParamTypeTime	xlParamTypeTimeStamp
xlParamTypeTinyInt	xlParamTypeUnknown
xlParamTypeVarBinary	xlParamTypeLongVarChar
xlParamTypeWChar

键	代码
BACKSPACE	{BACKSPACE} 或者 {BS}
BREAK	{BREAK}
CAPS LOCK	{CAPSLOCK}
CLEAR	{CLEAR}
DELETE 或者 DEL	{DELETE} 或者 {DEL}
DOWN ARROW	{DOWN}
END	{END}
ENTER（数字小键盘）	{ENTER}
ENTER	~（波浪线）
ESC	{ESCAPE} 或者 {ESC}
HELP	{HELP}
HOME	{HOME}
INS	{INSERT}
LEFT ARROW	{LEFT}
NUM LOCK	{NUMLOCK}
PAGE DOWN	{PGDN}
PAGE UP	{PGUP}
RETURN	{RETURN}
RIGHT ARROW	{RIGHT}
SCROLL LOCK	{SCROLLLOCK}
TAB	{TAB}
UP ARROW	{UP}
F1 到 F15	{F1} 到 {F15}

要组合的键	在键代码之前添加的符号
SHIFT	+（加号）
CTRL	^（乘幂）
ALT	%（百分号）

常量	描述
xlDisplayShapes	显示所有形状。
xlPlaceholders	仅显示占位符。
xlHide	隐藏所有形状。