适用于
CalloutFormat 对象
描述
如果在标注文字和标注线之间有垂直的强调线，本属性为 True。Long 类型，可读写。
示例
本示例向 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 WithEnd With
适用于
Workbook对象
描述
接受指定的共享工作簿中的所有修改。
句法
expression.AcceptAllChanges
expression
必选。该表达式返回 Workbook 对象。
另见
示例
本示例接受活动工作簿中的所有修改。
ActiveWorkbook.AcceptAllChanges
适用于
Workbook对象
描述
如果可在工作表公式中使用标志，本属性为 True。 默认值为 True。Boolean类型，可读写。
另见
示例
本示例对活动工作簿设置 AcceptLabelsInFormulas 属性，然后将第一张工作表中的单元格“B1:D1”设置为列标志。
ActiveWorkbook.AcceptLabelsInFormulas= True
Worksheets(1).Range("b1:d1").FormulaLabel = xlColumnLabels
适用于
Chart对象，Workbook对象，Worksheet对象
描述
激活一个工作簿、工作表、图表或嵌入式图表时产生此事件。
句法
Private Sub object_Activate()
Object
Chart，Workbook或者Worksheet。
说明
切换两个显示同一工作簿的窗口时，将产生 WindowActivate 事件，但不产生工作簿的 Activate 事件。
新建窗口时不产生本事件。
另见
Deactivate 事件， SheetActivate 事件， SheetDeactivate 事件， WindowActivate事件， WindowDeactivate 事件， WorkbookActivate 事件， WorkbookDeactivate 事件。
示例
本示例当激活工作表时对 A1:A10 区域进行排序。
Private Sub Worksheet_Activate()
Range("a1:a10").Sort Key1:=Range("a1"), Order:=xlAscEnding
End Sub
适用于
Chart对象，ChartObject对象，OLEFormat对象，OLEObject对象，Pane对象，Range对象，Window对象，Workbook对象，Worksheet对象
描述
激活对象，如下表所示。
| 对象 | 说明 |
| Chart, ChartObject | 使该图表成为活动图表。 |
| Worksheet | 使该工作表成为活动工作表，等同于单击工作表选项卡。 |
| OLEObject | 激活对象。 |
| Pane | 激活窗格。如果该窗格不在活动窗口，则该窗格所属的窗口也将激活。不能激活冻结的窗格。 |
| Range | 激活单个单元格，该单元格必须处于当前选定区域内。可用 Select 方法选定单元格区域。 |
| Window | 将窗口提到 Z-顺序的最前面，这样不会引起可能附加在工作簿上的 Auto_Activate 或 Auto_Deactivate 宏的运行（可用 RunAutoMacros 方法运行这些宏）。 |
| Workbook | 活该工作簿的第一个窗口，这样不会引起可能附加在工作簿上的 Auto_Activate 或 Auto_Deactivate 宏的运行（可用 RunAutoMacros 方法运行这些宏）。 |
句法
expression.Activate
expression
必选。该表达式返回“适用于”列表中的对象。
另见
示例
本示例激活工作表 Sheet1。
Worksheets("Sheet1").Activate
本示例选定工作表“Sheet1”中的单元格区域“A1:C3”，并激活单元格“B2”。Worksheets("Sheet1").Activate
Range("A1:C3").Select
Range("B2").Activate
本示例激活工作簿“Book4.xls”。如果工作簿“Book4.xls”有若干窗口，本示例激活第一个，即“Book4.xls:1”。
Workbooks("BOOK4.XLS").Activate
适用于
Application对象
描述
激活一个 Microsoft 应用程序。如果该应用程序已经处于运行状态，则本方法激活的是正在运行的此应用程序。如果该应用程序不处于运行状态， 本方法将启动该应用程序的新实例。
句法
expression.ActivateMicrosoftApp(index)
expression
必选。该表达式返回一个 Application 对象。
Index
Long类型，必选。指定要激活的 Microsoft 应用程序，可为下列XlMSApplication 常量之一：xlMicrosoftWord、xlMicrosoftPowerPoint、xlMicrosoftMail、xlMicrosoftAccess、xlMicrosoftFoxPro、xlMicrosoftProject或xlMicrosoftSchedulePlus。
示例
本示例启动并激活 Word。
Application.ActivateMicrosoftApp xlMicrosoftWord
适用于
Window对象
描述
激活指定窗口，并将其移到窗口 z-次序的末尾。
句法
expression.ActivateNext
expression
必选。该表达式返回一个 Window 对象。
另见
>ActivatePrevious方法， DisplayNoteIndicator属性， Next属性
示例
本示例将活动窗口移到窗口 z-次序的末尾。
ActiveWindow.ActivateNext
适用于
Window对象
描述
激活指定窗口，然后激活窗口 z-次序末尾的窗口。
句法
expression.ActivatePrevious
expression
必选。该表达式返回一个 Window 对象。
另见
ActivateNext方法， DisplayNoteIndicator属性， Next属性
示例
本示例激活 z-次序末尾的窗口。
ActiveWindow.ActivatePrevious
适用于
Application对象，Window对象
描述
返回一个 Range 对象，该对象代表活动窗口的活动单元格（最上面的窗口），或指定窗口的活动单元格。如果该窗口显示的不是工作表，则该属性无效。只读。
说明
如果不指定对象识别符，本属性返回的是活动窗口中的活动单元格。注意区分活动单元格和选定区域。活动单元格是当前选定区域内的单个单元格。选定区域可能包含多个单元格，但只有一个是活动单元格。下列表达式都是返回活动单元格，并都是等价的。
ActiveCell
Application.ActiveCell
ActiveWindow.ActiveCell
Application.ActiveWindow.ActiveCell
示例
本示例在消息框中显示活动单元格的值。由于活动表不是工作表而导致ActiveCell 属性无效，因此本示例使用 ActiveCell 属性之前先激活Sheet1。Worksheets("Sheet1").Activate
MsgBox ActiveCell.Value
本示例更改活动单元格的字体格式设置。
Worksheets("Sheet1").Activate
With ActiveCell.Font
.Bold = True
.Italic = True
End With
适用于
Application对象，Window对象，Workbook对象
描述
返回 Chart 对象，该对象代表活动图表（包括嵌入式图表或图表工作表）。当选定或激活嵌入式图表时，该嵌入式图表就成为活动的。如果当前没有活动的图表，本属性返回 Nothing。只读。
说明
如果未指定对象识别符，本属性返回活动工作簿上的活动图表。
示例
本示例打开活动图表的图例。
ActiveChart.HasLegend = True
适用于Window对象
描述
返回一个 Pane 对象，此对象代表指定窗口中的活动窗格。只读。
说明
此属性仅用于工作表和宏表。
此属性返回 Pane 对象。必须使用 Index 属性得到活动窗格的索引。
另见
示例
本示例激活 Book1.xls 中当前窗口的下一个窗格。如果当前窗格处于被冻结状态则不能激活下一个窗格。本示例必须在除 Book1.xls 外的另一工作簿上运行。运行本示例之前，必须确保Book1.xls 的活动工作表有两个或四个窗格。
Workbooks("BOOK1.XLS").Activate
If not ActiveWindow.FreezePanes Then
With ActiveWindow
14
i = .ActivePane.Index
If i = .Panes.Count Then.
Panes(1).Activate
Else
.Panes(i+1).Activate
End If
End With
End If
适用于
Application对象
描述
返回或者设置活动打印机的名称。String 类型，可读写。
示例
本示例显示活动打印机的名称。
MsgBox "The name of the active printer is " & _
Application.ActivePrinter
适用于
Application对象，Window对象，Workbook对象
描述
返回一对象，该对象代表活动工作簿中的，或者指定的窗口或工作簿中的活动工作表（最上面的工作表）。如果没有活动的工作表，则返回 Nothing。只读。
说明
如果未给出对象识别符，本属性返回活动工作簿中的活动工作表。如果某一工作簿在若干个窗口中出现，那么该工作簿的 ActiveSheet 属性在不同窗口中可能不同。
另见
示例
本示例显示活动工作表的名称。
MsgBox "The name of the active sheet is " & ActiveSheet.Name
适用于
Application对象
描述
返回一个 Window 对象，该对象代表活动窗口（最上面的窗口）。只读。如果没有打开的窗口则返回 Nothing。
另见
示例
本示例显示活动窗口的名称（Caption 属性）。
MsgBox "The name of the active window is " & ActiveWindow.Caption
适用于
Application对象
描述
返回一个 Workbook 对象，该对象代表活动窗口（最上面的窗口）的工作簿。只读。如果没有打开任何窗口或者活动窗口为信息窗口(Info Window)或剪贴板窗口(Clipboard Window)则返回 Nothing。
示例
本示例显示活动工作簿的名称。
MsgBox "The name of the active workbook is " & ActiveWorkbook.Name
适用于
AddIns集合对象
描述
向加载宏(add-ins)列表中添加新的加载宏文件。返回 AddIn 对象。
句法
expression.Add(Filename, CopyFile)
expression
必选。该表达式返回 AddIns 对象。
Filename
String 类型，必选。要添加到加载宏管理器中的加载宏所在文件的名称。
CopyFile
Variant 类型，可选。如果加载宏文件在硬盘上，则忽略本参数。在加载宏处于可移动介质（软盘或光盘）上的情况下，若指定为 True，就将该加载宏复制到硬盘上；若指定为 False，则不复制。如果省略本参数， MicrosoftExcel 将弹出对话框，提示用户作出选择。
说明
本方法并不安装该新加载宏。必须设置 Installed 属性以安装加载宏。
另见
示例
本示例从 A 驱动器中添加加载宏“Myaddin.xla”。运行本示例时， MicrosoftExcel 将把文件“A:\Myaddin.xla”复制到硬盘上的“Library”文件夹中，并将该加载宏的标题添加到“加载宏”对话框的列表中。
Set myAddIn = AddIns.Add(Filename:="A:\MYADDIN.XLA", _
CopyFile:=True)
MsgBox myAddIn.Title & " has been added to the list"
Add方法（CalculatedFields或CalculatedItems集合）
适用于
CalculatedFields集合对象，CalculatedItems集合对象
描述
创建新的计算字段或计算项。返回 PivotField 或 PivotItem 对象。
句法
object.Add(Name, Formula)
object
必选。该表达式返回 CalculatedFields 或 CalculatedItems 对象。
Name
String 类型，必选。计算字段或计算项的名称。
Formula
String 类型，必选。计算字段或计算项的公式。
示例
本示例向第一张工作表上的数据透视表（PivotTable）报告添加计算字段。
Worksheets(1).PivotTables(1).CalculatedFields.Add "PxS", _
"= Product * Sales"
适用于
ChartObjects集合对象
描述
创建新的嵌入式图表。返回 ChartObject 对象。
句法
object.Add(Left, Top, Width, Height)
object
必选。该表达式返回 ChartObjects 对象。
Left, Top
Long 类型，必选。以磅为单位指定新对象的初始坐标，该坐标是相对于工作表上单元格“A1”的左上角或图表的左上角的坐标。
Width, Height
Long 类型，必选。以磅为单位指定新对象的初始大小。
示例
本示例创建新的嵌入式图表。
Set co = Sheets("Sheet1").ChartObjects.Add(50, 40, 200, 100)
co.Chart..ChartWizard Source:=Worksheets("Sheet1").Range("A1:B2"), _
Gallery:=xlColumn, Format:=6, PlotBy:=xlColumns, _
CategoryLabels:=1, SeriesLabels:=0, HasLegend:=1
适用于
Charts集合对象
描述
新建图表工作表。返回 Chart 对象。
句法
expression.Add(Before, After, Count)
expression
必选。该表达式返回 Charts 对象。
Before
Variant 类型，可选。指定工作表对象，新建的图表将置于此工作表之前。
After
Variant 类型，可选。指定工作表对象，新建的图表将置于此工作表之后。
Count
Variant 类型，可选。要创建的图表的数目。默认值为 1。
说明
如果 Before 和 After 两者均省略，新建的图表将插入到活动工作表之前。
示例
本示例创建空白图表工作表，并将其插入到最后一个工作表之前。
ActiveWorkbook.Charts.Add Before:=Worksheets(Worksheets.Count)
适用于
CustomViews集合对象
描述
新建一个自定义视图。返回一个 CustomView 对象，该对象代表新建视图。
句法
expression.Add(ViewName, PrintSettings, RowColSettings)
expression
必选。该表达式返回一个 CustomViews 对象。
ViewName
String 类型，必选。新建视图的名称。PrintSettings
Variant 类型，可选。如果为 True 则在自定义视图中包括打印设置。
RowColSettings
Variant 类型，可选。如果为 True 则在自定义视图中包括隐藏行和隐藏列（包括筛选信息）。
另见
PrintSettings属性， RowColSettings属性
示例
本示例在活动工作簿中新建一个自定义视图，并命名为“Summary”。
ActiveWorkbook.CustomViews.Add "Summary", True, True
适用于
FormatConditions集合对象
描述
添加新的条件格式。返回 FormatCondition 对象，该对象代表新添加的条件格式。
句法
expression.Add(Type, Operator, Formula1, Formula2)
expression
必选。该表达式返回 FormatConditions 对象。
Type
Long 类型，必选。指定条件格式是基于单元格的值还是基于表达式。 可为下列 XlFormatConditionType 常量之一： xlCellValue 或xlExpression。
Operator
Variant 类型，可选，条件格式操作符。可为下列XlFormatConditionOperator 常量之一： xlBetween、xlEqual、xlGreater、xlGreaterEqual、xlLess、xlLessEqual、xlNotBetween或xlNotEqual。如果Type为xlExpression，则忽略Operator参数。
Formula1
Variant类型，可选。与条件格式相关联的表达式或数值。可为常量值、字符串值、单元格引用或公式。
Formula2
Variant类型，可选。当 Operator 为 xlBetween 或 xlNotBetween 时，与条件格式第二部分相联系的表达式或数值。如果 Operator 为其它值，则忽略本参数。可为常量值、字符串、单元格引用或公式。
说明
对单个区域定义的条件格式不能超过三个。可用 Modify 方法修改现存的条件格式，或在添加新条件格式前用 Delete 方法删除现存的条件格式。
另见
Modify方法（FormatCondition对象），Operator属性
示例
本示例向单元格区域“E1:E10”添加条件格式。
With Worksheets(1).Range("e1:e10").FormatConditions _
.Add(xlCellValue, xlGreater, "=$a$1")
With .Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 6
End With
With .Font
.Bold = True
.ColorIndex = 3
End With
End With
适用于
HPageBreaks集合对象
描述
添加水平分页符。返回 HPageBreak 对象。
句法object.Add(Before)
object必选。该表达式返回 HPageBreaks 对象。Before
Object 类型，必选。Range 对象。新的分页符就添加到本参数所指定的区域上方。示例
本示例在单元格“F25”上方添加水平分页符，在其左方添加垂直分页符。
With orksheets(1)
.HPageBreaks.Add .Range("F25")
.VPageBreaks.Add .Range("F25")
End With
适用于
Hyperlinks集合对象
描述
向指定的区域或形状添加超级链接。返回 Hyperlink 对象。
句法
object.Add(Anchor, Address, SubAddress,ScreenTip, TextToDisplay)
object
必选。该表达式返回 Hyperlinks 对象。
Anchor
Object 类型，必选。超级链接的位置。可为 Range 对象或 Shape 对象。
Address
String 类型，必选。超级链接的地址。
SUbAddress
Variant 类型，可选。超级链接的子地址。
ScreenTip
Variant类型，可选。当鼠标指针停留于超级链接之上时，将显示屏幕提示。TextToDisplay
Variant类型，可选。显示超级链接的文本。
示例
本示例向单元格“A5”添加超级链接。
With Worksheets(1)
.Hyperlinks.Add Anchor:=.Range("a5"), _
Address:="http://example.microsoft.com",_
ScreenTip:= "Microsoft Web Site"，_
TextToDisplay:= "Microsoft"
End With
本示例向单元格“A5”添加电子邮件超级链接。
With Worksheets(1)
.Hyperlinks.Add Anchor:=.Range("a5"), _
Address:="mailto:someone@microsoft.com?subject=hello",_
ScreenTip:= "Write us today"，_
TextToDisplay:= "Support"
End With
适用于
Names集合对象
描述
定义新名称。返回 Name 对象。
句法
expression.Add(Name, RefersTo, Visible, MacroType, ShortcutKey, Category,NameLocal, RefersToLocal, CategoryLocal, RefersToR1C1,RefersToR1C1Local)
expression
必选。该表达式返回 Names 对象。
Name
Variant 类型，可选。如果未指定 NameLocal，本参数为必选参数。用作名称的文字（以宏语言指定）。名称中不能包含空格，也不能像是单元格引用。
RefersTo
Variant 类型，可选。如果未指定其它 RefersTo 参数之一，本参数为必选参数。说明本名称所引用的内容（用 A1-样式的记号，以宏语言指定）。
Visible
Variant 类型，可选。若指定为 True，则用常规方式定义名称。若指定为False，则将名称定义为隐藏名称（即该名称在Define Name、Paste Name或Goto对话框中不出现）。默认值为 True。
MacroType
Variant 类型，可选。宏类型，如下表所示。
| 值 | 含义 |
| 1 | 定义函数（Function 过程） |
| 2 | （也即 Sub 过程） |
| 3或省略 | 无（即该名称不指向自定义函数或宏） |
ShortcutKey
Variant 类型，可选。宏的快捷键。必须为单个字母，例如“z”或“Z”。仅应用于命令宏。
Category
Variant 类型，可选。如果 MacroType 为 1 或 2，本参数指定宏或函数的分类。该分类用于“函数向导”。现存的分类可用编号（从 1 开始）或名称（以宏语言指定）引用。如果指定的分类不存在， Microsoft Excel 将创建新的分类。
NameLocal
Variant 类型，可选。如果未指定 Name，本参数为必选参数。用作名称的文字（以用户语言指定）。名称中不能包含空格，也不能像是单元格引用。
RefersToLocal
Variant 类型，可选。如果未指定其它 RefersTo 参数之一，本参数为必选参数。说明本名称所引用的内容（用 A1-样式的记号，以用户语言指定）。
CategoryLocal
Variant 类型，可选。如果未指定 Category，本参数为必选参数。文字以用户语言的字符串指定自定义函数的分类。
RefersToR1C1
Variant 类型，可选。如果未指定其它 RefersTo 参数之一，本参数为必选参数。说明本名称所引用的内容（用 R1C1-样式的记号，以宏语言指定）。
RefersToR1C1Local
Variant 类型，可选。如果未指定其它 RefersTo 参数之一，本参数为必选参数。说明本名称所引用的内容（用 R1C1-样式的记号，以用户语言指定）。
示例
本示例为活动工作簿中工作表“Sheet1”上的单元格区域“A1:D3”定义新名称。
ActiveWorkbook.Names.Add _
Name:="tempRange",_
RefersTo:="=Sheet1!$A$1:$D$3"
适用于
OLEObjects集合对象
描述
将一个新的 OLE 对象添加到工作表中。返回一个 OLEObject 对象。
句法
expression.Add(ClassType, FileName, Link, DisplayAsIcon, IconFileName,IconIndex, IconLabel, Left, Top, Width, Height)
expression
必选。该表达式返回一个 OLEObjects 集合。
ClassType
Variant 类型，可选。（必须指定 ClassType 或 FileName 之一）。该字符串包含要创建对象的程序标识符。如果指定了 ClassType 参数，则忽略FileName 参数和 Link 参数。
FileName
Variant 类型，可选。（必须指定 ClassType 或 FileName 之一）。该字符串指定要创建的 OLE 对象所使用的文件名。
Link
Variant 类型，可选。如果为 True 则设置由 FileName 创建的新 OLE 对象链接到该文件。如果该对象不是链接方式，则以文件副本方式创建该对象。默认值为 False。
DisplayAsIcon
Variant 类型，可选。如果为 True ，则以图标或正常体图片方式之一显示该新 OLE 对象。如果本参数设为 True，则 IconFileName 参数和IconIndex 参数用于指定图标。IconFileName
Variant 类型，可选。该字符串指定包含要显示的图标的文件。仅当DisplayAsIcon 参数设为 True 时使用该参数。如果不指定本参数，或者指定文件中不包含图标，则使用该 OLE 类的默认图标。
IconIndexV
ariant 类型，可选。指定图标文件中包含的图标数目。仅当 DisplayAsIcon参数设为 True，并且 IconFileName 参数表示的是合法的图标文件时使用该参数。如果由 IconFileName 参数指定的图标文件中不存在指定索引号的图标，则使用该文件中第一个图标。
IconLabel
Variant 类型，可选。该字符串指定在图标下方显示的标签。仅当DisplayAsIcon
参数设为 True 时使用该参数。如果省略该参数，或者该参数为空字符串（“”），则不显示任何标签。
Left, Top
Variant 类型，可选。新对象的初始坐标，相对于工作表中 A1 单元格的左上角，或者相对于图表的左上角，以磅为单位。
Width, Height
Variant 类型，可选。新对象的初始大小，以磅为单位。
示例
本示例在 Sheet1 中新建一个 Microsoft Word OLE 对象。
ActiveWorkbook.Worksheets("Sheet1").OLEObjects.Add _
ClassType:="Word.Document"
本示例为第一张工作表添加命令按钮。
Worksheets(1).OLEObjects.Add ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=40, Top:=40, _
Width:=150, Height:=10
适用于
Parameters集合对象
描述
新建一个查询参数。返回一个 Parameter 对象，该对象代表新建查询参数。
句法
expression.Add(Name, DataType)
expression
必选。该表达式返回一个 Parameters 对象。
Name
String 类型，必选。指定查询参数的名称。该参数名称必须与 SQL语句中的参数子句相符。
DataType
Variant 类型，可选参数的数据类型，可为下列 XlParameterDataType 常量之一：
| xlParamTypeBigInt | XlParamTypeBinary |
| XlParamTypeBit | xlParamTypeChar |
| XlParamTypeDate | xlParamTypeDecimal |
| xlParamTypeDouble | xlParamTypeFloat |
| xlParamTypeInteger | xlParamTypeLongVarBinary |
| xlParamTypeNumeric | xlParamTypeLongVarChar |
| xlParamTypeReal | xlParamTypeSmallInt |
| xlParamTypeTime | xlParamTypeTimeStamp |
| xlParamTypeTinyInt | xlParamTypeUnknown |
| xlParamTypeVarBinary | xlParamTypeVarChar |
| xlParamTypeWChar |
这些值与 ODBC 数据类型相对应。这些值代表 ODBC 驱动程序要接收的数据类型。Microsoft Excel 和 ODBC 驱动程序管理器将对 Microsoft Excel提供的参数值进行强制转换，使之成为 ODBC 驱动程序接受的正确数据类型。
示例
本示例对第一张查询表的 SQL 语句进行更改。“(city=?)”子句表示这是一个带参数查询，然后本示例将 city 的值设为常量“Oakland”。
Set qt = Sheets("Sheet1").QueryTables(1)
qt.Sql = "SELECT * FROM authors WHERE (city=?)"
Set param1 = qt.Parameters.Add("City Parameter", _xlParamTypeVarChar)
param1.SetParam xlConstant, "Oakland"
qt.Refresh
适用于
Phonetics集合对象
描述
向指定的单元格添加拼音（phonetic）文本，并创建Phonetics对象。
句法
expression.Add(Start，Length，Text)
expression
该表达式返回 Phonetics 对象。
Start
(类型，必选。指定单元格第一个字符的位置。
Length
Long类型，必选。从Start位置到单元格结束的字符数。
Text
String类型，必选。单元格拼音文本的字符集合。
示例
本示例向活动单元格添加三个音标串，再将字符类型设为（日）平假名，字符颜色设为蓝色，字符设为可见。
ActiveCell.FormulaR1C1 = "东京都涩谷区代都涩"
ActiveCell.Phonetics.Add Start:=1, Length:=3, Text:="トウキヨウト"
ActiveCell.Phonetics.Add Start:=4, Length:=3, Text:="シブヤケ"
ActiveCell.Phonetics.Add Start:=7, Length:=3, Text:="ヨョギ"
ActiveCell.Phonetics.CharacterType = xlHiragana
ActiveCell.Phonetics.Font.Color = vbBlue
ActiveCell.Phonetics.Visible = True
适用于
PivotCaches集合对象
描述
向PivotCaches 集合中添加一个新的数据透视表高速缓存。返回一个PivotCache 对象。
句法
expression.Add(SourceType, SourceData)
expression
一个用于返回 PivotCaches 对象的表达式。
SourceType
可选。XlPivotTableSourceType 类型。数据透视表高速缓存数据的源，可以是下表中所列的 XlPivotTableSourceType 常量之一。
| 常量 | 说明 |
| xlConsolidation | 个合并计算区域 |
| xlDatabase | Microsoft Excel 清单或数据库 |
| xlExternal | 其他应用程序中的数据（不可指定 SourceData） |
| xlPivotTable | 与另一个数据透视表报表相同的数据源 |
SourceData
可选。Variant 类型。表示新的数据透视表高速缓存中的数据。当 SourceType不是 xlExternal 时，此参数必选。它可以是一个 Range 对象、一个数组区域或是代表已有数据透视表报表名称的一个文本常量。对于外部数据库而言，它应该是一个二元数组。第一个元素表示用于指定数据提供者的连接串，第二个元素表示用于获取数据的 SQL 查询串。如果指定此参数，则必须同时还指定 SourceType。
说明
如果没有任何 PivotTable 对象引用这个数据透视表高速缓存，那么在保存工作簿之前会自动删除该数据透视表高速缓存。
另见
Add方法（PivotTables集合）， 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.RecordsetSet rstRecord
set.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
适用于
PivotFormulas集合对象
描述
创建新的数据透视表公式。返回一个PivotFormula 对象。
句法
object.Add(Formula)
object
必选。该表达式返回一个PivotFormulas 对象。
Formula
String 类型，必选。新的数据透视表公式。
示例
本示例在第一张工作表的第一个数据透视表上创建新的数据透视表公式。
Worksheets(1).PivotTables(1).PivotFormulas _
.Add "Year['1998'] Apples = (Year['1997'] Apples) * 2"
适用于
PivotItems集合对象
描述
创建新的数据透视表数据项。返回一个PivotItem 对象。
句法
object.Add(Name)
object
必选。该表达式返回 PivotFormulas 对象。
Name
String 类型，必选。新数据透视表数据项的名称。
示例
本示例的第一张工作表中的第一个数据透视报表里创建新的数据透视表数据项。Worksheets(1).PivotTables(1).PivotFields("Year").Add "1998"
适用于
PivotTables集合对象
描述
添加一个新的数据透视表报表。返回一个 PivotTable 对象。
句法
expression.Add(PivotCache, TableDestination, TableName, ReadData)
expression
一个返回 PivotTables 对象的表达式。
PivotCache
必选，PivotCache 类型。表示一个数据透视表高速缓存，而新的数据透视表报表将基于此高速缓存创建。高速缓存用于为报表提供数据。
TableDestination
必选，Variant 类型。数据透视表报表的目标区域（工作表中用于放置所生成的报表的区域）左上角的单元格。必须在工作表中（此工作表包含由expression 所指定的 PivotTables 对象）指定一个目标区域。
TableName
可选，Variant 类型。新的数据透视报表的名称。
ReadData可选，Variant 类型。如果为 True，则创建的数据透视表高速缓存中包含外部数据库中的所有记录；此时高速缓存可能会很大。如果为 False，则允许在实际读数据之前将有些字段设置为基于服务器的页字段。
另见
示例
本示例在第一张工作表的 A1 单元格上创建一个基于 OLAP 提供者的新的数据透视表高速缓存，然后基于该高速缓存创建一个新的数据透视表报表。
Set objPC = _
ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
With objPC
.Connection = _
"OLEDB;Provider=MSOLAP;Location=srvdata;Initial Catalog=National"
.MaintainConnection = True
End With
Set objPT = Worksheets(1).PivotTables _
.Add(PivotCache:=objPC, _
TableDestination:=Range("A1"))
本示例在活动工作簿的 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.Record
setSet rstRecordset.ActiveConnection = cnnConn
rstRecordset.Open cmdCommand
' 创建数据透视表高速缓存和报表。
Set objPivotCache = ActiveWorkbook.PivotCaches.Add( _
SourceType:=xlExternal)
Set objPivotCache.Recordset = rstRecordset
ActiveSheet.PivotTables.Add _
PivotCache:=objPivotCache, _
TableDestination:=Range("A3"), _
TableName:="Performance"
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
适用于
PublishObjects集合对象
描述
创建一个对象，该对象代表保存在 Web 页上的文档中的项目。当对Microsoft Excel 中的文档进行了一些自动修订时，这些对象可帮助随后对Web 页进行的更新。返回一个 PublishObject 对象。
句法
expression.Add(SourceType, Filename, Sheet, Source, HtmlType, DivID，Title)
expression
一个返回 PublishObjects 对象的表达式。
SourceType
必选。XlSourceType 类型。标识源对象，可以为下表所列的 XlSourceType常量之一。
| 常量 | 说明 |
| xlSourceAutoFilter | 自动筛选区域 |
| xlSourceChart | 图表 |
| xlSourcePivotTable | 数据透视表报表 |
| xlSourcePrintArea | 用于打印的选定单元格区域 |
| xlSourceQuery | 查询表（外部数据区域） |
| xlSourceRange | 单元格区域 |
| xlSourceSheet | 整张工作表 |
Filename
必选，String 类型。用于保存源对象的 URL（企业内部网或 Web 上）或路径（本地或网络上）。
Sheet
可选，Variant 类型。保存作为Web 页的工作表的名称。
Source
可选，Variant 类型。它是用来标识数据项的唯一名称，而这些数据项的SourceType 参数等于下列常量之一：xlSourceAutoFilter，xlSourceChart，xlSourcePivotTable，xlSourcePrintArea，xlSourceQuery 或xlSourceRange。如果 SourceType 等于 xlSourceRange，则 Source 指定的是一个区域，该区域可以是一个已定义的名称。如果 SourceType 等于xlSourceChart，xlSourcePivotTable 或 xlSourceQuery，则 Source 指定的是图表、数据透视表报表或查询表的名称。
HtmlType
可选，Variant 类型。用于指定数据项是保存为交互式的 Microsoft OfficeWeb 组件还是静态文本和图像。可以为下表所列的 XlHTMLType 常量之一。
| 常量 | 说明 |
| xlHTMLCalc | 电子表格组件 |
| xlHTMLChart | 图表组件 |
| xlHTMLList | 数据透视表组件 |
| xlHTMLStatic | 静态（非交互式）HTML |
DivID
可选，Variant 类型。在HTML DIV标记中使用的唯一标识符，它用于标识Web页上的项。
Title
可选，Variant类型。Web页的标题。
示例
本示例将活动工作簿的First Quarter工作表的D5：D9范围存储到“Stockreport.htm”Web页上。可以看到电子数据表控件增强了Web页的交互性。
ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
FileName:= "\\Server2\Q1\Stockreport.htm", _
Sheet:= "First Quarter", _
Source:= "D5:D9"; _
HTMLType:=xlHTMLCalc).Publish
适用于
QuaryTables集合对象
描述
新建一个查询表。返回一个 QueryTable 对象，该对象代表新建的查询表。
句法
expression.Add(Connection, Destination, Sql)
expression
必选。该表达式返回一个 QueryTables 对象。
Connection
Variant 类型，必选。查询表的数据源，可为下列之一：
* 一个包含 OLE DB 或 ODBC 连接串的字符串。ODBC 连接串的形式为“ODBC;
* 一个 QueryTable 对象，该对象表示查询信息的复制来源，包括连接字符串和 SQL 文本，但不包括 Destination 区域。如果指定 QueryTable对象则忽略 Sql 参数。
* 一个 ADO 或 DAO RecordSet 对象。可从 DAO或ADO记录集中读取数据。Microsoft Excel 将记录集保留到删除该查询表或者 SQL 连接发生更改时为止。不能对查询结果表进行编辑。
* 一个 Web 查询，是“URL;
* 数据查找程序。“FINDER;<查找数据文件路径>”形式的字符串，其中“FINDER;”为固定格式，不作本地化。字符串的后半部分为数据查找程序文件的路径和名称（.dqy 或 *.iqy）。使用 Add 方法时将读取该文件，然后，对 Connection 属性的调用将返回以“ODBC;”或者“URL;”开头的适当字符串，视具体的情况而定。
* 一个文本文件。形式为“TEXT;<文本文件路径和名称>”形式的字符串，其中TEXT 是必需的，但不做本地化。
Destination
Range 类型，必选。查询表目标区域左上角单元格（查询结果表放置的区域）。目标区域必须包含在 expression 指定的 QueryTables 对象的工作表上。
Sql
Variant 类型，可选。在 ODBC 数据源上运行的 SQL 查询串。当使用的数据源为 ODBC 数据源时该参数可选（如果不在此处指定该参数，则应该在查询表刷新之前使用查询表的 Sql 属性进行设置）。当将 QueryTable 对象或者文本文件，或是 ADO 或 DAO Recordset 对象指定为数据源时不能使用该参数。
说明
由本方法创建的查询将在调用 Refresh 方法后执行。
示例
本示例基于 ADO 记录集创建一个查询表。为了后向兼容，本示例保留了已有的列排序和筛选设置以及布局信息。
Dim cnnConnect As ADODB.Connection
Dim rstRecordset As ADODB.Recordset
Set cnnConnect = New ADODB.Connection
cnnConnect.Open "Provider=SQLOLEDB;" & _
"Data Source=srvdata;" & _
"User ID=testac;Password=4me2no;"
Set rstRecordset = New ADODB.Recordset
rstRecordset.Open _
Source:="Select Name, Quantity, Price From Products", _
ActiveConnection:=cnnConnect,
CursorType:=adOpenDynamic, _
LockType:=adLockReadOnly, _
Options:=adCmdText
With ActiveSheet.QueryTables.Add( _
Connection:=rstRecordset, _
Destination:=Range("A1"))
.Name = "Contact List"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
本示例向新的查询表中导入固定宽度的文本文件。该文本文件的第一列为 5个字符宽，作为文本导入。第二列为 4 个字符宽，被跳过。其余部分则导入第三列中，并对其应用常用格式。
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables.Add( _
Connection := "TEXT;C:\My Documents\19980331.txt",
Destination := shFirstQtr.Cells(1,1))
With qtQtrResults
.TextFileParsingType = xlFixedWidth
.TextFileFixedColumnWidths := Array(5,4)
.TextFileColumnDataTypes := _
Array(xlTextFormat, xlSkipColumn, xlGeneralFormat)
.Refresh
End With
本示例在活动工作表上新建查询表。
sqlstring = "select 96Sales.totals from 96Sales where profit < 5"
connstring = _
"ODBC;DSN=96SalesData;UID=Rep21;PWD=NUyHwYQI;Database=96Sales"
With ActiveSheet.QueryTables.Add(Connection:=connstring, _
Destination:=Range("B1"), Sql:=sqlstring)
.Refresh
End With
适用于
RecentFiles集合对象
描述
向最近使用的文件列表中添加文件。返回一个RecentFile 对象。
句法
object.Add(Name)
object
必选。该表达式返回一个RecentFile对象。
Name
String 类型，必选。文件名。
示例
本示例将文件“Oscar.xls”添加到最近使用的文件列表中。
Application.RecentFiles.Add Name:="oscar.xls"
适用于
Scenarios集合对象
描述
新建方案并将其添加到当前工作表的可用方案列表中。返回一个Scenario 对象。
句法
expression.Add(Name, ChangingCells, Values, Comment, Locked, Hidden)
expression
必选。该表达式返回 Scenarios 对象。
Name
String 类型，必选。方案名称。
ChangingCells
Variant 类型，必选。指向方案的可变单元格的 Range 对象。
Values
Variant 类型，可选。包含 ChangingCells 中指定单元格的方案值的数组。如果省略本参数，就假定方案值是 ChangingCells 单元格中的当前值。
Comment
Variant 类型，可选。指定方案的注释文字。添加新方案时，作者的名字和日期自动添加在注释文字的开始部分。
Locked
Variant 类型，可选。若指定为 True，则锁定方案以防修改，默认值为 True。
Hidden
Variant 类型，可选。若指定为 True，则隐藏方案，默认值为 False。
说明
方案名必须是唯一的。如果试图用已被使用的名称创建方案， MicrosoftExcel 将产生一个错误。
示例
本示例向工作表“Sheet1”添加新方案。
Worksheets("Sheet1").Scenarios.Add Name:="Best Case", _
ChangingCells:=Worksheets("Sheet1").Range("A1:A4"), _
Values:=Array(23, 5, 6, 21), _
Comment:="Most favorable outcome."
适用于
SeriesCollection集合对象
描述
向 SeriesCollection 集合添加一个或若干新数据系列。
句法
expression.Add(Source, Rowcol, SeriesLabels, CategoryLabels, Replace)
expression
必选。该表达式返回一个SeriesCollection 对象。
Source
Variant 类型，必选。新数据，可用 Range 对象或数据点数组指定。
Rowcol
Variant 类型，可选。指定数据点的值是处于区域的行中还是列中。可为下列 XlRowCol 常量之一： xlRows 或 xlColumns。默认值为 xlColumns。
SeriesLabels
Variant 类型，可选。如果 Source 为数组，则忽略本参数。若指定为 True，表示区域中第一行或第一列包含数据系列的名称。若指定为 False，表示第一行或第一列包含数据系列的第一个数据点。如果省略本参数， MicrosoftExcel 就试图从第一行或第一列中的内容判断系列名称的位置。
CategoryLabels
Variant 类型，可选。如果 Source 为数组，则忽略本参数。若指定为 True，表示区域中第一行或第一列包含分类的名称。若指定为 False，表示第一行或第一列包含数据系列的第一个数据点。如果省略本参数， Microsoft Excel就试图从第一行或第一列中的内容判断分类名称的位置。
Replace
Variant 类型，可选。如果 CategoryLabels 为 True 且 Replace 为 True，那么指定的分类将取代当前系列中存在的分类。如果 Replace 为 False，现存的分类将保留。默认值为 False。
说明
此方法不适用于数据透视报表。
另见
示例
本示例在图表“Chart1”中新建数据系列。新系列的数据源位于工作表 Sheet1的单元格区域“B1:B10”中。
Charts("Chart1").SeriesCollection.Add _
Source:=ActiveWorkbook.Worksheets("Sheet1").Range("B1:B10")
本示例在工作表“Sheet1”上的内嵌图表中新建数据系列。Worksheets("Sheet1").ChartObjects(1).Activate
ActiveChart.SeriesCollection.Add _
Source:=Worksheets("Sheet1").Range("B1:B10")
适用于
Sheets集合对象
描述
新建工作表、图表或宏表。
句法
expression.Add(Before, After, Count, Type)
expression
必选。该表达式返回 Sheets 对象。
Before
Variant 类型，可选。指定工作表对象，新建的工作表将置于此工作表之前。
After
Variant 类型，可选。指定工作表对象，新建的工作表将置于此工作表之后。
Count
Variant 类型，可选。要创建的工作表的数目，默认值为一。
Type
Variant 类型，可选。指定工作表类型。可为下列 XlSheetType 常量之一：xlWorksheet，xlChart，xlExcel4MacroSheet 或 xlExcel4IntlMacroSheet。默认值为 xlWorksheet。
说明
如果 Before 和 After 两者均省略，新建的工作表将插入到活动工作表之前。
示例
本示例新建工作表，并将其插入到活动工作簿中最后一个工作表之前。
ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count)
适用于
Styles集合对象
描述
新建样式并将其添加到当前工作簿的可用样式列表中。返回一个Style 对象。
句法
expression.Add(Name, BasedOn)
expression
必选。该表达式返回一个Styles 对象。
Name
String 类型，必选。新样式的名称。
BasedOn
Variant 类型，可选。指向某单元格的 Range 对象，新样式即基于该单元格生成。如果省略本参数，就基于“常规” 样式建立新样式。
说明
如果指定名称的样式已存在，本方法将基于 BasedOn 所指定的单元格重新定义该已存在的样式。下例基于活动的单元格重新定义了“常规”样式。ActiveWorkbook.Styles.Add
Name := "Normal", _
BasedOn := ActiveCell
示例
本示例基于工作表“Sheet1”中的单元格“A1”定义新样式。
Worksheets("Sheet1").Activate
ActiveWorkbook.Styles.Add Name:="myNewStyle", _
BasedOn:=ActiveSheet.Range("A1")
本示例定义仅包括字体属性的新样式。
With ActiveWorkbook.Styles.Add(Name:="theNewStyle")
.IncludeNumber = False
.IncludeFont = True
.IncludeAlignment = False
.IncludeBorder = False
.IncludePatterns = False
.IncludeProtection = False
.Font.Name = "Arial"
.Font.Size = 18
End With
适用于
Trendlines集合对象
描述
新建趋势线。返回 Trendline 对象。
句法
expression.Add(Type,Order,Period,Forward,Backward,Intercept,DisplayEquation,DisplayRSquared, Name)
expression
必选。该表达式返回一个Trendlines 对象。
Type
Variant 类型，可选。趋势线类型。可为下列 XlTrendlineType 常量之一：xlLinear、 xlLogarithmic、 xlExponential、 xlPolynomial、 xlMovingAvg或 xlPower。默认值为 xlLinear。
Order
Variant 类型，可选。如果 Type 为 xlPolynomial，本参数为必选参数。趋势线顺序，必须为从 2 到 6 的整数（包括 2 和 6）。
Period
Variant 类型，可选。如果 Type 为 xlMovingAvg，本参数为必选参数。趋势线周期，必须为大于 1，小于将添加趋势线的数据系列中的数据点个数的整数。
Forward
Variant 类型，可选。趋势线向前延伸的周期数目（或散点图中的单位个数）。
Backward
Variant 类型，可选。趋势线向后延伸的周期数目（或散点图中的单位个数）。
Intercept
Variant 类型，可选。趋势线的截距。如果省略本参数，就用回归分析自动设置截距。DisplayEquation
Variant 类型，可选。若指定为 True，就在图表中显示趋势线的方程式（与R-squared 值显示在同一数据标志中）。默认值为 False。
DisplayRSquared
Variant 类型，可选。若指定为 True，就在图表中显示趋势线的 R-squared值（与方程式显示在同一数据标志中）。默认值为 False。
Name
Variant 类型，可选。以文字形式指定趋势线的名称。如果省略本参数，由Microsoft Excel 自动生成名称。
另见
示例
本示例在图表“Chart1”中新建线性趋势线。
ActiveWorkbook.Charts("Chart1").SeriesCollection(1).Trendlines.Add
适用于
Validation对象
描述
在指定区域内添加数据有效性检验。
句法
expression.Add(Type, AlertStyle, Operator, Formula1,Formula2)
expression
必选。该表达式返回一个Validation 对象。
Type
Long 类型，必选。有效性检验类型，可为下列 XlDVType 常量之一：xlValidateCustom、xlValidateDate、xlValidateDecimal、xlValidateInputOnly、xlValidateList、xlValidateTextLength、xlValidateTime或xlValidateWholeNumber。
AlertStyle
Variant 类型，可选。有效性检验警告样式，可为下列 XlDVAlertStyle 常量之一：xlValidAlertInformation、xlValidAlertStop 或xlValidAlertWarning。
Operator
Variant 类型，可选。有效数据操作符。可为下列XlFormatConditionOperator 常量之一： xlBetween, xlEqual, xlGreater,xlGreaterEqual, xlLess, xlLessEqual, xlNotBetween或者xlNotEqual。
Formula1
Variant 类型，可选。有效数据方程式的第一部分。
Formula2
Variant 类型，可选。当 Operator 参数是 xlBetween 或 xlNotBetween 时，有效数据方程式的第二部分(否则本参数将忽略)。
说明
Add 方法所要求的参数依有效性检验的类型而定，如下表所示。
| 有效性检验类型 | 参数 |
| xlValidateCustom | Formula1 必选，忽略 Formula2。Formula1 必须包含这样一个表达式，数据项有效时该表达式取值为 True，而数据项无效时取值为 False。 |
| xlInputOnly | 能使用 AlertStyle、Formula1 或 Formula2 参数。 |
| xlValidateList | Formula1 必选，忽略 Formula2。Formula1 必须包含一个以逗号分隔的取值列表，或指向此列表的工作表。 |
| xlValidateWholeNumber, xlValidateDate, xlValidateDecimal, xlValidateTextLength 或 xlValidateTime | 必须指定 Formula1 或 Formula2 之一，或两者均指定。 |
另见
CircleInvalid方法， ClearCircles方法， ErrorMessage属性， ErrorTitle属性， IgnoreBlank属性， InCellDropdown属性， InputMessage属性， InputTitle属性， Validation属性
示例
本示例向单元格“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
适用于
VPageBreaks集合对象
描述
添加垂直分页符。返回一个VPageBreak 对象。
句法
object.Add(Before)
object
必选。该表达式返回一个VPageBreaks 对象。
Before
Object 类型，必选。Range 对象。新的分页符就添加到本参数所指定的区域左方。
示例
本示例在单元格“F25”上方添加水平分页符，在其左方添加垂直分页符。
With Worksheets(1)
.HPageBreaks.Add .Range("F25")
.VPageBreaks.Add .Range("F25")
End With
适用于
Workbooks集合对象
描述
新建工作簿。新建的工作簿将成为活动工作簿。返回一个Workbook 对象。
句法
expression.Add(Template)
expression
必选。该表达式返回一个Workbooks 对象。
Template
Variant 类型，可选。指出如何创建工作簿。如果本参数为指定一现存Microsoft Excel 文件名的字符串，那么创建新工作簿将以该文件作为模板。如果本参数为常量，新工作簿将包含指定类型的单个工作表，可为下列XlWBATemplate 常量之一：xlWBATChart，xlWBATExcel4IntlMacroSheet，xlWBATExcel4MacroSheet或xlWBATWorksheet。如果省略本参数，Microsoft Excel 将创建包含一定数目的空白工作表的工作簿（该数目由SheetsInNewWorkbook属性设置）。
说明
如果 Template 参数指定的是文件，则该文件名可包含路径。
另见
ActiveWorkbook属性， SheetsInNewWorkbook属性
示例
本示例新建工作簿。
Workbooks.Add
适用于
Worksheets集合对象
描述
新建工作表。新建的工作表将成为活动工作表。返回一个Worksheet 对象。
句法
expression.Add(Before, After, Count, Type)
expression
必选。该表达式返回一个Worksheets 对象。
Before
Variant 类型，可选。指定工作表对象，新建的工作表将置于此工作表之前。
After
Variant 类型，可选。指定工作表对象，新建的工作表将置于此工作表之后。
Count
Variant 类型，可选。要创建的工作表的数目，默认值为一。
Type
Variant 类型，可选。工作表类型。可为下列 XlSheetType 常量之一：xlWorksheet，xlExcel4MacroSheet或xlExcel4IntlMacroSheet。默认值为xlWorksheet。
说明
如果 Before 和 After 两者均省略，新建的工作表将插入到活动工作表之前。
示例
本示例新建工作表，并将其插入到活动工作表之前。
ActiveWorkbook.Worksheets.Add
本示例新建工作表，并将其插入到活动工作簿中最后一个工作表之后。
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
适用于
Shapes集合对象
描述
创建没有边框的标注。返回 Shape 对象，该对象代表新建的标注。
句法
expression.AddCallout(Type, Left, Top, Width, Height)
expression
必选。该表达式返回 Shapes 对象。
Type
Long 类型，必选。标注线的类型，可为下列 MsoCalloutType 常量之一：msoCalloutOne（垂直方向或水平方向的单线段标注线）、msoCalloutTwo（任意方向的单线段标注线）、msoCalloutThree（双线段标注线）或msoCalloutFour（三线段标注线）。
Left, Top
Single 类型，必选。相对于文档的左上角，以磅为单位给出标注所占矩形的左上角位置。
Width, Height
Single 类型，必选。以磅为单位指定标注所占矩形的宽度和高度。
说明
用 AddShape 方法可插入更多类型的标注。
示例
本示例向 myDocument 添加了带有任意方向单线段标注线的无边框的标注，并将其角度设置为 30 度。
Set myDocument = Worksheets(1)
myDocument.Shapes.AddCallout(msoCalloutTwo, _
50, 50, 200, 100).Callout.Angle = msoCalloutAngle30
适用于
Application对象
描述
向图表的可用自动套用格式列表中添加自定义的自动套用格式。
句法
expression.AddChartAutoFormat(Chart, Name, Description)
expression
必选。该表达式返回一个 Application 对象。
Chart
Chart 类型，必选。新的图表自动套用格式，即指该图表中包含的格式。
Name
String 类型，必选。自动套用格式的名称。
Description
String 类型，可选。自定义自动套用格式的说明。
另见
DeleteChartAutoformat方法， SetDefaultChart方法
示例
本示例以图表“Chart1”为样板添加新的自动套用格式。
Application.AddChartAutoFormat _
Chart:=Charts("Chart1"), Name:="Presentation Chart"
适用于
Range对象
描述
为区域添加批注。
句法
expression.AddComment(Text)
expression
必选。该表达式返回一个 Range 对象。
Text
Variant 类型，可选。批注文字。
示例
本示例为第一张工作表中 E5 单元格添加批注。
Worksheets(1).Range("E5").AddComment "Current Sales"
适用于
Shapes 集合对象
描述
创建连接符。返回 Shape 对象，该对象代表新建的连接符，但它并不连接任何对象。可用 BeginConnect 方法和 EndConnect 方法将连接符的起点和终点连接到文档中的其它形状。
句法
expression.AddConnector(Type, BeginX, BeginY, EndX, EndY)
expression
必选。该表达式返回 Shapes 对象。
Type
Long 类型，必选。连接符的类型。可为下列 MsoConnectorType 常量之一：msoConnectorCurve、msoConnectorElbow 或 msoConnectorStraight。
BeginX, BeginY
Single 类型，必选。相对于文档的左上角，以磅为单位给出连接符的起点位置。
EndX, EndY
Single 类型，必选。相对于文档的左上角，以磅为单位给出连接符的终点位置。
说明
把连接符连接到形状上时，连接符的大小和位置将自动作必要的调整。因此，如果要将连接符连接到其它形状上的话，添加连接符时所指定的初始大小和位置就是无意义的。
示例
本示例向 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, 100, 100)
With c.ConnectorFormat
.BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
.EndConnect ConnectedShape:=secondRect, ConnectionSite:=1
c.RerouteConnections
End With
适用于
Shapes集合对象
描述
创建贝塞尔曲线。返回 Shape 对象，该对象代表新建的曲线。
句法
expression.AddCurve(SafeArrayOfPoints)
expression
必选。该表达式返回 Shapes 对象。
SafeArrayOfPoints
Variant 类型，必选。用于指定曲线上的顶点和控制点的坐标对数组。所指定的第一个点应是起始顶点，其次两个点应是第一个贝塞尔线段的控制点。然后，对于曲线的每个贝塞尔线段，顺序指定一个顶点和两个控制点。所指定的最后一个点应是曲线的终止顶点。请注意，所指定的点的数目必须是 3n + 1 个，其中 n 为曲线中贝塞尔线段的数目。
示例
下例向 myDocument 添加了一条两线段的贝塞尔曲线。
Dim pts(1 To 7, 1 To 2) As Single
pts(1, 1) = 0
pts(1, 2) = 0
pts(2, 1) = 72
pts(2, 2) = 72
pts(3, 1) = 100
pts(3, 2) = 40
pts(4, 1) = 20
pts(4, 2) = 50
pts(5, 1) = 90
pts(5, 2) = 120
pts(6, 1) = 60
pts(6, 2) = 30
pts(7, 1) = 150
pts(7, 2) = 90
Set myDocument = Worksheets(1)
myDocument.Shapes.AddCurve pts
适用于
Application对象
描述
为自定义自动填充和/或自定义排序添加自定义序列。
句法
expression.AddCustomList(ListArray, ByRow)
expression
必选。该表达式返回一个 Application 对象。
ListArray
Variant 类型，必选。指定数据源，可为一个字符串数组或者 Range 对象。
ByRow
Variant 类型，可选。仅当 ListArray 为 Range 对象时使用。如果为 True使用指定区域中的每一行创建自定义序列；如果为 False 使用指定区域中的每一列创建自定义序列。如果省略该参数， 并且区域中的行数比列数要多（或者行数与列数相等），Microsoft Excel 使用指定区域中的每一列创建自定义序列。如果省略该参数， 并且区域中的列数比行数要多，MicrosoftExcel 使用指定区域中的每一行创建自定义序列。
说明
如果要添加的序列已经存在则本方法不起作用。
另见
DeleteCustomList 方法， GetCustomListContents方法， GetCustomListNum方法
示例
本示例将一个字符串数组添加到自定义序列中。
Application.AddCustomList Array("cogs", "sprockets", _
"widgets", "gizmos")
适用于
PivotLayout对象，PivotTable对象
描述
向数据透视表报表或数据透视图报表中添加行字段、列字段和页字段。
句法
expression.AddFields(RowFields,ColumnFields,PageFields,AddToTable,AppendField)
expression
必选。该表达式返回一个 PivotTable 对象。
RowFields
Variant 类型，可选。指定要作为行添加或要添加到分类坐标轴中的字段名（或者字段名数组）。
ColumnFields
Variant 类型，可选。指定要作为列添加或要添加到系列坐标轴中的字段名（或者字段名数组）。
PageFields
Variant 类型，可选。指定要作为页添加或要添加到页区域中的字段名（或者字段名数组）。
AddToTable
可选，Variant 类型。仅应用于数据透视表报表。为 True 时，将指定的字段加入到报表中（不替换现有字段）。为 False 时，用新的字段替换已有的字段。默认值为 False。
AppendField
Boolean 类型，可选。仅用于数据透视表报表。本参数为 True 时可往报表中添加字段（不替换任何现有字段），为 False 则以新字段替换现有字段。默认值为 True。
说明
必须指定其中某个字段参数。
字段名指定由 PivotField 对象的 SourceName 属性返回的唯一名称。
这个方法对 OLAP 数据源无效。
另见
ColumnFields 属性， DataFields 属性， HiddenFields属性， PageFields属性， RowFields 属性， VisibleFields 属性
示例
本示例以 Status 字段和 Closed_By 字段替换“Sheet1” 的第一个数据透视表的现有列字段。
Worksheets("Sheet1").PivotTables(1).AddFields _
ColumnFields:=Array("Status", "Closed_By")
适用于
Shapes集合对象
描述
创建一个 Microsoft Excel 控件将返回一个 Shape 对象，该对象代表新建的控件。
句法
expression.AddFormControl(Type, Left, Top, Width, Height)
expression
必选。该表达式返回一个 Shapes 对象。
Type
Long 类型，必选。 Microsoft Excel 控件类型。可为下列 XlFormControl 常量之一：xlButtonControl，xlCheckBox，xlDropDown，xlEditBox，xlGroupBox，xlLabel，xlListBox，xlOptionButton，xlScrollBar或 lSpinner。不能在工作表中创建编辑框。
Left, Top
Long 类型，必选。新对象的初始坐标（以磅为单位），相对于工作表 A1 单元格的左上角或图表的左上角。
Width, Height
Long类型，必选。新对象的初始大小，以磅为单位。
说明
对 OLEObjects 集合使用 AddOLEObject 方法或者 Add 方法可创建一个ActiveX 控件。
示例
本示例为第一个工作表添加列表框，并对该列表框的填充区域进行设置。
With Worksheets(1)
Set lb = .Shapes.AddFormControl(xlListBox, 100, 10, 100, 100)
lb.ControlFormat.ListFillRange = "A1:A10"
End With
描述
代表已调入或尚未调入的单个加载宏。AddIn 对象是 d 集合的成员。AddIns 集合包含 Microsoft Excel 的所有可用加载宏的列表，无论这些加载宏是否已经调入。此列表相当于“工具”菜单中的“加载宏”对话框内显示的加载宏列表。
使用Addin对象
可用 AddIns(index) （其中 index 为加载宏标题或编号）返回单个 AddIn对象。下例安装“分析工具库”加载宏。
AddIns("analysis toolpak").Installed = True
请勿混淆加载宏标题（出现在“加载宏”对话框中的标题）与加载宏名称（加载宏的文件名）。必须严格按照“加载宏”对话框中的标题拼写加载宏标题，但不必匹配大小写。
加载宏编号代表加载宏在“加载宏”对话框内“当前加载宏”列表框中的位置。下例创建可用加载宏的指定属性的列表。
With Worksheets("sheet1")
.Rows(1).Font.Bold = True
.Range("a1:d1").Value = _
Array("Name", "Full Name", "Title", "Installed")
For i = 1 To AddIns.Count
.Cells(i + 1, 1) = AddIns(i).Name
.Cells(i + 1, 2) = AddIns(i).FullName
.Cells(i + 1, 3) = AddIns(i).Title
.Cells(i + 1, 4) = AddIns(i).Installed
Next
.Range("a1").CurrentRegion.Columns.AutoFit
End With
说明
Add 方法将加载宏添加到当前加载宏列表中，但并不调入该加载宏。可将该加载宏的 Installed 属性设置为 True 以调入该加载宏。若要安装未出现在当前加载宏列表中的加载宏，必须首先使用 Add 方法，然后设置Installed 属性。这可用一个步骤完成，如下例所示（注意 Add 方法使用的是加载宏的名称而非标题）。
AddIns.Add("generic.xll").Installed = True
可用 Workbooks(index) （其中 index 为加载宏文件名而非标题）返回对某工作簿的引用，该工作簿对应于某一已加载的加载宏。因为加载宏并不像常规工作簿那样出现在 Workbooks 集合中，所以必须使用其文件名来指定。本示例将变量 wb 设置为“Myaddin.xla”的工作簿。
Set wb = Workbooks("myaddin.xla")
下例将变量 wb 设置为“分析工具库”加载宏所在的工作簿。
Set wb = Workbooks(AddIns("analysis toolpak").Name)
如果 Installed 属性返回 True，但调用加载宏中的函数仍旧失败，那么可能并未真正地加载了该加载宏。这是因为 Addin 对象代表了加载宏的存在及安装状态，但并不代表加载宏工作簿中的实际内容。为保证已安装的加载宏被调入，应当打开该加载宏工作簿。下例中，如果加载宏“My Addin”未出现在 Workbooks 集合中，就打开该加载宏的工作簿。
On Error Resume Next' turn off error checking
Set wbMyAddin = Workbooks(Addins("My Addin").Name)
lastError = Err
On Error Goto 0' restore error checking
If lastError <> 0 Then
' the add-in workbook isn't currently open. Manually open it.
Set wbMyAddin = Workbooks.Open(Addins("My Addin").FullName)
End If
属性
Application 属性，Creator 属性，FullName 属性，Installed 属性，Name 属性，Parent 属性，Path 属性
适用于
Range对象，Style对象
描述
单元格对齐方式为行或列均匀分布时，若本属性为True则文本自动缩进。Variant类型，可读写。
说明
要将文本对齐方式设为均匀分布，可以在Orientation属性值为xlVertical时将VerticalAlignment 属性设为xlVAlignDistributed，或者在Orientation属性值为xlHorizontal时将HorizontalAlignment 属性设为xlHAlignDistributed。
另见
HorizontalAlignment 属性， Orientation属性， VerticalAlignment 属性
示例
本示例将Sheet1的A1单元格的水平对齐设为均匀分布，并将文本缩进。
With Worksheets("Sheet1").Range("A1")
.HorizontalAlignment = xlHAlignDistributed
.AddIndent = True
End With
适用于
Workbok 对象
描述
当工作簿作为加载宏载入时产生此事件。
句法
Private Sub Workbook_AddinInstall()
另见
AddinUninstall事件，WorkbookAddinInstall事件，WorkbookAddinUninstall事件
示例
本示例当指定工作簿作为加载宏载入时将一个控件添加到标准工具栏中。
Private Sub Workbook_AddinInstall()
With Application.Commandbars("Standard").Controls.Add
.Caption = "The AddIn's menu item"
.OnAction = "'ThisAddin.xls'!Amacro"
End With
End Sub
描述
AddIn 对象的集合，该集合代表 Microsoft Excel 的所有可用加载宏，无论这些加载宏是否已经调入。此集合相当于“工具”菜单中的“加载宏”对话框内显示的加载宏列表。
使用Addins集合对象可用 AddIns 方法返回 AddIns 集合。下例创建所有可用加载宏的名称和调入状态的列表。
Sub DisplayAddIns()
Worksheets("Sheet1").Activate
rw = 1
For Each ad In Application.AddIns
Worksheets("Sheet1").Cells(rw, 1) = ad.Name
Worksheets("Sheet1").Cells(rw, 2) = ad.Installed
rw = rw + 1
Next
End Sub
可用 Add 方法将加载宏添加到当前加载宏列表中， Add 方法向该列表添加加载宏，但并不调入该加载宏。可将该加载宏的 Installed 属性设置为True 以调入该加载宏。若要安装未出现在当前加载宏列表中的加载宏，必须首先使用 Add 方法，然后设置 Installed 属性。这可用一个步骤完成，如下例所示（注意 Add 方法使用的是加载宏的名称而非标题）。
AddIns.Add("generic.xll").Installed = True
可用 AddIns(index) （其中 index 为加载宏标题或索引编号）返回单个AddIn 对象。下例安装“Analysis Toolpak”加载宏。
AddIns("analysis toolpak ").Installed = True
请勿混淆加载宏标题（出现在“加载宏”对话框中的标题）与加载宏名称（加载宏的文件名）。必须严格按照“加载宏”对话框中的标题书写加载宏标题，但不必匹配大小写。
属性
Application 属性，Count 属性，Creator 属性，Item 属性(AddIns 集合)，Parent 属性
方法
Add 方法(AddIns 集合)
适用于
Application 对象
描述
返回一个 AddIns 集合，此集合代表在“加载宏”对话框（“工具”菜单）中列出的全部加载宏。只读。
说明
在不使用对象识别符的情况下使用这种方法等价于 Application.Addins。
示例
本示例显示“分析工具库”加载宏的状态。注意在 AddIns 集合中用于索引的字符串是加载宏的标题，而不是加载宏的文件名。
If AddIns("Analysis ToolPak").Installed = True Then
MsgBox "Analysis ToolPak add-in is installed"
Else
MsgBox "Analysis ToolPak add-in is not installed"
End If
适用于
Workbook 对象
描述
当工作簿作为加载宏卸载时产生此事件。
句法
Private Sub Workbook_AddinUninstall()
说明
卸载加载宏并不同时关闭该加载宏。
示例
本示例当指定工作簿作为加载宏卸载时将 Microsoft Excel 最小化。
Private Sub Workbook_AddinUninstall()
Application.WindowState = xlMinimized
End Sub
适用于
ControlFormat 对象
描述
为列表框或组合框添加数据项。
句法
expression.AddItem(Text, Index)
expression
必选。该表达式返回一个 ControlFormat 对象。
Text
String 类型，必选。要添加的文字。
Index
Variant 类型，可选。新输入项的输入位置。如果列表中数据项数目少于指定索引号，则从列表末尾开始添加多个空数据项到指定索引号的位置。如果省略该参数，则将此数据项添加到现有列表中。
说明
使用本方法可清除由 ListFillRange 属性指定的任何区域。
另见
示例
本示例创建一个列表框并用 1 到 10 的数字对其进行填充。
With Worksheets(1)
Set lb = .Shapes.AddFormControl(xlListBox, 100, 10, 100, 100)
For x = 1 To 10
lb.ControlFormat.AddItem x
Next
End With
适用于
Shapes 集合对象
描述
创建标志。返回 Shape 对象，该对象代表新建的标志。
句法
expression.AddLabel(Orientation, Left, Top, Width, Height)
expression
必选。该表达式返回 Shapes 对象。
Orientation
Long类型，必选。标志内文字的方向。可为下列MsoTextOrientation常量之一：msoTextOrientationDownward,msoTextOrientationHorizontal,msoTextOrientationHorizontalRotatedFarEast,msoTextOrientationMixe,msoTextOrientationUpward，msoTextOrientationVertical或msoTextOrientationVerticalFarEast。由于选择或安装的支持语言（如美国英语）的问题，有一些常量可能无法使用。
Left, Top
Single 类型，必选。相对于文档的左上角，以磅为单位给出标志的左上角位置。
Width, Height
Single 类型，必选。以磅为单位指定标志的宽度和高度。
示例
本示例向 myDocument 添加垂直的标志，该标志内的文字为“Test Label”。
Set myDocument = Worksheets(1)
myDocument.Shapes.AddLabel(msoTextOrientationVertical, _100, 100, 60, 150) _
.TextFrame.Characters.Text = "Test Label"
适用于
Shapes 集合对象
描述
创建直线。返回 Shape 对象，该对象代表新建的直线。
句法
expression.AddLine(BeginX, BeginY, EndX, EndY)
expression
必选。该表达式返回 Shapes 对象。
BeginX, BeginY
Single 类型，必选。相对于文档的左上角，以磅为单位给出直线的起点位置。
EndX, EndY
Single 类型，必选。相对于文档的左上角，以磅为单位给出直线的终点位置。
示例
本示例向 myDocument 添加兰色的虚线。
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddLine(10, 10, 250, 250).Line
.DashStyle = msoLineDashDotDot
.ForeColor.RGB = RGB(50, 0, 128)
End With
适用于
FreeformBuilder 对象
描述
向正在创建的任意多边形尾部插入新线段，并添加用于定义该线段的节点。对于正在创建的任意多边形，使用本方法添加节点的次数不限。添加完所需的节点后，可用 ConvertToShape 方法创建刚刚定义的任意多边形。如果要在任意多边形创建完成之后再添加节点，可用 ShapeNodes 集合的Insert 方法进行。
句法
expression.AddNodes(SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)
expression
必选。该表达式返回 FreeformBuilder 对象。
SegmentType
Long 类型，必选。要添加的线段的类型。可为下列 MsoSegmentType 常量之一：msoSegmentCurve 或 msoSegmentLine。
EditingType
Long 类型，必选。顶点的编辑属性。可为下列 MsoEditingType 常量之一：msoEditingAuto或msoEditingCorner（不能是msoEditingSmooth或msoEditingSymmetric）。如果SegmentType为msoSegmentLine，那么EditingType 就必须是
msoEditingAuto。
X1
Single 类型，必选。如果新线段的 EditingType 为 msoEditingAuto，那么本参数就以磅为单位指定文档的左上角与新线段的终点之间的水平距离。如果新节点的 EditingType 为 msoEditingCorner，那么本参数就以磅为单位指定文档的左上角与新线段的第一个控制点之间的水平距离。
Y1
Single 类型，必选。如果新线段的 EditingType 为 msoEditingAuto，那么本参数就以磅为单位指定文档的左上角与新线段的终点之间的垂直距离。如果新节点的 EditingType 为 msoEditingCorner，那么本参数就以磅为单位指定文档的左上角与新线段的第一个控制点之间的垂直距离。
X2
Single 类型，可选。如果新线段的 EditingType 为 msoEditingCorner，那么本参数就以磅为单位指定文档的左上角与新线段的第二个控制点之间的水平距离。如果新线段的 EditingType 为 msoEditingAuto，那么请不要指定本参数的值。
Y2
Single 类型。可选。如果新线段的 EditingType 为 msoEditingCorner，那么本参数就以磅为单位指定文档的左上角与新线段的第二个控制点之间的垂直距离。如果新线段的 EditingType 为 msoEditingAuto，那么请不要指定本参数的值。
X3
Single 类型，可选。如果新线段的 EditingType 为 msoEditingCorner，那么本参数就以磅为单位指定文档的左上角与新线段的终点之间的水平距离。如果新线段的 EditingType 为 msoEditingAuto，那么请不要指定本参数的值。
Y3
Single 类型，可选。如果新线段的 EditingType 为 msoEditingCorner，那么本参数就以磅为单位指定文档的左上角与新线段的终点之间的垂直距离。如果新线段的 EditingType 为 msoEditingAuto，那么请不要指定本参数的值。
示例
本示例向 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
适用于
Shapes 集合对象
描述
创建 OLE 对象。返回 Shape 对象，该对象代表新建的 OLE 对象。
句法
expression.AddOLEObject(ClassType,FileName,Link,DisplayAsIcon,IconFileName, IconIndex, IconLabel, Left, Top, Width, Height )
expression
必选。该表达式返回 Shapes 对象。
ClassType
Variant 类型，可选。（必须指定 ClassType 和 FileName 两者之一）。要创建的对象的程序标识符字符串。如果指定了 ClassType 参数，就忽略FileName 和 Link参数。
FileName
Variant 类型，可选。指定要创建的对象的源文件。如果未指定路径，就使用当前所在的文件夹。必须指定 ClassType 参数和 FileName 参数两者之一，但不能同时指定两者。
Link
Variant 类型，可选。若指定为 True，就建立 OLE 对象与其源文件之间的链接。若指定为 False，就使 OLE 对象成为与其源文件相互独立的复制品。如果指定了 ClassType，本参数必须为 False。默认值为 False。
DisplayAsIcon
Variant 类型，可选。若指定为 True，则将 OLE 显示为图标。默认值为False。
IconFileName
Variant 类型，可选。要显示的图标所在的文件。
IconIndex
Variant 类型，可选。要显示的图标在 IconFileName 所指定的文件中的编号。指定文件中图标的顺序相应于图标在“更改图标”对话框内出现的次序（该对话框可通过“插入对象”对话框，在选中“以图标显示”复选框的情况下访问）。文件中的第一个图标的编号为 0（零）。如果给定编号的图标在 IconFileName 所指定的文件中不存在，则使用编号为 1 的图标（即文件中的第二个图标）。默认值为 0（零）。
IconLabel
Variant 类型，可选。在图标之下所显示的标志（标题）。
Left, Top
Variant 类型，可选。相对于文档的左上角，以磅为单位给出新对象的左上角位置。默认值为 0（零）。
Width, Height
Variant 类型，可选。以磅为单位给出 OLE 对象的初始尺寸。
示例
本示例向 myDocument 中添加链接的 Word 文档。
Set myDocument = Worksheets(1)
myDocument.Shapes.AddOLEObject Left:=100, Top:=100,_ Width:=200, Height:=300, _
FileName:="c:\my documents\testing.doc", link:=True
本示例向 myDocument 中添加新的命令按钮。
Set myDocument = Worksheets(1) myDocument.Shapes.AddOLEObject Left:=100, Top:=100, Width:=100, Height:=200, _ ClassType:="Forms.CommandButton.1"
适用于
Shape 集合对象
描述
从已存在的文件中创建图片。返回 Shape 对象，该对象代表新建的图片。
句法
expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top,Width, Height)
expression
必选。该表达式返回 Shapes 对象。
FileName
String 类型，必选。要创建的 OLE 对象的源文件。
LinkToFile
Long 类型，必选。若指定为 True，就建立图片与其源文件之间的链接。若指定为 False，就使图片成为与其源文件相互独立的复制品。
SaveWithDocument
Long 类型，必选。若指定为 True，则将链接的图片与其所插入的文档一齐保存。若指定为 False，则在文档中只保存链接信息。LinkToFile 参数为False 时，本参数必须为 True。Left, Top
Single 类型，必选。相对于文档的左上角，以磅为单位给出图片的左上角位置。
Width, Height
Single 类型，必选。以磅为单位指定图片的宽度和高度。
示例
本示例向 myDocument 添加由文件 Music.bmp 创建的图片。所插入的图片链接到其源文件，并与 myDocument 一齐保存。
Set myDocument = Worksheets(1)
myDocument.Shapes.AddPicture
_"c:\microsoft office\clipart\music.bmp", _
True, True, 100, 100, 70, 70
适用于
Shapes 集合对象
描述
创建开口的多段折线或闭合的多边形。返回 Shape 对象，该对象代表新建的多段折线或多边形。
句法
expression.AddPolyline(SafeArrayOfPoints)
expression
必选。该表达式返回 Shapes 对象。
SafeArrayOfPoints
Variant 类型，必选。用于指定多段折线或多边形上的顶点的坐标对数组。
说明
如果要构造闭合的多边形，将多段折线的起点和终点指定为同一坐标即可。
示例
本示例向 myDocument 中添加三角形。因为起点和终点的坐标相同，所以绘制的是闭合且填充的多边形。该三角形的内部颜色即是形状的默认填充颜色。
Dim triArray(1 To 4, 1 To 2) As Single
triArray(1, 1) = 25
triArray(1, 2) = 100
triArray(2, 1) = 100
triArray(2, 2) = 150
triArray(3, 1) = 150
triArray(3, 2) = 50
triArray(4, 1) = 25 ' Last point has same coordinates as first
triArray(4, 2) = 100
Set myDocument = Worksheets(1)
myDocument.Shapes.AddPolyline triArray
适用于
AutoCorrect 对象
描述
往 AutoCorrect 替换文本数组添加输入项。
句法
expression.AddReplacement(What, Replacement)
expression
必选。该表达式返回一个 AutoCorrect 对象。
What
String 类型，必选。要替换的文本。如果该字符串已经存在于 AutoCorrect 替换文本数组中，将用新文本替换原有的文本。
Replacement
String 类型，必选。替换成的文本。
另见
DeleteReplacement 方法, ReplacementList 方法
示例
本示例在 AutoCorrect 替换文本数组中用文本“Temperature”替换文本“Temp.”。
With Application.AutoCorrect
.AddReplacement "Temperature", "Temp."
End With
适用于
HyperLink 对象 ,Range对象
描述
Hyperlink 对象（句法 1）：返回或设置目标文档的地址。String 类型，可读写。
Range 对象（句法 2）：以宏语言返回区域引用。String 类型，只读。
句法 1
expression.Address
句法 2
expression.Address(RowAbsolute,ColumnAbsolute,ReferenceStyle,External,RelativeTo)
expression
必选。
该表达式返回 Hyperlink 对象（句法 1）或 Range 对象（句法 2）的表达式
RowAbsolute
Variant 类型，可选。若为 True，则以绝对引用方式返回对行的引用。默认值为 True。ColumnAbsolute
Variant 类型，可选。若为 True，则以绝对引用方式返回对列的引用。默认值为 True。ReferenceStyle
Variant 类型，可选。可为下列 XlReferenceStyle 常量之一： xlA1 或xlR1C1。用 xlA1 返回 A1-样式的引用。用 xlR1C1 则返回 R1C1-样式的引用。默认值为 xlA1。
External
Variant 类型，可选。若为 True，则返回外部引用。 若为 False，则返回局部引用。默认值为 d。
RelativeTo
Variant 类型，可选。如果 RowAbsolute 和 ColumnAbsolute 为 False，且ReferenceStyle 为 xlR1C1，则必须指定相对引用的起始点。本参数即为定义起始点的 Range 对象。
说明
如果引用包含若干单元格， RowAbsolute 和 ColumnAbsolute 将对所有行和列起作用。
另见
AddressLocal属性 , Offset 属性（Range 对象)
示例
下例对工作表“Sheet1”中的同一单元格地址使用了四种不同的表达方式。
示例中的注释表示将显示于消息框中的地址。
Set mc = Worksheets("Sheet1").Cells(1, 1)
MsgBox mc.Address() ' $A$1
MsgBox mc.Address(RowAbsolute:=False) ' $A1
MsgBox mc.Address(ReferenceStyle:=xlR1C1) ' R1C1
MsgBox mc.Address(ReferenceStyle:=xlR1C1, _
RowAbsolute:=False, _
ColumnAbsolute:=False, _
RelativeTo:=Worksheets(1).Cells(3, 3)) ' R[-2]C[-2]
适用于
Range 对象
描述
以用户语言返回对特定区域的区域引用。String 类型，只读。
句法
expression.AddressLocal(RowAbsolute,ColumnAbsolute,ReferenceStyle,External, RelativeTo)
RowAbsolute
Variant 类型，可选。若为 True，则以绝对引用方式返回对行的引用。默认值为 True。
ColumnAbsolute
Variant 类型，可选。若为 True，则以绝对引用方式返回对列的引用。默认值为 True。ReferenceStyle
Variant 类型，可选。可为下列 XlReferenceStyle 常量之一： xlA1 或xlR1C1。用 xlA1 返回 A1-样式的引用或用xlR1C1返回 R1C1-样式的引用。默认值为 xlA1。
External
Variant 类型，可选。若为 True，则返回外部引用。 若为 False，则返回局部引用。默认值为 False。
RelativeTo
Variant 类型，可选。如果 RowAbsolute 和 ColumnAbsolute 为 False，且ReferenceStyle 为 xlR1C1，则必须指定相对引用的起始点。本参数即为定义起始点的 Range 对象。
说明
如果引用包含若干单元格， RowAbsolute 和 ColumnAbsolute 将分别对所有行和列起作用。
另见
Address 属性,Offset 属性(Range 对象)
示例
假定下例在 Microsoft Excel 的美国英语版中创建，而在德语版中运行。本例将显示如注释中所示的文本。
Set mc = Worksheets(1).Cells(1, 1)
MsgBox mc.AddressLocal() ' $A$1
MsgBox mc.AddressLocal(RowAbsolute:=False) ' $A1
MsgBox mc.AddressLocal(ReferenceStyle:=xlR1C1) ' Z1S1
MsgBox mc.AddressLocal(ReferenceStyle:=xlR1C1, _
RowAbsolute:=False, _
ColumnAbsolute:=False, _
RelativeTo:=Worksheets(1).Cells(3, 3)) ' Z(-2)S(-2)
适用于
Shapes 集合对象
描述
创建自选图形对象。返回 Shape 对象，该对象代表新建的自选图形。
句法
expression.AddShape(Type, Left, Top, Width, Height)
expression
必选。该表达式返回 Shapes 对象。
Type
Long 类型，必选。指定要创建的自选图形的类型。可为任一MsoAutoShapeType 常量。
Left, Top
Single 类型，必选。相对于文档的左上角，以磅为单位给出自选图形所占矩形的左上角位置。
Width, Height
Single 类型，必选。以磅为单位指定自选图形所占矩形的宽度和高度。说明如果要修改已添加的自选图形的类型，设置 AutoShapeType 属性即可。
示例
本示例向 myDocument 中添加矩形。
Set myDocument = Worksheets(1)
myDocument.Shapes.AddShape msoShapeRectangle, 50, 50, 100, 200
适用于
Shapes 集合对象
描述
创建文本框。返回 Shape 对象，该对象代表新建的文本框。
句法
expression.AddTextbox(Orientation, Left, Top, Width, Height)
expression
必选。该表达式返回 Shapes 对象。
Orientation
Long类型，必选。文本框内文字的方向。可为下列MsoTextOrientation常量之一：
msoTextOrientationDownward,msoTextOrientationHorizontal,msoTextOrientationHorizontalRotatedFarEast,msoTextOrientationMixed,msoTextOrientationUpward,msoTextOrientationVertical或msoTextOrientationVerticalFarEast。由于选择或安装的支持语言（如美国英语）的问题，有一些常量可能无法使用。
Left, Top
Single 类型，必选。相对于文档的左上角，以磅为单位给出文本框的左上角位置。
Width, Height
Single 类型，必选。以磅为单位指定文本框的宽度和高度。
示例
本示例向 myDocument 中添加文本框，该文本框内的文字为“Test Box”。
Set myDocument = Worksheets(1)
myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _100, 100, 200, 50) _
.TextFrame.Characters.Text = "Test Box"
适用于
Shapes 集合对象
描述
创建艺术字对象。返回 Shape 对象，该对象代表新建的艺术字对象。
句法
expression.AddTextEffect(PresetTextEffect, Text, FontName, FontSize,FontBold, FontItalic, Left, Top)
expression
必选。该表达式返回 Shapes 对象。
PresetTextEffect
Long 类型，必选。预置的文字效果。可为下列 MsoPresetTextEffect 常量之一：
| msoTextEffect1 | msoTextEffect19 | msoTextEffect28 |
| msoTextEffect10 | msoTextEffect2 | msoTextEffect29 |
| msoTextEffect11 | msoTextEffect20 | msoTextEffect3 |
| msoTextEffect12 | msoTextEffect21 | msoTextEffect30 |
| msoTextEffect13 | msoTextEffect22 | msoTextEffect4 |
| msoTextEffect14 | msoTextEffect23 | msoTextEffect5 |
| msoTextEffect15 | msoTextEffect24 | msoTextEffect6 |
| msoTextEffect16 | msoTextEffect25 | msoTextEffect7 |
| msoTextEffect17 | msoTextEffect26 | msoTextEffect8 |
| msoTextEffect18 | msoTextEffect27 | msoTextEffect9 |
Text
String 类型，必选。艺术字对象中的文字。
FontName
String 类型，必选。艺术字对象中所用的字体名称。
FontSize
String 类型，必选。以磅为单位指定艺术字对象中所用的字体大小。
FontBold
Long 类型，必选。若指定为 True，则使艺术字对象中的字体加粗。
FontItalic
Long 类型，必选。若指定为 True，则使艺术字对象中的字体倾斜。
Left, Top
Single 类型，必选。相对于文档的左上角，以磅为单位给出艺术字对象所占矩形的左上角位置。
说明
向文档添加艺术字对象时，该对象的高度和宽度将自动根据所指定的文字的大小和数量来确定。
示例
本示例向 myDocument 中添加艺术字对象，该对象中的文字为“Test”。
Set myDocument = Worksheets(1)
Set newWordArt = myDocument.Shapes.AddTextEffect( _
PresetTextEffect:=msoTextEffect1, Text:="Test", _
FontName:="Arial Black", FontSize:=36, _
FontBold:=False, FontItalic:=False, Left:=10, _
Top:=10)
适用于
Hyperlink 对象，Workbook 对象
描述
将工作簿或超级链接的快捷方式添加到“个人收藏夹”文件夹。
句法
expression.AddToFavorites
expression
必选。该表达式返回一个 Workbook 对象或 Hyperlink 对象。
示例
本示例将活动工作簿的快捷方式添加到“个人收藏夹”文件夹。
ActiveWorkbook.AddToFavorites
适用于
QueryTable 对象
描述
本属性为True时，每次刷新查询表都会自动将宽度调整到最好。为False时，每次刷新查询表不会自动将宽度调整到最好。默认值为True。Boolean类型，可读写。
说明
最大宽度为屏幕宽度的三分之二。
示例
本示例将第一个工作簿的第一个工作表上新建的查询表的自动有调整宽度的功能关闭。
With Workbooks(1).Worksheets(1).QueryTables _
.Add(connection:=varDBConnStr, _
Destination:=Range("B1"), _
Sql:= "Select Price From CurrentStocks" & _
"where Symbol = "MSFT")
.AdjustColumnWidth = False
.Refresh
End With
描述
包含指定的自选图形对象、艺术字对象或连接符的调整值的集合。每个调整值代表调整柄可调整的一个方向。因为有的调整柄可在两个方向上调整（例如，有的调整柄既可在水平方向调整，也可在垂直方向调整），所以对象所具有的调整值的数目可能会大于其所具有的调整柄的数目。一个形状最多可以有八个调整值。
使用Adjustments对象
可用 Adjustments 属性返回 Adjustments 对象。可用 Adjustments(index)（其中 index 为调整值的编号）返回单个调整值。
调整句柄包括调整文本框宽度的Adjustment（1）。
调整句柄包括Adjustment（3）和Adjustment（4），分别用来调整箭柄长度和宽度。
调整句柄包括Adjustment（2），
用来调整箭头宽度。
不同的形状具有不同数目的调整值，不同类型的调整值在不同的方向上调整形状的几何性质，不同类型的调整值有不同的取值范围。例如，下面的图示显示了右箭头标注的四个调整值各对该标注的几何形状起什么作用。
注意：因为每个可调整的形状都有一组不同的调整值，所以检验某一特定形状的调整行为的最好方法是，先手工创建该类形状的一个实例，再打开宏记录器并调整该形状，然后查看所记录的代码。
下表概括了不同类型的调整值的有效取值范围。绝大多数情况下，如果指定的调整值超出了有效取值范围，就将用最接近的有效值来代替。
| 调整的类型 | 有效取值 |
| 直线（水平或垂直） | 通常 0.0 表示形状的左边或顶端边界，而 1.0 表示形状的右边或底端边界。有效的取值范围相应于可手工对形状所进行的调整。例如，如果手工调整时只能将调整柄拖到形状所具有的大小的一半的位置，那么相应的调整值的最大值就是 0.5。对于像连接符和标注之类的形状，0.0 和 1.0 只是表示连接符或标注线的起点和终点所定义的矩形的界限，负数和大于 1.0 的数也是有效值。 |
| 辐射状 | 调整值 1.0 相应于形状的最大宽度。最大值为 0.5 表示有效调整范围是形状所具有的大小的一半。 |
| 角度 | 调整值以度为单位表示。如果指定的值超出了从 -180 到180 的范围，该值将规格化到该范围内。 |
下例向 myDocument 添加了右箭头标注，并设置了该标注的调整值。请注意，虽然该形状只有三个调整柄，但却有四个调整值。第三个和第四个调整值都是相应于箭头的头部和颈部之间的调整柄。
Set myDocument = Worksheets(1)
Set rac = myDocument.Shapes.AddShape(msoShapeRightArrowCallout, _10, 10, 250, 190)
With rac.Adjustments
.Item(1) = 0.5 'adjusts width of text box
.Item(2) = 0.15 'adjusts width of arrow head
.Item(3) = 0.8 'adjusts length of arrow head
.Item(4) = 0.4 'adjusts width of arrow neck
End With
属性
Application属性，Count属性，Creator属性，Item属性（Adjustments对象），Parent属性
适用于
Shape 对象，ShapeRange 集合对象
描述
返回 Adjustments 对象，该对象包含指定形状的所有调整柄的调整值。应用于任意的代表自选图形对象、艺术字对象或连接符的 Shape 或ShapeRange 对象。只读。
示例
本示例将 myDocument 上第一个形状的第一个调整值设置为 0.25。
Set myDocument = Worksheets(1)
myDocument.Shapes(1).Adjustments(1) = 0.25
适用于
Range 对象
描述
基于给定的条件区域从数据清单中筛选或复制数据。如果初始选定区域为单个单元格，则使用单元格所在的当前区
句法
expression.AdvancedFilter(Action, CriteriaRange, CopyToRange, Unique)
expression
必选。该表达式返回一个action对象。
Action
Long 类型，必选。指定筛选操作的方式。可为下列 XlFilterAction 常量之一： xlFilterInPlace 或 xlFilterCopy。
CriteriaRange
Variant 类型，可选。条件区域。如果省略本参数则无条件。
CopyToRange
Variant 类型，可选。如果 Action 为 xlFilterCopy，本参数指定被复制行的目标区域。否则忽略本参数。
Unique
Variant 类型，可选。若指定为True，则重复出现的记录仅保留一条；若指定为False，则筛选出所有符合条件的记录。默认值为 False。
另见
AutoFilter 方法， FilterMode 属性，ShowAllData 方法
示例
本示例基于条件区域“Criteria”筛选数据库区域“Database”。
Range("Database").AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=Range("Criteria")
适用于
QueryTable 对象
描述
当一个查询完成或者取消时产生此事件。
句法
Private Sub QueryTable_AfterRefresh(Success As Boolean)
Success
如果查询成功完成则为 True。
另见
示例
本示例使用 Success 参数判断查询是否成功完成。
Private Sub QueryTable_AfterRefresh(Success As Boolean)
If Success
' Query completed successfully
Else
' Query failed or was cancelled
End If
End Sub
适用于
Application 对象
描述
进行拖放编辑操作过程中，如果 Microsoft Excel 在改写非空单元格之前先显示一条信息则为 True。Boolean 类型，可读写。
示例
本示例设置 Microsoft Excel 进行拖放编辑操作过程中，在改写非空单元格之前先显示警告。
Application.AlertBeforeOverwriting = True
适用于
Validation 对象
描述
返回有效性检验警告样式。可为下列 XlDVAlertStyle 常量之一：xlValidAlertInformation、xlValidAlertStop 或 xlValidAlertWarning。Long类型，只读。
说明
使用 Add 方法设置某一区域的警告样式。如果该区域已有数据有效性检验，可用 Modify 方法修改警告样式。
示例
本示例显示单元格“E5”的警告样式。
MsgBox Range("e5").Validation.AlertStyle
适用于
ShapeRange 集合对象
描述
对齐指定范围内的各形状。
句法
expression.Align(AlignCmd, RelativeTo)
expression
必选。该表达式返回 ShapeRange 对象。
AlignCmd
Long 类型，必选。指定形状范围内的各形状的对齐方式。可为下列MsoAlignCmd 常量之一：msoAlignBottoms，msoAlignCenters，msoAlignLefts，msoAlignMiddles，msoAlignRights 或 msoAlignTops。
RelativeTo
Long 类型，必选。不能用于 Microsoft Excel 中，必须为 False。
示例
本示例在 myDocument 中，将指定的形状范围内各形状的左边与该形状范围内最左边的形状对齐。
Set myDocument = Worksheets(1)
myDocument.Shapes.SelectAll
Selection.ShapeRange.Align msoAlignLefts, False
适用于
Phonetic 对象，Phonetics 集合对象，TextEffectFormat 对象，TickLabels 对象
描述
返回或设置指定的拼音文本、位置标记或艺术字对象的对齐方式。
对于拼音文本，本属性可为下列XlPhoneticAlignment常量之一：xlPhonetic-AlignCenter，xlPhoneticAlignDistributedxlPhoneticAlignLeft或xlPhonetic-AlignNoControl。
对于位置标记本属性可为下列 XlHAlign常量之一：xlHAlignCenter，xlHAlignLeft或xlHAlignRight。
对于艺术字对象，本属性可为下列MsoTextEffectAlignment 常量之一：msoTextEffectAlignmentCentered,msoTextEffectAlignmentLeft,msoTextEffectAlignmentLetterJustify,msoTextEffectAlignmentMixed,msoTextEffectAlignmentRight,msoTextEffectAlignmentStretchJustify或msoTextEffectAlignmentWordJustify。
Long 类型，可读写。
示例
本示例向第一张工作表中添加艺术字对象，然后将该对象右对齐。
Set mySh = Worksheets(1).Shapes
Set myTE = mySh.AddTextEffect(PresetTextEffect:=msoTextEffect1, _
Text:="Test Text", FontName:="Palatino", FontSize:=54, _
FontBold:=True, FontItalic:=False, Left:=100, Top:=50)
myTE.TextEffect.Alignment = msoTextEffectAlignmentRight
适用于
DefaultWebOptions对象，WebOptions对象
描述
如果以 Web 页保存文档时，允许将 PNG（便携式网络图形）作为图像格式使用，则为 True。如果不允许将 PNG 作为输出格式使用，则为 False。默认值为 False。可读写，Boolean 类型。
说明
如果以 PNG 格式保存图像，而不以其它格式保存图像，则可以提高图像的质量并减小图像文件的大小，因而就可以减少下载时间，但是必须保证所使用的 Web 浏览器支持 PNG 格式。
示例
本示例允许PNG作为第一个工作簿的输出格式。
Application.Workbooks(1).WebOptions.AllowPNG = True
另外，PNG格式可以设为应用程序新建文档的初始设置。
Application.DefaultWebOptions.AllowPNG = True
适用于
Shape 对象，ShapeRange 集合对象
描述
返回或设置Shape 或 ShapeRange 对象（存储到 Web 页时）的描述性（替代）文本串。可读写，String 类型。
说明
可选文字可以显示在 Web 浏览器中某个形状的图像位置上，或者当鼠标指针停留在图像上时，这些文本将直接显示在图像之上（在支持这些功能的浏览器中）。
示例
本示例将第一个工作表的第一个形状的选择性文本设为该形状的描述。
Worksheets(1).Shapes(1).AlternativeText ="Concentric circles"
适用于
OLEObject 对象
描述
本属性返回或设置指定文档存储为Web页时，一个或多个ActiveX控件或OLE对象的替换HTML。替换HTML用于Web浏览器不支持ActiveX控件或OLE对象时。String 类型，可读写。
示例
本示例将一文本段设为活动工作表的列表框的替换HTML。
ActiveSheet.OLEObjects("ListBox1").AltHTML = ?P>List box
适用于
Application 对象
描述
返回或者设置替换启动文件夹的名称。String 类型，可读写。
示例
本示例设置替换启动文件夹。
Application.AltStartupPath = "C:\EXCEL\MACROS"
适用于
DefaultWebOption 对象
描述
如果在保存 Web 页或纯文本文档时，使用默认的编码方式，而不使用当文件打开时其文件的最初编码方式，则为 True。如果使用文件最初的编码方式，则为 False。默认值为 False。可读写，Boolean 类型。
说明
Encoding 属性可用于设置默认编码方式。
另见
示例
本示例将编码方式设置为默认编码方式。当以 Web 页保存文档时，将使用此编码方式。
Application.DefaultWebOptions.AlwaysSaveInDefaultEncoding = True
适用于
CalloutFormat 对象
描述
返回或设置标注线的角度。如果标注线包含若干条线段，本属性返回或设置与标注文本框距离最远的线段的角度。可为下列 MsoCalloutAngleType常量之一：msoCalloutAngle30,msoCalloutAngle45,msoCalloutAngle60,msoCalloutAngle90，msoCalloutAngleAutomatic或msoCalloutAngleMixed。Long 类型，可读写。
说明
如果将本属性设置为除 msoCalloutAngleAutomatic 之外的其它值，那么拖动标注时，标注线的角度将保持不变。
示例
本示例将 myDocument 上的标注“callout1”的标注线角度设置为 90 度。
Set myDocument = Worksheets(1)
myDocument.Shapes("callout1").Callout.Angle = msoCalloutAngle90
适用于
Application 对象
描述
返回 Microsoft Excel 的 AnswerWizard 对象。只读。
示例
本示例重置 Answer Wizard 文件列表。
Application.AnswerWizard.ResetFileList
描述
代表整个 Microsoft Excel 应用程序。Application 对象包含：
l 应用程序范围内的设定和选项（例如“工具”菜单中“选项”对话框内的许多选项）。
l 返回处于活动状态的对象的方法，例如 ActiveCell 和 ActiveSheet 等。
使用Application 对象
可用 Application 属性返回 Application 对象。下例对Application对象应
用Windows属性。
Application.Windows("book1.xls").Activate
下例在其它应用程序中创建 Microsoft Excel 工作表对象，然后在 MicrosoftExcel 中打开工作簿。
Set xl = CreateObject("Excel.Sheet")
xl.Application.Workbooks.Open "newbook.xls"
说明
许多返回常用用户界面对象（例如活动单元格）的属性和方法（例如ActiveCell 属性），可不加 Application 对象识别符而直接使用。例如，可用 ActiveCell.Font.Bold = True 代替 Application.ActiveCell.Font.Bold =True 。
属性
ActiveCell属性，ActiveChart属性，ActivePrinter属性，ActiveSheet属性，ActiveWindow属性，ActiveWorkbook属性，AddIns属性，AlertBeforeOverwriting 属性，AltStartupPath属性，AnswerWizard属性，Application属性，AskToUpdateLinks属性，Assistant属性，AutoCorrect属性，AutoPercentEntry属性，Build属性，CalculateBeforeSave属性，Calculation属性，Calculation Version 属性，Caller属性，CanPlaySounds属性，CanRecordSounds属性，Caption属性，CellDragAndDrop属性，Cells属性，Charts属性，ClipboardFormats属性，Columns属性，COMAddIns属性，CommandBars属性，CommandUnderlines属性，ConstrainNumeric属性，ControlCharacters属性，CopyObjectsWithCells 属性，Creator 属性，Cursor 属性，CursorMovement 属性，CustomListCount 属性，CutCopyMode 属性，DataEntryMode 属性，DDEAppReturnLode属性，DefaultFilePath属性，DefaultSaveFormat属性，DefaultSheetDirection属性，DefaultWebOption属性，Dialogs属性，DisplayAlerts属性，DisplayCommentIndicator属性，DisplayExcel4Menus属性，DisplayFormulaBar属性，DisplayFullScreen属性，DisplayNoteIndicator属性，DisplayRecentFiles属性，DisplayScrollBar属性，DisplayStatusBar属性，EditDirectlyInCell属性，EnableAnimations属性，EnableAutoComplete属性，EnableCancelKey属性，EnableEvents属性，EnableSound属性，Excel4IntlMarcoSheets属性，Excel4Marcosheets属性，ExtendList属性，FeatureIntall属性，FileConverters属性，FileSearch属性，FixedDecimal属性，FixedDecimalPlaces属性，Height属性，IgnoreRemoteRequests属性，Interactive属性，International属性，Interation属性，LanguageSettings属性，Left属性，LibraryPath属性，MailSession属性，MailSystem属性，MathCoprocessorAvailable属性，MaxChange属性，MaxIteration属性，MemoryFree属性，MemoryTotal属性，MemoryUsed属性，MouseAvailable属性，MoveAfterReturn属性，MoveAfterReturnDirection属性，Name属性，Names属性，NetworkTemplatesPath属性，ODBCErrors属性，ODBCTimeout属性，OLEDBErrors属性，OnWindow属性，OperatingSystem属性，OrganizationName属性，Parent属性，path属性，PathSeparator属性，PivotTableSelection属性，PreviousSelection属性，ProductCode属性，PromptForSummaryInfo属性，Range属性(Application，Range或Wordsheet 对象)，RecentFiles属性，d属性，ReferenceStyle属性，RegisteredFunction属性，RollZoom属性，Rows属性，ScreenUpdating属性，Selection属性，Sheets属性，SheetsInNewWorkbook属性，ShowChartTipNames属性，ShowChartTipValues属性，ShowToolTips属性，ShowWindowsInTaskbar属性，StandardFont属性，StandardFontSize属性，StartupPath属性，StatusBar属性，TemplatesPath属性，ThisWorkbook属性，Top属性，TransitionMenuKey属性，TransitionMenuKeyAction属性，TransationNavigKeys属性，UsableHeight属性，UsableWidth属性，UserControl属性，UserLibraryPath属性，UserName属性，Value属性，VBE属性，Version属性，Visible属性，Width属性，Windows属性，WindowsForPens属性，WindowState属性，Workbooks属性，WorksheetFunction属性，Worksheets属性
方法
ActivateMicrosoftApp 方法，AddChartAutoFormat 方法，AddCustomList方法，Calculate 方法，CalculateFull 方法，CentimetersToPoints 方法，CheckSpelling 方法，ConvertFormula 方法，DDEExecute 方法，DDEInitiate 方法，DDEPoke 方法，DDERequest 方法，DDETerminate 方法，DeleteChartAutoFormat 方法，DeleteCustomList 方法，DoubleClick 方法，Evaluate 方法，ExecuteExcel4Marco 方法，FindFile 方法，GetCustomListContents 方法，GetCustomListNum 方法，GetOpenFileName 方法，GetPhonetic 方法，GetSaveAsFilename 方法，Goto 方法，Help 方法，InchesToPoints 方法，InputBox方法,Intersect 方法，MarcoOptions 方法，MailLogoff 方法，MailLogon 方法，OnKey 方法，OnRepeat 方法，OnTime 方法，.OnUndo 方法，Quit 方法，RecentMarco 方法，RegisterXLL 方法，Repeat 方法，Run 方法，SaveWorkspace 方法，SendKeys 方法，SDetefaultChart 方法，Undo 方法，Union 方法，Volatile 方法，Wait 方法
事件
NewWorkbook 事件，SheetActivate 事件，SheetBeforeDoubleClick 事件，SheetBeforeRightClick 事件，SheetCalculate事件，SheetChange事件，SheetDeactivate 事件，SheetFollowHyperlink 事件，SheetSelectionChange事件，WindowActivate 事件，WindowDeactivate 事件，WindowResize 事件，WorkbookActivate 事件，WorkbookAddinInstall 事件，WorkbookAddinUninstall事件，WorkbookBeforeClose事件，WorkbookBeforePrint 事件，WorkbookBeforeSave 事件，WorkbookDeactivate 事件，WorkbookNewSheet 事件，WorkbookOpen 事件
适用于
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 对象，ShapeNodes 集合对象，ShapeRange 集合对象，Shapes 集合对象，Sheet 集合对象，SoundNote 对象，Style 对象，Styles 集合对象，TextEffectFormat对象，TextFrame 对象，ThreeDFormat 对象，TickLabels 对象，TreeviewControl 对象，Trendline 对象，Trendlines 集合对象，UpBars 对象，Validation 对象，VPageBreak 对象，VPageBreaks 集合对象，Walls 对象，WebOptions 对象，Window 对象，Windows 集合对象，Workbook 对象，Workbooks 集合对象，Worksheet 对象，WorksheetFunction 对象，Worksheets 集合对象
描述
如果不使用对象识别符，该属性返回一个 Application 对象，该对象代表指定的 Microsoft Excel 应用程序。如果使用对象识别符，该属性返回一个Application 对象，该对象代表指定对象的创建者（可对一个 OLE 自动化对象使用本属性，可返回该对象所在的应用程序）。只读。
另见
示例
本示例显示一个有关创建 myObject 的应用程序的信息。
Set myObject = ActiveWorkbook
If myObject.Application.Value = "Microsoft Excel" Then
MsgBox "This is a Microsoft Excel Object"
Else
MsgBox "This is not a Miscrosoft Excel object"
End If
适用于
Shape 对象，ShapeRange 集合对象
描述
把由 PickUp 方法所复制的形状格式应用到指定的形状上。
句法
expression.Apply
expression
必选。该表达式返回 Shape 或 ShapeRange 对象。
示例
本示例在 myDocument 上复制第一个形状的格式，然后把所复制格式应用到第二个形状上。
Set myDocument = Worksheets(1)
With myDocument
.Shapes(1).PickUp
.Shapes(2).Apply
End With
适用于
Chart 对象，Series 对象
描述
将一个图表或系列设置为标准图表类型或自定义图表类型。
句法
expression.ApplyCustomType(ChartType, TypeName)
expression
必选。该表达式返回一个 Chart 对象或 Series 对象。
ChartType
Long 类型，必选。一种标准图表类型（有关可用常量列表的详细内容另见
ChartType属性）。对于 Chart 对象，该参数也可为下列 XlChartGallery 常量之一： xlBuiltIn、 xlUserDefined 或 xlAnyGallery。TypeName
Variant 类型（仅对 Chart 对象使用），可选。如果 ChartType 参数指定的是一个自定义图表库，则为自定义图表类型的名称。
示例
本示例将“数据标记折线图”图表类型应用于第一张图表。
Charts(1).ApplyCustomType xlLineMarkers
适用于
Chart 对象，Point 对象，Series 对象
描述
将数据标志应用于图表中的某一数据点、某一数据系列或所有数据系列。
句法
expression.ApplyDataLabels(Type, LegendKey,AutoText,HasLeaderLines)
expression
必选。该表达式返回 Chart、 Point 或 Series 对象。
Type
Variant 类型，可选。数据标志类型。可为下列 XlDataLabelsType 常量之一。
| 常量 | 说明 |
| xlDataLabelsShowNone | 无数据标志。 |
| xlDataLabelsShowValue | 数据点的值（若未指定本参数，即使用此设置）。 |
| xlDataLabelsShowPercent | 总数的百分比。仅用于饼图或圆环图。 |
| xlDataLabelsShowLabel | 数据点所属的分类。这是默认值。 |
| xlDataLabelsShowLabelAndPercent | 占总数的百分比及数据点所属的分类。仅用于饼图或圆环图。 |
LegendKey
Variant 类型，可选。若指定为 True，则在数据点旁边显示图例标示。默
认值为 False。
Autotext
Variant 类型，可选。若指定为 True，则对象基于上下文自动产生合适的文本。
HasleadersLines
Variant 类型， 可选。适用于于Chart和Series 对象。若指定为 True则序列有前导字符线。
另见
DataLabel属性， HasDataLabel属性， Has DataLabels属性
示例
本示例对图表“Chart1”上的第一个数据系列应用分类标志。
Charts("Chart1").SeriesCollection(1). _
ApplyDataLabels Type:=xlDataLabelsShowLabel
适用于
Range 对象
描述
将名称应用于指定区域中的单元格。
句法
expression.ApplyNames(Names, IgnoreRelativeAbsolute,UseRowColumnNames, OmitColumn, OmitRow, Order, AppendLast)
expression
必选。该表达式返回 Range 对象。
Names
Variant 类型，可选。要应用的名称数组。如果省略本参数，工作表中所有的名称都将应用到该区域上。
IgnoreRelativeAbsolute
Variant 类型，可选。若指定为 True，就以名称取代引用，不考虑名称或引用的类型。若指定为 False，就只用绝对名称取代绝对引用，用相对名称取代相对引用，而用混合名称取代混合引用。默认值为 True。
UseRowColumnNames
Variant 类型，可选。若指定为 True，则当无法找到指定区域的名称时，就以该区域所在行或列区域的名称代之。若指定为 False，则忽略OmitColumn 和 OmitRow 参数。默认值为 True。
OmitColumn
Variant 类型，可选。若指定为 True，就用行方向的名称取代整个引用。仅当被引用单元格与公式处于同一列中，且处于行方向命名的区域中时，才能省略列方向名称。默认值为 True。
OmitRow
Variant 类型，可选。若指定为 True，就用列方向的名称取代整个引用。仅当被引用单元格与公式处于同一行中，且处于列方向命名的区域中时，才能省略行方向名称。默认值为 True。
Order
Variant 类型，可选。指出用行方向区域名称和列方向区域名称取代单元格引用时，首先列出哪个区域的名称。可为下列 XlApplyNamesOrder 常量之一： xlRowThenColumn 或 xlColumnThenRow。
AppendLast
Variant 类型，可选。若指定为 True，则取消 Names 参数中所指定的名称的原有定义，并且取消最后一次定义的名称的原有定义。若指定为 False，则仅取消 Names 参数中所指定的名称的原有定义。默认值为 False。
说明
可用 Array 函数为 Names 参数创建名称列表。
如果要对整个工作表应用名称，可用 Cells.ApplyNames。
不能将名称“取消应用”；可用 Delete 方法删除名称。
另见
示例
本示例对整个工作表应用名称。
Cells.ApplyNames Names:=Array("Sales", "Profits")
适用于
Range 对象
描述
对指定区域应用分级显示样式。
句法
expression.ApplyOutlineStyles
expression
必选。该表达式返回 Range 对象。
另见
AutoOutline 方法， ClearOutline 方法， DisplayOutline属性， Outline 对象， OutlineLevel属性， ShowDetail属性， Ungroup 方法(Range 对象)
示例
下例对选定区域应用自动分级显示样式。该选定区域必须包括工作表上的整个分级显示区域。
Selection.ApplyOutlineStyles
适用于
Point 对象，Series 对象
描述
如果图片置于系列中数据点或所有数据点之后，本属性为 True。Boolean 类型，可读写。
另见
ApplyPictToFront属性，ApplyPictToSides属性
示例
本示例将图片置于第一个系列中所有数据点之后。图片必须已置于该系列
中（设置本属性将改变图片的方向）。
Charts(1).SeriesCollection(1).ApplyPictToEnd = True
适用于
Point 对象，Series 对象
描述
如果图片置于系列中数据点或所有数据点之前，本属性为 True。Boolean 类型，可读写。
另见
ApplyPictToEnd属性，ApplyPictToSides属性
示例
本示例将图片置于第一个系列中所有数据点之前。图片必须已置于该系列中（设置本属性将改变图片的方向）。
Charts(1).SeriesCollection(1).ApplyPictToFront = True
适用于
Point 对象，Series 对象
描述
如果图片置于系列中数据点或所有数据点的旁边，本属性为 True。Boolean类型，可读写
另见
ApplyPictToEnd属性，ApplyPictToFront属性
示例
本示例将图片置于第一个系列中所有数据点的旁边。图片必须已置于该系列中（设置本属性将改变图片的方向）。
Charts(1).SeriesCollection(1).ApplyPictToSides = True
适用于
Chart 对象
描述
返回一个 ChartGroup 对象，该对象代表三维图表上的面积图组。只读。
另见
示例
本示例为三维面积图表组添加垂直线。
Charts(1).Area3DGroup.HasDropLines = True
适用于
Chart 对象
描述
在二维图表中返回一个对象，该对象既可代表单个面积图组（一个ChartGroup 对象，句法1），也可代表一个面积图组的集合（一个ChartGroups 集合，句法2）。
句法1
expression.AreaGroups(Index)
句法2
expression.AreaGroups
expression
必选。该表达式返回一个 Chart 对象。
Index
Variant 类型，可选。图表组号。
另见
Area3DGroup属性， BarGroups 方法， ChartGroups 方法， ColumnGroups方法， DoughnutGroups方法， LineGroups方法， PieGroups 方法
示例
本示例向一个二维面积图组添加垂直线。
Charts(1).AreaGroups(1).HasDropLines = True
描述
选定区域内的连续单元格块的集合或区域的集合。没有单个的 Area 对象；Areas 集合的成员是 Range 对象。Areas 集合中的每个 Range 对象代表选定区域内与其它部分相分离的一个连续单元格块。如果选定区域仅包含一个单元格块，那么 Areas 集合就包含相应于该选定区域的单个 Range 对象。
使用Areas 集合对象可用 Areas属性返回 Areas 集合。下例中，如果当前选定区域包含若干单元格块，就清除该选定区域。
If Selection.Areas.Count <> 1 Then Selection.Clear
可用 Areas(index) （其中 index 为单元格块编号）从集合中返回单个 Range对象，该编号表示选定的这些单元格块的顺序。下例中，如果当前选定区域包含若干单元格块，就清除该选定区域中的第一个单元格块。
If Selection.Areas.Count <> 1 Then
Selection.Areas(1).Clear
End If
某些操作不能在选定区域内的多个单元格块上同时执行，而是必须在选定区域内的单元格块上循环并对每个单独的单元格块分别执行该操作。下例中，如果选定区域仅包含一个单元格块，就对该选定区域执行名为“myOperation”的操作；而如果选定区域包含多个单元格块，下例将对选定区域内每个单独的单元格块分别执行这一操作。
Set rangeToUse = Selection
If rangeToUse.Areas.Count = 1 Then
myOperation rangeToUse
Else
For Each singleArea in rangeToUse.Areas
myOperation singleArea
Next
End If
属性
Application属性，Count属性，Creator属性，Item属性(Areas 集合)，Parent属性
适用于
Range 对象
描述
返回一个 Areas 集合，此集合代表多重选定区域中的所有区域。只读。
说明
对于单一选定区域， Areas属性返回只包含一个对象的集合，就是 Range 对象本身。 对于多重选定区域， Areas属性返回一个对象集合，集合中的每个对象对应于每一选定区域。
另见
示例
本示例在用户选定多个区域并试图执行某一命令时显示提示信息。这个示例必须在工作表上执行。
If Selection.Areas.Count > 1 Then
MsgBox "Cannot do this to a multi-area selection."
End If
适用于
Windows集合对象
描述
对屏幕上的窗口进行排列。
句法
expression.Arrange(ArrangeStyle,ActiveWorkbook,SyncHorizontal,SyncVertical)
expression
必选。该表达式返回一个 Windows 对象。ArrangeStyle
Variant 类型，可选。可为下列 XlArrangeStyle 常量之一。
| 常量 | 描述 |
| xlArrangeStyleTiled | 对窗口进行平铺（默认值）。 |
| xlArrangeStyleCascade | 对窗口进行层叠。 |
| xlArrangeStyleHorizontal | 水平排列所有窗口。 |
| xlArrangeStyleVertical | 垂直排列所有窗口。 |
ActiveWorkbook
Variant 类型，可选。为 True 时只对当前工作簿的可见窗口进行排列。为False 时对所有窗口进行排列。默认值为 False。
SyncHorizontal
Variant 类型，可选。如果为 True，则在水平滚动时同步滚动当前工作簿的所有窗口。如果为 False，则不同步。如果 ActiveWorkbook 为 False 或者省略 ActiveWorkbook 参数，则忽略此参数。默认值为 False。
SyncVertical
Variant 类型，可选。如果为 True 则在垂直滚动时同步滚动当前工作簿的所有窗口。如果为 False，则不同步。如果 ActiveWorkbook 为 False 或者省略 ActiveWorkbook 参数，则忽略此参数。默认值为 False。
示例
本示例平铺应用程序中的所有窗口。
Application.Windows.Arrange ArrangeStyle:=xlArrangeStyleTiled
适用于
Application 对象
描述
如果 Microsoft Excel 打开带有链接的文件时，询问用户是否更新链接则为True。如果 Microsoft Excel 自动更新链接并且不显示对话框则为 False。Boolean 类型，可读写。
示例
本示例设置 Microsoft Excel 每当打开包含链接的文件时就询问用户是否更新链接。
Application.AskToUpdateLinks = True
适用于
Application 对象
描述
返回 Microsoft Excel 的 Assistant 对象。
说明
使用本属性时，如不给出对象识别符，等同于如下句法：Application.Assistant。
示例
本示例使 Office 助手可见。
Assistant.Visible = True
适用于
Comment 对象
描述
返回或设置批注的作者。String 类型，只读。
另见
示例
本示例将活动工作表中所有由 Jean Selva 所作的批注删除。
For Each c in ActiveSheet.Comments
If c.Author = "Jean Selva" Then c.Delete
Next
适用于
CalloutFormat 对象
描述
如果标注线与标注文本框的连接位置，是根据标注线的起点（即标注所指向的点）与标注文本框的相对位置决定的，那么本属性为 True。Long 类型，可读写。
说明
如果本属性的值为 True，那么当标注文本框位于标注线起点的右边时，标注的落差值（标注文本框的边框与标注线所指向的位置之间的垂直距离）从标注文本框的顶边开始计算；而当标注文本框位于标注线起点的左边时，落差值从标注文本框的底边开始计算。如果本属性的值为 False，那么不管标注文本框与标注线起点的相对位置怎样，标注的落差值都从标注文本框的顶边开始计算。可用 CustomDrop 方法设置落差值，而用 Drop属性返回落差值。设置此属性，只影响显式地设置落差值的标注，即只影响 DropType属性的值为msoCalloutDropCustom 的标注。默认情况下，在创建时标注的落差值就是显式地设置的。
示例
本示例向 myDocument 中添加了两个标注。如果将这两个标注的文本框拖到其起点的左边，那么只有自动调整连接点的标注才会改变标注线与文本框的连接点。
Set myDocument = Worksheets(1)
With myDocument.Shapes
With .AddCallout(msoCalloutTwo, 420, 170, 200, 50)
.TextFrame.Characters.Text = "auto-attached"
.Callout.AutoAttach = True
End With
With .AddCallout(msoCalloutTwo, 420, 350, 200, 50)
.TextFrame.Characters.Text = "not auto-attached"
.Callout.AutoAttach = False
End With
End With
适用于
Range 对象
描述
从列表中返回一个记忆式键入匹配项。如果没有相应的记忆式键入匹配项，或者在列表中有不止一个与已键入字符串相匹配的项，此方法将返回一空字符串。
句法
expression.AutoComplete(String)
expression
必选。该表达式返回一个 Range 对象（必须为单一单元格）。
String
String 类型，必选。要用记忆式键入完成的字符串。
说明
本方法在记忆式键入功能关闭后依然可用。
示例
本示例返回与“Ap”子串相匹配的记忆式键入匹配项。如果单元格 A5 所在列中包含一个与正在键入的字符串相匹配的数据项，将把该数据项作为记忆式键入匹配项返回。
s = Worksheets(1).Range("A5").AutoComplete("Ap")
If Len(s) > 0 Then
MsgBox "Completes to " & s
Else
MsgBox "Has no completion"
End If
描述
包含了 Microsoft Excel 所有自动更正属性（星期的大写名称、对第一、第二个字母为大写的词的更正、自动更改清单等）。
使用AutoCorrect对象
使用 AutoCorrect属性可返回 AutoCorrect 对象。下列示例对 MicrosoftExcel 进行设置，更正所有前两个字母为大写的词。
With Application.AutoCorrect
.TwoInitialCapitals = True
.ReplaceText = True
End With
属性
Application属性，CapitalizeNamesOfDays属性，CorrectCapsLock属性，CorrectSentenceCap属性，Creator属性，Parent属性，ReplaceText属性，TwoInitialCapitals属性
方法
AddReplacement 方法，DeleteReplacement 方法，ReplacementList 方法
适用于
Application 对象
描述
返回一个 AutoCorrect 对象，该对象代表 Microsoft Excel AutoCorrect属性。只读。
另见
AddReplacement 方法， CapitalizeNamesOfDays属性， DeleteReplacement方法， ReplacementList 方法， ReplaceText属性， TwoInitialCapitals属性
示例
本示例在 AutoCorrect 替换文本数组中设置单词“Temp.”的替换文本为“Temperature”。
With Application
.AutoCorrect.AddReplacement "Temperature", "Temp."
End With
适用于
Range 对象
描述
对指定区域中的单元格进行自动填充。
句法
expression.AutoFill(Destination, Type)
expression
必选。该表达式返回 Range 对象。
Destination
Range 对象类型，必选。要填充的单元格。目标区域必须包括源区域。
Type
Variant 类型，可选。指定填充类型，可为下列 XlFillType 常量之一：xlFillDefault，xlFillSeries，xlFillCopy，xlFillFormats，xlFillValues，xlFillDays、 xlFillWeekdays，xlFillMonths，xlFillYears，xlLinearTrend或xlGrowthTrend。如果省略本参数或将本参数指定为 xlFillDefault，Microsoft Excel 将依据源区域选择最适当的填充方式。
示例
本示例以工作表“Sheet1”中的单元格区域“A1:A20”为基础，对单元格区域“A1:A20”进行自动填充。运行本示例之前，请在单元格“A1”中键入“1”，在单元格“A2”中键入“2”。
Set sourceRange = Worksheets("Sheet1").Range("A1:A2")
Set fillRange = Worksheets("Sheet1").Range("A1:A20")
sourceRange.AutoFill Destination:=fillRange
适用于
Range 对象
描述
使用“自动筛选”筛选出一个列表。注意：在 Worksheet 对象中应用 AutoFilter属性，返回 AutoFilter 对象。
句法
expression.AutoFilter(Field, Criteria1, Operator, Criteria2, VisibleDropDown)
expression
必选。该表达式返回一个 Range 对象。
Field
Variant 类型，可选。相对于作为筛选基准字段（从列表左侧开始，最左侧的字段为第一个字段）的偏移量。
Criteria1
Variant 类型，可选。筛选条件（一个字符串；例如，“101敚?使用 ??可搜索到空字段，或者使用 ?>?可搜索到非空字段。如果省略该参数，则搜索条件为 All。如果 Operator 设为 xlTop10Items， Criteria1 则指定数据项个数（例如，?0敚
perator
Variant 类型，可选。可为下列 XlAutoFilterOperator 常量之一：xlAnd，xlBottom10Items，xlBottom10Percent，xlOr，xlTop10Items 或xlTop10Percent。可使用 xlAnd 和 xlOr 将 Criteria1 和 Criteria2 组合成复合筛选条件。
Criteria2
Variant 类型，可选。第二筛选条件（一个字符串）。与 Criteria1 和 Operator组合成复合筛选条件。
VisibleDropDown
Variant 类型，可选。如果为 True 则显示筛选字段自动筛选的下拉箭头。如果为 False 则隐藏筛选字段自动筛选的下拉箭头。默认为 True 。
说明
如果忽略全部参数，此方法仅在指定区域切换自动筛选下拉箭头的显示。
另见
AdvancedFilter 方法， AutoFilter 对象， AutoFilter属性， AutoFilterMode属性， FilterMode属性，ShowAllData 方法
示例
本示例从 Sheet1 中的 A1 单元格开始筛选出一个列表，列表中只显示第一个字段等于字符串“Otis”的输入项，第一个字段的下拉箭头将隐藏。
Worksheets("Sheet1").Range("A1").AutoFilter _
field:=1, _
criteria1:="Otis"
VisibleDropDown=False
描述
代表对指定工作表的自动筛选。
使用 AutoFilter 对象使用 AutoFilter属性可返回 AutoFilter 对象。使用 Filters 方法可返回由各个列筛选组成的集合。使用 Range 方法可返回 Range 对象，该对象代表整个筛选区域。下例将保存当前筛选的地址和筛选条件，然后应用新的筛选。
Dim w As Worksheet
Dim filterArray()
Dim currentFiltRange As String
Sub ChangeFilters()
Set w = Worksheets("Crew")
With w.AutoFilter
currentFiltRange = .Range.Address
With .Filters
ReDim filterArray(1 To .Count, 1 To 3)
For f = 1 To .Count
With .Item(f)
If .On Then
filterArray(f, 1) = .Criteria1
If .Operator Then
filterArray(f, 2) = .Operator
filterArray(f, 3) = .Criteria2
End If
End If
End With
Next
End With
End With
w.AutoFilterMode = False
w.Range("A1").AutoFilter field:=1, Criteria1:="S"
End Sub
要为工作表创建一个 AutoFilter 对象，必须先手动或使用 Range 对象的AutoFilter 方法打开工作表上某个区域上的自动筛选。下例将使用存储在上例模块级变量中的值来为“Crew敼ぷ鞅砘指醋畛醯淖远秆
Sub RestoreFilters()
Set w = Worksheets("Crew")
w.AutoFilterMode = False
For col = 1 To UBound(filterArray(), 1)
If Not IsEmpty(filterArray(col, 1)) Then
If filterArray(col, 2) Then
w.Range(currentFiltRange).AutoFilter field:=col, _
Criteria1:=filterArray(col, 1), _
Operator:=filterArray(col, 2), _
Criteria2:=filterArray(col, 3)
Else
w.Range(currentFiltRange).AutoFilter field:=col, _
Criteria1:=filterArray(col, 1)
End If
End If
Next
End Sub
属性
Application属性，Creator属性，Filters属性，Parent属性，Range属性(AutoFilter 对象)
另见
适用于
Worksheet 对象
描述
如果允许进行筛选，则返回一个 AutoFilter 对象。如果禁止进行筛选，则返回 Nothing。只读。
说明
在为工作表创建 AutoFilter 对象之前，必须先通过手动方式或使用 Range对象的 AutoFilter 方法启用工作表中某个区域上的自动筛选功能。
请参阅
AutoFilter方法
示例
下例将变量设置为工作表“Crew斏系纳秆∏蛑械牡谝涣猩秆?Criteria1属性的值。
With Worksheets("Crew")
If .AutoFilterMode Then
With .AutoFilter.Filters(1)
If .On Then c1 = .Criteria1
End With
End If
End With
适用于
Worksheet 对象
描述
如果当前在工作表上显示有“自动筛选”下拉箭头，本属性为 True。本属性与 FilterMode属性互相独立。Boolean 类型，可读写。
说明
如果当前显示“自动筛选”下拉箭头，本属性返回 True。可将本属性设置为 False，以去掉该箭头，但不能将其设置为 True。可用 AutoFilter 方法对数据清单进行筛选并显示该下拉箭头。
另见
示例
本示例显示工作表“Sheet1”中 AutoFilterMode属性的当前状态。
If Worksheets("Sheet1").AutoFilterMode Then
isOn = "On"
Else
isOn = "Off"
End If
MsgBox "AutoFilterMode is " & isOn
适用于
Range 对象
描述
将区域中的列宽和行高调整为最适当的值。
句法
expression.AutoFit
expression
必选。该表达式返回 Range 对象。必须为一列或一个列区域，或者一行或一个行区域。否则，本方法将产生错误。
说明
一个列宽单位等于“常规”样式中一个字符的宽度。
另见
示例
本示例调整工作表“Sheet1”中从“A”到“I”的列，以获得最适当的列宽。
Worksheets("Sheet1").Columns("A:I").AutoFit
本示例调整工作表“Sheet1”中从“A”到“E”的列，以获得最适当的列宽，但该调整仅依据单元格区域“A1:E1”中的内容进行。
orksheets("Sheet1").Range("A1:E1").Columns.AutoFit
适用于
Range 对象
描述
对单元格区域自动套用预定义的格式。
句法
expression.AutoFormat(Format, Number, Font, Alignment, Border, Pattern,Width)
expression
必选。该表达式返回 Range 对象。
Format
Variant 类型，可选。指定的自动套用格式。可为下列 XlRangeAutoFormat常量之一：
| xlRangeAutoFormat3DEffects1 | xlRangeAutoFormatReport1 |
| xlRangeAutoFormat3DEffects2 | xlRangeAutoFormatReport2 |
| xlRangeAutoFormatAccounting1 | xlRangeAutoFormatReport3 |
| xlRangeAutoFormatAccounting2 | xlRangeAutoFormatReport4 |
| xlRangeAutoFormatAccounting3 | xlRangeAutoFormatReport5 |
| xlRangeAutoFormatAccounting4 | xlRangeAutoFormatReport6 |
| xlRangeAutoFormatClassic1 | xlRangeAutoFormatReport7 |
| xlRangeAutoFormatClassic2 | xlRangeAutoFormatRepor8 |
| xlRangeAutoFormatClassic3 | xlRangeAutoFormatReport9 |
| xlRangeAutoFormatClassicPivotTable | xlRangeAutoFormatReport10 |
| xlRangeAutoFormatColor1 | xlRangeAutoFormatSimple |
| xlRangeAutoFormatColor2 | xlRangeAutoFormatTable1 |
| xlRangeAutoFormatColor3 | xlRangeAutoFormatTable2 |
| xlRangeAutoFormatList1 | xlRangeAutoFormatTable3 |
| xlRangeAutoFormatList2 | xlRangeAutoFormatTable4 |
| xlRangeAutoFormatList3 | xlRangeAutoFormatTable5 |
| xlRangeAutoFormatLocalFormat1 | xlRangeAutoFormatTable6 |
| xlRangeAutoFormatLocalFormat2 | xlRangeAutoFormatTable7 |
| xlRangeAutoFormatLocalFormat3 | xlRangeAutoFormatTable8 |
| xlRangeAutoFormatLocalFormat4 | xlRangeAutoFormatTable9 |
| xlRangeAutoFormatNone | xlRangeAutoFormatTable10 |
| xlRangeAutoFormatPTNone |
默认值为 xlRangeAutoFormatClassic1。由于选择或安装的支持语言（如美国英语）的问题，有一些常量可能无法使用。
Number
Variant 类型，可选。若指定为 True，则在自动套用格式中包括数字格式。默认值为 True。Font
Variant 类型，可选。若指定为 True，则在自动套用格式中包括字体格式。默认值为 True。Alignment
Variant 类型，可选。若指定为 True，则在自动套用格式中包括对齐方式。默认值为 True。
Border
Variant 类型，可选。若指定为 True，则在自动套用格式中包括边框格式。默认值为 True。
Pattern
Variant 类型，可选。若指定为 True，则在自动套用格式中包括图案格式。默认值为 True。
Width
Variant 类型，可选。若指定为 True，则在自动套用格式中包括列宽和行高。默认值为 True。
说明
如果区域为单个单元格，本方法也将自动设置该单元格周围的当前区，换句话说，下列两条语句等同：
Cells("A1").AutoFormatCells("A1").
CurrentRegion.AutoFormat
示例
本示例将预定义格式套用到工作表“Sheet1”中的单元格区域“A1:D8”上。
Worksheets("Sheet1").Range("A1:D8"). _
AutoFormat Format:=xlRangeAutoFormatClassic1
适用于
CalloutFormat 对象
描述
如果标注线的第一条线段（即与标注文本框相连的线段）在标注移动时自动调整长短，那么本属性为 True。如果标注线第一条线段的长度在标注移动时，保持由 Length属性所指定的值不变，那么本属性为 False。仅
适用于于标注线由若干线段组成的标注（msoCalloutThree 类型和msoCalloutFour 类型）。
Long 类型，只读。
说明
本属性为只读属性。可用 AutomaticLength 方法将本属性设置为 True，而用 CustomLength 方法将本属性设置为 False。
示例
本示例判断 myDocument 上第一个形状的标注线，如果其第一段是自动调整长度的，就将其转换为固定长度的；而如果第一段是固定长度的，就将其转换为自动调整长度的。为使
本示例正常运行，第一个形状必须是标注。
Set myDocument = Worksheets(1)
With myDocument.Shapes(1).Callout
If .AutoLength Then
.CustomLength 50
Else
.AutomaticLength
End If
End With
适用于
OLEObject 对象,OLEObjects 集合对象
描述
如果打开包含指定 OLE 对象的工作簿时将自动载入该 OLE 对象则为True。Boolean 类型，可读写。
说明
ActiveX 忽略本属性，打开一个工作簿时总会载入 ActiveX 控件。
对于大多数 OLE 控件类型，本属性不能设为 True。对于新 OLE 对象，默认情况下其 AutoLoad属性设为 False；当 Microsoft Excel 载入工作簿时，设为 False 可节省时间和内存。自动载入 OLE 对象的好处在于，对于代表易变动的数据的对象，到数据源的链接可立即重建，并且在必要的情况下可对这些对象进行重新映射。
示例
本示例对活动工作表中第一个 OLE 对象的 AutoLoad属性进行设置。
ActiveSheet.OLEObjects(1).AutoLoad = False
适用于
TextFrame 对象
描述
如果 Microsoft Excel 自动计算文本框边距，本属性为 True。Boolean 类型，可读写。
说明
当本属性为 True 时，将忽略MarginLeft，MarginRight，MarginTop和MarginBottom属性。
示例
本示例使 Microsoft Excel 自动计算第一个形状中的文本框边距。
Worksheets(1).Shapes(1).TextFrame.AutoMargins = True
适用于
CalloutFormat 对象
描述
使标注线的第一条线段（即与标注文本框相连的线段）在标注移动时自动调整长短。可用 CustomLength 方法使标注线第一条线段的长度在标注移动时，保持由 Length属性所指定的值不变。仅适用于于标注线由若干线段组成的标注（msoCalloutThree 类型和 msoCalloutFour 类型）。
句法
expression.AutomaticLength
expression
必选。该表达式返回 CalloutFormat 对象。
说明
应用本方法将把 AutoLength属性设置为 True。
示例
本示例判断 myDocument 上第一个形状的标注线，如果其第一段是自动调整长度的，就将其转换为固定长度的；而如果第一段是固定长度的，就将其转换为自动调整长度的。为使本示例正常运行，第一个形状必须是标注。
Set myDocument = Worksheets(1)
With myDocument.Shapes(1).Callout
If .AutoLength Then
.CustomLength 50
Else
.AutomaticLength
End If
End With
适用于
Outline 对象
描述
如果分级显示使用自动样式则为 True。Boolean 类型，可读写。
示例
本示例将 Sheet1 中的分级显示使用自动样式。
Worksheets("Sheet1").Outline.AutomaticStyles = True
适用于
Range 对象
描述
自动为指定区域创建分级显示。如果区域为单个单元格， Microsoft Excel 将创建整个工作表的分级显示。新分级显示将取代所有已存在的分级显示。
句法
expression.AutoOutline
expression
必选。该表达式返回一个 Range 对象。
另见
ApplyOutlinesStyles方法， ClearOutline 方法， DisplayOutline 属性， Outline对象， OutlineLevel 属性， ShowDetail 属性， Ungroup 方法(Range 对象)
示例
本示例创建工作表“Sheet1”上单元格区域“A1:G37”的分级显示。该区域必须包含汇总行或汇总列。
Worksheets("Sheet1").Range("A1:G37").AutoOutline
适用于
Application 对象
描述
如果在向格式设置为百分比的单元格中输入数值时，并不自动乘以 100，则其值为 True。可读写，Boolean 类型。
示例
本示例使得以后向格式为百分比的单元格中输入的数据都将自动乘以100。
Application.AutoPercentEntry = False
适用于
AxisTitle 对象，ChartArea 对象，ChartTitle 对象，DataLabel 对象，DataLabels 集合对象，DataTable 对象，DisplayUnitLabel 对象，Legend 对象，LegendEntry 对象，TickLabels 对象
描述
如果对象大小改变时，对象内部的文本相应地改变字体大小，本属性为True。默认值为 True。Variant 类型，可读写。
示例
本示例向活动工作表中内嵌的第一张图表添加标题， 并使图表大小改变时标题字体大小不变。
With ActiveSheet.ChartObjects(1).Chart
.HasTitle = True
.ChartTitle.Text = "1996 sales"
.ChartTitle.AutoScaleFont = False
End With
适用于
Chart 对象
描述
Boolean 类型，如果 Microsoft Excel 对三维图表进行缩放使其大小接近于等价的二维图表则为 True。RightAngleAxes属性必须设为 True，可读写。
示例
本示例自动对“Chart1”进行缩放。
本示例应在三维图表上运行。
With Charts("Chart1")
.RightAngleAxes = True
.AutoScaling = True
End With
适用于
Shape 对象，ShapeRanges 集合对象
描述
返回或设置指定的 Shape 对象或 ShapeRange 对象的形状类型，该对象
必须代表自选图形，而不能是直线、任意多边形或连接符。Long 类型，可读写。
注意：修改形状的类型时，形状将保留其大小、颜色和其它属性。
可为下列 MsoAutoShapeType 常量：
| msoShape16pointStar | msoShape24pointStar |
| msoShape32pointStar | msoShape4pointStar |
| msoShape5pointStar | msoShape8pointStar |
| msoShapeActionButtonBackorPrevious | msoShapeActionButtonBeginning |
| msoShapeActionButtonCustom | msoShapeActionButtonDocument |
| msoShapeActionButtonEnd | msoShapeActionButtonForwardorNext |
| msoShapeActionButtonHelp | msoShapeActionButtonHome |
| msoShapeActionButtonInformation | msoShapeActionButtonMovie |
| msoShapeActionButtonReturn | msoShapeActionButtonSound |
| msoShapeArc | msoShapeBalloon |
| msoShapeBentArrow | msoShapeBentUpArrow |
| msoShapeBevel | msoShapeBlockArc |
| msoShapeCan | msoShapeChevron |
| msoShapeCircularArrow | msoShapeCloudCallout |
| msoShapeCross | msoShapeCube |
| msoShapeCurvedDownArrow | msoShapeCurvedDownRibbon |
| msoShapeCurvedLeftArrow | msoShapeCurvedRightArrow |
| msoShapeCurvedUpArrow | msoShapeCurvedUpRibbon |
| msoShapeDiamond | msoShapeDonut |
| msoShapeDoubleBrace | msoShapeDoubleBracket |
| msoShapeDoubleWave | msoShapeDownArrow |
| msoShapeDownArrowCallout | msoShapeDownRibbon |
| msoShapeExplosion1 | msoShapeExplosion2 |
| msoShapeFlowchartAlternateProcess | msoShapeFlowchartCard |
| msoShapeFlowchartCollate | msoShapeFlowchartConnectorr |
| msoShapeFlowchartData | msoShapeFlowchartDecision |
| msoShapeFlowchartDelay | msoShapeFlowchartDirectAccessStorage |
| msoShapeFlowchartDisplay | msoShapeFlowchartDocument |
| msoShapeFlowchartExtract | msoShapeFlowchartInternalStorage |
| msoShapeFlowchartMagneticDisk | msoShapeFlowchartManualInput |
| msoShapeFlowchartManualOperation | msoShapeFlowchartMerge |
| msoShapeFlowchartMultidocument | msoShapeFlowchartOffpageConnector |
| msoShapeFlowchartOr | msoShapeFlowchartPredefinedProcess |
| msoShapeFlowchartPreparation | msoShapeFlowchartProcess |
| msoShapeFlowchartPunchedTape | msoShapeFlowchartSequentialAccessStorage |
| msoShapeFlowchartSort | msoShapeFlowchartStoredData |
| msoShapeFlowchartSummingJunction | msoShapeFlowchartTerminator |
| msoShapeFoldedCorner | msoShapeHeart |
| msoShapeHexagon | msoShapeHorizontalScroll |
| msoShapeIsoscelesTriangle | msoShapeLeftArrow |
| msoShapeLeftArrowCallout | msoShapeLeftBrace |
| msoShapeLeftBracket | msoShapeLeftRightArrow |
| msoShapeLeftRightArrowCallout | msoShapeLeftRightUpArrow |
| msoShapeLeftUpArrow | msoShapeLightningBolt |
| msoShapeLineCallout1 | msoShapeLineCallout1AccentBar |
| msoShapeLineCallout1BorderandAccentBar | rmsoShapeLineCallout1NoBorder |
| msoShapeLineCallout2, | msoShapeLineCallout2AccentBar |
| msoShapeLineCallout2BorderandAccentBar | msoShapeLineCallout2NoBorder |
| msoShapeLineCallout3 | msoShapeLineCallout3AccentBar |
| msoShapeLineCallout3BorderandAccentBar | msoShapeLineCallout3NoBorder |
| msoShapeLineCallout4 | msoShapeLineCallout4AccentBar |
| msoShapeLineCallout4BorderandAccentBar | msoShapeLineCallout4NoBorder |
| msoShapeMixedmsoShapeMoon | msoShapeNoSymbol |
| msoShapeNotchedRightArrow | msoShapeNotPrimitive |
| msoShapeOctagon | msoShapeOval, |
| msoShapeOvalCallout | msoShapeParallelogram, |
| msoShapePentagon | msoShapePlaque, |
| msoShapeQuadArrow | msoShapeQuadArrowCallout, |
| msoShapeRectangle | msoShapeRectangularCallout, |
| msoShapeRegularPentagon | msoShapeRightArrow, |
| msoShapeRightArrowCallout | msoShapeRightBrace |
| msoShapeRightBracket | msoShapeRightTriangle |
| msoShapeRoundedRectangle | msoShapeRoundedRectangularCallout |
| msoShapeSmileyFace | msoShapeStripedRightArrow |
| msoShapeSun | msoShapeTrapezoid |
| msoShapeUpArrow | msoShapeUpArrowCallout |
| msoShapeUpDownArrow | msoShapeUpDownArrowCallout |
| msoShapeUpRibbon | msoShapeUTurnArrow |
| msoShapeVerticalScroll | msoShapeWave |
说明
可用 ConnectorFormat 对象的 Type属性设置或返回连接符的类型。
示例
本示例将 myDocument 中所有的 16 磅星形替换为 32 磅星形。
Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
If s.AutoShapeType = msoShape16pointStar Then
s.AutoShapeType = msoShape32pointStar
End If
Next
适用于
PivotFields 对象
描述
显示数据透视表报表的行、页或列字段顶端数据项或者底端数据项的个数。
句法
expression.AutoShow(Type, Range, Count, Field)
expression
必选。该表达式返回一个 PivotField 对象。
Type
Long 类型，必选。使用 xlAutomatic 可使数据透视表报表显示那些与指定规范相匹配的项。使用 xlManual 则不显示这些匹配项。
Range
Long 类型，必选。所要显示的项的起始位置。可为下列两个常量之一： xlTop或 xlBottom。
Count
Long 类型，必选。要显示的项的数目。
Field
String 类型，必选。基准数据字段的名称。必须指定唯一的名称（有SourceName属性返回）。不能是显示的名称。
示例
本示例按销售总额大小只显示销售总额最高的两个公司：
ActiveSheet.PivotTables("Pivot1").PivotFields("Company") _
.AutoShow xlAutomatic, xlTop, 2, "Sum of Sales"
适用于
PivotField 对象
描述
返回数据透视表字段自动显示的首项号或末项号。Long 类型，只读。
示例
本示例在消息框中显示 Salesman 字段的 AutoShow 参数值。
With Worksheets(1).PivotTables(1).PivotFields("salesman")
If .AutoShowType = xlAutomatic Then
r = .AutoShowRange
If r = xlTop Then
rn = "top"
Else
rn = "bottom"
End If
MsgBox "PivotTable report is showing " & rn & " " & _
.AutoShowCount & " items in " & .Name & _
" field by " & .AutoShowField
Else
MsgBox "Pivot Table report is not using AutoShow for this field"
End If
End With
适用于
PivotField 对象
描述
返回数据字段的名称，该字段用于判断在数据透视表字段中自动显示的是首项还是末项。String 类型，只读。
示例
本示例在消息框中显示 Salesman 字段的 AutoShow 参数值。
With Worksheets(1).PivotTables(1).PivotFields("salesman")
If .AutoShowType = xlAutomatic Then
r = .AutoShowRange
If r = xlTop Then
rn = "top"
Else
rn = "bottom"
End If
MsgBox "PivotTable report is showing " & rn & " " & _
.AutoShowCount & " items in " & .Name & _
" field by " & .AutoShowField
Else
MsgBox "Pivot Table report is not using AutoShow for this field"
End If
End With
适用于
PivotField 对象
描述
Long 类型，只读。如果数据透视表字段自动显示首项则返回 xlTop；如果自动显示末项则返回 xlBottom。
示例
本示例在消息框中显示 Salesman 字段的 AutoShow 参数值。
With Worksheets(1).PivotTables(1).PivotFields("salesman")
If .AutoShowType = xlAutomatic Then
r = .AutoShowRange
If r = xlTop Then
rn = "top"
Else
rn = "bottom"
End If
MsgBox "PivotTable report is showing " & rn & " " &
_ .AutoShowCount & " items in " & .Name & _
" field by " & .AutoShowField
Else
MsgBox "Pivot Table report is not using AutoShow for this field"
End If
End With
适用于
PivotField 对象
描述
如果指定数据透视表字段的 AutoShow 功能是打开的则返回xlAutomatic；如果指定数据透视表字段的 AutoShow 功能是关闭的则返回xlManual。Long 类型，只读。
示例
本示例在消息框中显示 Salesman 字段的 AutoShow 参数值。
With Worksheets(1).PivotTables(1).PivotFields("salesman")
If .AutoShowType = xlAutomatic Then
r = .AutoShowRange
If r = xlTop Then
rn = "top"
Else
rn = "bottom"
End If
MsgBox "PivotTable report is showing " & rn & " " & _
.AutoShowCount & " items in " & .Name & _
" field by " & .AutoShowField
Else
MsgBox "Pivot Table report is not using AutoShow for this field"
End If
End With
适用于
TextFrame 对象
描述
如果指定的对象能自动调整大小，以适应其中所包含的文字，那么本属性为 True。Boolean 类型，可读写。
示例
本示例使第一个形状的文本框能自动调整大小，以适应其中所包含的文字。
Worksheets(1).Shapes(1).TextFrame.AutoSize = True
适用于
PivotField 对象
描述
建立自动进行数据透视表报表字段排序的规则。
句法
expression.AutoSort(Order, Field)
expression
必选。该表达式返回一个 PivotField 对象。
Order
Long 类型，必选。表示排序次序。可为下列 XlSortOrder 常数之一：xlAscending 或 xlDescending。也可设为 xlManual 使自动排序失效。
Field
String 类型，必选。排序主字段的名称。必须指定唯一的名称（有SourceName属性返回），不能是显示的名称。
示例
本示例以销售总额为基准对“Company”字段按降序排序。
ActiveSheet.PivotTables(1).PivotField("Company") _
.AutoSort xlDescending, "Sum of Sales"
适用于
PivotField 对象
描述
返回用于对数据透视表字段进行自动排序的数据字段的名称。String 类型，只读。
示例
本示例在消息框中显示 Product 字段的 AutoSort 参数值。
With Worksheets(1).PivotTables(1).PivotFields("product")
Select Case .AutoSortOrder
Case xlManual
aso = "manual"
Case xlAscending
aso = "ascending"
Case xlDescending
aso = "descending"
End Select
MsgBox " sorted in " & aso & _
" order by " & .AutoSortField
End With
适用于
PivotField 对象
描述
返回数据透视表字段的自动排序次序。可为下列 XlSortOrder 常量之一：xlAscending 或 xlDescending（或者，如果自动排序功能处于关闭状态则为 xlManual）。Long 类型，只读。
示例
本示例在消息框中显示 Product 字段的 AutoSort 参数值。
With Worksheets(1).PivotTables(1).PivotFields("product")
Select Case .AutoSortOrder
Case xlManual
aso = "manual"
Case xlAscending
aso = "ascending"
Case xlDescending
aso = "descending"
End Select
MsgBox " sorted in " & aso & _
" order by " & .AutoSortField
End With
适用于
DataLabel 对象，DataLabels 集合对象
描述
如果指定对象可自动产生基于上下文的文字则为 True。Boolean 类型，可读写。
示例
本示例对“Chart1”的第一个数据序列的数据标志进行设置，自动产生合适的文字。
Charts("Chart1").SeriesCollection(1).DataLabels.AutoText = True
适用于
LinkFormat 对象，OLEObject 对象
描述
如果数据源改变时，OLE 对象将自动更新则为 True。仅当对象被链接方式时有效（该对象的 OLEType属性必须设为 xlOLELink）。Boolean 类型，只读。
示例
本示例显示 Sheet1 的所有 OLE 对象的自动更新状态。
Worksheets("Sheet1").Activate
Range("A1").Value = "Name"
Range("B1").Value = "Link Status"
Range("C1").Value = "AutoUpdate Status"
i = 2
For Each obj In ActiveSheet.OLEObjects
Cells(i, 1) = obj.Name
If obj.OLEType = xlOLELink Then
Cells(i, 2) = "Linked"
Cells(i, 3) = obj.AutoUpdate
Else
Cells(i, 2) = "Embedded"
End If
i = i + 1
Next
适用于
Workbook 对象
描述
以分钟为单位返回或设置对共享工作簿进行自动更新的时间间隔。如果本属性为零（0），仅当工作簿保存时才更新。Long 类型，可读写。
另见
AutoUpdateSaveChanges属性， MultiUserEditing属性， PersonalViewListSettings属性， PersonalViewPrintSettings属性， SaveAs 方法
示例
本示例使共享工作簿每三分钟更新一次。
ActiveWorkbook.AutoUpdateFrequency = 3
适用于
Workbook 对象
描述
如果共享工作簿自动更新时，对其所作的修改将传送到其它用户，本属性为 True。如果不传送所作修改（该工作簿还须与其他用户所作的修改保持同步），本属性为 False。默认值为 True。Boolean 类型，可读写。
说明
必须将 AutoUpdateFrequency属性设置为从 5 至 1440 值，才能使本属性起作用。
另见
示例
本示例使共享工作簿自动更新时，将对其所作的修改传送到其它用户。
ActiveWorkbook.AutoUpdateSaveChanges = True
描述
指定图表中所有 Axis 对象的集合。
使用Axes集合对象
可用 Axes 方法返回 Axes 集合。下例显示第一个工作表上第一个嵌入式图表中坐标轴的数目。
With Worksheets(1).Chart
Objects(1).Chart MsgBox .Axes.Count
End With
可用 Axes(type, group) （其中 type 为坐标轴类型，而 group 为坐标轴组）返回单个 Axis 对象。Type 可为下列 XlAxisType常量之一： xlCategory、xlSeries 或 xlValue。Group 可为下列 XlAxisGroup 常量之一： xlPrimary或 xlSecondary。详细内容另见
Axes 方法。下例设置图表工作表“Chart1”中分类轴的标题文字。
With Charts("Chart1").Axes(xlCategory)
.HasTitle = True
.AxisTitle.Caption = "1994"
End With
属性
Application属性，Count属性，Creator属性，Parent属性
方法
Item 方法(Axes 集合)
适用于
Chart 对象
描述
返回一个对象，该对象既可代表单个坐标轴（一个 Axis 对象，句法 1），也可代表一个指定图表上坐标轴的集合（一个 Axes 集合，句法 2）。
句法1
expression.Axes(Type, AxisGroup)
句法2
expression.Axes
expression
必选。该表达式返回一个 Chart 对象。
Type
Variant 类型，可选。指定要返回的坐标轴。可为下列 XlAxisType 常量之一： xlValue，xlCategory 或 xlSeriesAxis（xlSeriesAxis 仅对三维图表有效）。
AxisGroup
Variant 类型，可选。指定坐标轴组。可为下列 XlAxisGroup 常量之一：
xlPrimary 或 xlSecondary。如果省略该参数，将使用主图组。三维图表只有一个坐标轴组。
示例
本示例为“Chart1”的分类坐标轴添加坐标轴标志。
With Charts("Chart1").Axes(xlCategory)
.HasTitle = True
.AxisTitle.Text = "July Sales"
End With
本示例关闭“Chart1”分类坐标轴的主要网格线的显示。
Charts("Chart1").Axes(xlCategory).HasMajorGridlines = False
本示例关闭“Chart1”所有坐标轴的网格线的显示。
For Each a In Charts("Chart1").Axes
a.HasMajorGridlines = False
a.HasMinorGridlines = False
Next a
描述
代表图表中的单个坐标轴。Axis 对象是 Axes 集合的成员。
使用Axis 对象
可用 Axes(type, group) （其中 type 为坐标轴类型，而 group 为坐标轴组）返回
单个 Axis 对象。Type可为下列 XlAxisType 常量之一： xlCategory、xlSeries 或 xlValue。Group可为下列 XlAxisGroup 常量之一： xlPrimary或 xlSecondary。详细内容另见
Axes 方法。下例设置图表工作表“Chart1”中分类轴的标题文字。
With Charts("Chart1").Axes(xlCategory)
.HasTitle = True
.AxisTitle.Caption = "1994"
End With
属性
Application属性，AxisBetweenCategories属性，AxisGroup属性，AxisTitle属性，BaseUnit属性，BaseUnitIsAuto属性，Border属性，CategoryNames属性，CategoryType属性，Creator属性，Crosses属性，CrossesAt属性，DisplayUnit属性，DisplayUnitCustom属性，DisplayUnitLabel属性，HasDisplayUnitLabel属性，HasMajorGridlines属性，HasMinorGridlines属性，HasTitle属性，Height属性，Left属性，MajorGridlines属性，MajorTickMark属性，MajorUnit属性，MajorUnitIsAuto属性，MajorUnitScale属性，MaximumScale属性，MaximumScaleIsAuto属性，MinimumScale属性，MinimumScaleAuto属性，MinorGridlines属性，MinorTickMark属性，MinorUnit属性，MinorUnitIsAuto属性，MinorUnitScale属性，Parent属性，ReversePlotOrder属性，ScaleType属性，TickLabelPosition属性，TickLabels属性，TickLabelSpacing属性，TickMarkSpacing属性，Top属性，Type属性，Width属性
方法
Delete方法，Select方法
适用于
Axis 对象
描述
如果数值坐标轴与分类坐标轴相交于各分类之间则为True。Boolean类型，可读写。
说明
本属性仅应用于分类坐标轴，并且不能应用于三维图表。
示例
本示例设置“Chart1”的数值坐标轴与分类坐标轴相交于两个分类之间。
Charts("Chart1").Axes(xlCategory).AxisBetweenCategories = True
适用于
Axis 对象，ChartGroup 对象，Series 对象
描述
返回指定坐标轴、图表组或者系列所在的组。可为下列 XlAxisGroup 常量之一： xlPrimary 或 xlSecondary。对于 Series 对象可读写，Long类型；对于 Axis 对象和 ChartGroup 对象，Long 类型，只读。
说明
对于三维图表，仅 xlPrimary 有效。
示例
本示例检查指定数值坐标轴是否在“Chart1”的第二个组内，如果是则删除此数值坐标轴。
With Charts("Chart1").Axes(xlValue)
If .AxisGroup = xlSecondary Then .Delete
End With
描述
代表图表坐标轴标题。
使用AxisTitle对象
可用 AxisTitle 属性返回 AxisTitle 对象。下例激活第一个嵌入式图表，设置其数值轴标题文字，将其字体设为 10 磅的“Bookman”字体，并将单
词“millions”设为倾斜。
Worksheets("sheet1").ChartObjects(1).Activate
With ActiveChart.Axes(xlValue)
.HasTitle = True
With .AxisTitle
.Caption = "Revenue (millions)"
.Font.Name = "bookman"
.Font.Size = 10
.Characters(10, 8).Font.Italic = True
End With
End With
说明
只有将坐标轴的HasTitle 属性设置为 True 后，才存在 AxisTitle 对象，从而才能使用该对象。
属性
Application 属性，AutoScaleFont 属性，Border 属性，Caption 属性，Characters 属性，Creator 属性，Fill 属性，Font 属性，HorizontalAlignment属性，Interior 属性，Left 属性，Name 属性，Orientation 属性，Parent 属性，ReadingOrder 属性，Shadow 属性，Text 属性，Top 属性，VerticalAlignment 属性
方法
Delete 方法，Select 方法
适用于
Axis 对象
描述
返回一个 AxisTitle 对象，该对象代表指定坐标轴标题。只读。
另见
示例
本示例为“Chart1”的分类坐标轴添加坐标轴标志。
With Charts("Chart1").Axes(xlCategory)
.HasTitle = True
.AxisTitle.Text = "July Sales"
End With