适用于
Series 对象
描述
如果系列具有三维外观，本属性为 True。仅适用于气泡图。Boolean 类型，可读写。
示例
本示例使内嵌气泡图中的第一个系列具有三维外观。
With Worksheets(1).ChartObjects(1).Chart.
SeriesCollection(1).Has3DEffect = True
End With
适用于
ChartGroup 对象
描述
如果指定图表组有三维底纹则为 True。Boolean 类型，可读写。
示例
本示例为第一张图表中第一个图表组添加三维底纹。
Charts(1).ChartGroups(1).Has3DShading = True
适用于
Range 对象
描述
如果指定单元格是数组公式的一部分，本属性为 True。Variant 类型，只读。
另见
示例
如果工作表“Sheet1”上的活动单元格为数组的一部分，本示例将显示消息框。
Worksheets("Sheet1").Activate
If ActiveCell.HasArray =True Then
MsgBox "The active cell is part of an array"
End If
适用于
PivotTabble 对象
描述
如果当数据透视表刷新或字段移动时，数据透视表将自动设置格式则为True。Boolean 类型，可读写。
示例
本示例使数据透视表刷新或移动字段时可自动重新设置格式。
Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
pvtTable.HasAutoFormat = True
适用于
Chart 对象
描述
返回或者设置指定图表中出现的坐标轴。Variant 类型，可读写。
句法
expression.HasAxis(Index1, Index2)
expression
必选。该表达式返回一个 Chart 对象。
Index1
Variant 类型，可选。坐标轴类型。可为下列 XlAxisType 常量之一：xlCategory、 xlValue 或 xlSeriesAxis。系列坐标轴仅应用于三维图表。
Index2
Variant 类型，可选。坐标轴组。可为下列两个 XlAxisGroup 常量之一：xlPrimary 或 xlSecondary。三维图表仅包含有关坐标轴集合。
说明
如果对图表类型或 AxisGroup 属性进行更改，Microsoft Excel 可能会对坐标轴进行创建或删除。
另见
示例
本示例显示“Chart1”中的主要值坐标轴。
Charts("Chart1").HasAxis(xlValue, xlPrimary) = True
适用于
DataTable 对象
描述
如果图表数据表具有水平网格线，本属性为 True。Boolean 类型，可读写。
另见
HasBorderOutline 属性， HasBorderVertical 属性
示例
本示例使内嵌图表数据表显示时带有外框，但无内部网格线。
With Worksheets(1).ChartObjects(1).Chart
.HasDataTable = True
With .DataTable
.HasBorderHorizontal = False
.HasBorderVertical = False
.HasBorderOutline = True
End With
End With
适用于
DataTable 对象
描述
如果图表数据表具有外框，本属性为 True。Boolean 类型，可读写。
另见
HasBorderHorizontial 属性， HasBorderVertical 属性
示例
本示例使内嵌图表数据表显示时带有外框，但无内部网格线。
With Worksheets(1).ChartObjects(1).Chart
.HasDataTable = True
With .DataTable
.HasBorderHorizontal = False
.HasBorderVertical = False
.HasBorderOutline = True
End With
End With
适用于
DataTable 对象
描述
如果图表数据表具有垂直网格线，本属性为 True。Boolean 类型，可读写。
另见
HasBorderHorizontial 属性， HasBorderOutline 属性
示例
本示例使内嵌图表数据表显示时带有外框，但无内部网格线。
With Worksheets(1).ChartObjects(1).Chart
.HasDataTable = True
With .DataTable
.HasBorderHorizontal = False
.HasBorderVertical = False
.HasBorderOutline = True
End With
End With
适用于
Point 对象
描述
如果数据点具有数据标志，本属性为 True。Boolean 类型，可读写。
另见
ApplyDataLabels 方法， DataLabel 属性， HasDataLabels 属性
示例
本示例打开图表“Chart1”上第三个数据系列的第七个数据点的数据标志，并将该数据标志的颜色设置为兰色。
With Charts("Chart1").SeriesCollection(3).Points(7).
HasDataLabel = True.
ApplyDataLabels Type:=xlValue
.DataLabel.Font.ColorIndex = 5
End With
适用于
Series 对象
描述
如果该系列具有数据标志则为 True。Boolean 类型，可读写。
另见
ApplyDataLabels 方法， DataLabel 属性， HasDataLabel 属性
示例
本示例显示“Chart1”中的系列 3 的数据标志。
With Charts("Chart1").SeriesCollection(3).
HasDataLabels = True.
ApplyDataLabels Type:=xlValue
End With
适用于
Chart 对象
描述
如果图表有数据表，本属性为 True。Boolean 类型，可读写。
示例
本示例使内嵌图表数据表显示时带有外框，但无内部网格线。
With Worksheets(1).ChartObjects(1).Chart
.HasDataTable = True
With .DataTable
.HasBorderHorizontal = False
.HasBorderVertical = False
.HasBorderOutline = True
End With
End With
适用于
Axis 对象
描述
如果由 DisplayUnit 或 DisplayUnitCustom 属性所指定的标志显示在指定轴上，则其值为 True。默认值为 True。可读写，Boolean 类型。
示例
本示例将图表“Chart1”中数值轴上的单位设置为 500，但隐藏单位标志。
With Charts("Chart1").Axes(xlValue)
.DisplayUnit = xlCustom
.DisplayUnitCustom = 500
.AxisTitle.Caption = "Rebate Amoun
.HasDisplayUnitLabel = False
End With
适用于
ChatrGroup 属性
描述
如果折线图或者面积图中有垂直线则为 True。仅应用于折线图和面积图。Boolean 类型，可读写。
另见
示例
本示例显示“Chart1”中图表组一的垂直线，并对其线型、粗细和颜色进行设置。本示例应在含有一个系列的二维图表上运行。
With Charts("Chart1").ChartGroups(1)
HasDropLines = True
ith .DropLines.Border.
LineStyle = xlThin.
Weight = xlMedium.
ColorIndex = 3
End With
End With
适用于
Series对象
描述
如果指定系列有误差线则为 True。此属性不适用于于三维图表。Boolean 类型，可读写。
另见
示例
本示例删除“Chart1”中系列一的误差线。本示例须在系列一有误差线的二维折线图上运行。
Charts("Chart1").SeriesCollection(1).HasErrorBars = False
适用于
Range对象
描述
如果区域中所有单元格均包含公式，本属性为 True；如果所有单元格均不包含公式，则为 False；其它情况下为 Null。Variant 类型，只读。
示例
本示例提示用户选定工作表“Sheet1”的区域。如果该选定区域内所有单元格均包含公式，本示例将显示消息框。
Worksheets("Sheet1").Activate
Set rr = Application.InputBox( _
prompt:="Select a range on this worksheet", _
Type:=8)
If rr.HasFormula = True Then
MsgBox "Every cell in the selection contains a formula"
End If
适用于
ChartGroup对象
描述
如果折线图中有高低线则为 True。仅应用于折线图。Boolean 类型，可读写。
另见
示例
本示例显示“Chart1”中图表组一的高低线，并对其线型、粗细和颜色进行设置。本示例应在具有三组类似股市行情（盘高－盘低－收盘）数据系列的二维折线图上运行。
With Charts("Chart1").ChartGroups(1).
HasHiLoLines = True
With .HiLoLines.Border.
LineStyle = xlThin.
Weight = xlMedium.
ColorIndex = 3
End With
End With
适用于
Series 对象
描述
如果系列有前导线，本属性为 True。Boolean 类型，可读写。
示例
本示例向饼图上的第一个系列添加数据标志和蓝色前导线。
With Worksheets(1).ChartObjects(1).Chart.SeriesCollection(1).
HasDataLabels = True.
DataLabels.Position = xlLabelPositionBestFit.
HasLeaderLines = True.LeaderLines.Border.ColorIndex = 5
End With
适用于
Chart 对象
描述
如果指定图表有图例则为 True。Boolean 类型，可读写。
另见
示例
本示例显示“Chart1”的图例，然后将图例的字体颜色设为蓝色。
With Charts("Chart1")
.HasLegend = True
. Legend.Font.ColorIndex = 5
End With
适用于
Axis 对象
描述
如果坐标轴有主网格线则为 True。网格线仅可在主要坐标轴组中设置。Boolean 类型，可读写。
另见
AxisGroup 属性， HasMinorGridlines 属性， MajorGridlines 属性， MinorGridlines 属性
示例
本示例为“Chart1”中数值坐标轴的主网格线设置颜色
With Charts("Chart1").Axes(xlValue)
If .HasMajorGridlines Then.
MajorGridlines.Border.ColorIndex = 3'set color to red
End If
End With
适用于
Axis 对象
描述
如果坐标轴有次要网格线则为 True。网格线仅可在主要坐标轴组中设置。Boolean 类型，可读写。
另见
AxisGroup 属性， HasMajorGridlines 属性， MajorGridlines 属性， MinorGridlines 属性
示例
本示例为“Chart1”中数值坐标轴的次要网格线设置颜色。
With Charts("Chart1").Axes(xlValue)
If .HasMinorGridlines Then
. MinorGridlines.Border.ColorIndex = 4
' set color to green
End If
End With
适用于
Workbook 对象
描述
如果指定工作簿有密码保护则为 True。Boolean 类型，只读。
说明
可使用 SaveAs 方法为工作簿指定密码保护。
示例
本示例检查当前工作簿是否有密码保护，如果有则显示一条消息。
If ActiveWorkbook.HasPassword = True Then
MsgBox "Remember to obtain the workbook password" & Chr(13) & _
" from the Network Administrator."
End If
适用于
Chart 对象
描述
如果数据透视图控件显示在指定数据透视图报表中，则其值为 True。默认值为 True。对于常规图表，本属性总返回 False，且不能设置此属性。可读写。Boolean 类型。
示例
本示例禁用“1996 Report”工作簿中“Sales”图表上的数据透视控件。
orkbooks("1996 Report").Charts("Sales") _
.PivotLayout.HasPivotFields = False
适用于
ChartGroup 对象
描述
如果雷达图坐标轴有标注则为 True。仅适用于于雷达图。Boolean 类型，可读写。
另见
示例
本示例显示“Chart1”中图表组一的雷达图坐标轴标注，并对其颜色进行设置。
本示例仅在雷达图上运行。
With Charts("Chart).ChartGroups(1).
HasRadarAxisLabels = True.
RadarAxisLabels.Font.ColorIndex = 3
End With
适用于
Workbook 对象
描述
如果指定工作簿含有传送名单则为 True 。Boolean 类型，可读写。
说明
将该属性设为 True 则用默认值创建一个传送名单；将该属性设为 False 则删除传送名单。
另见
RoutingSlip 对象， RoutingSlip 属性
示例
本示例为 Book1.xls 创建一个传送名单，然后将该工作簿逐个传送给三个收信人。
Workbooks("BOOK1.XLS").HasRoutingSlip = True
With Workbooks("BOOK1.XLS").RoutingSlip.
Delivery = xlOneAfterAnother.
Recipients = Array("Adam Sun", "Micheal Bai", "Eilliet Day").
Subject = "Here is Book1.XLS".
Message = "Here is the workbook. What do you think?"
End With
Workbooks("Book1.XLS").Route
适用于
ChartGroup 对象
描述
如果堆积柱状图或条形图有系列线，或者饼图中的扇形或条形两部分之间有连接线，则为 True。仅应用于堆积柱状图、条形图、饼图中的扇形或饼图中的条形。Boolean 类型，可读写。
另见
示例
本示例显示“Chart1”中图表组一的系列线，并对其线型、粗细和颜色进行设置。本示例应在有两个或多个系列的二维堆积柱状图上运行。
With Charts("Chart1").ChartGroups(1).
HasSeriesLines = True
With .SeriesLines.Border.
LineStyle = xlThin.
Weight = xlMedium.
ColorIndex = 3
End With
End With
适用于
Axis 对象，Chart 对象
描述
如果坐标轴或图表有可见标题则为 True。Boolean 类型，可读写。
说明
由 AxisTitle 对象代表的坐标轴标题。
由 ChartTitle 对象代表的图表标题。
示例
本示例为“Chart1”的分类坐标轴添加坐标轴标志。
With Charts("Chart1").Axes(xlCategory).
HasTitle = True.
AxisTitle.Text = "July Sales"
End With
适用于
ChartGroup 对象
描述
如果折线图中有涨跌柱线则为 True。仅应用于折线图。Boolean 类型，可读写。
另见
示例
本示例显示“Chart1”中图表组一的涨跌柱线，并对其颜色进行设置。本示例应在二维折线图上运行，该折线图应包含两组有一个或多个相交数据点的系列。
With Charts("Chart1").ChartGroups(1)
HasUpDownBars = True.
DownBars.Interior.ColorIndex = 3.
UpBars.Interior.ColorIndex = 5
End With
适用于
PageSetup 对象
描述
以磅为单位返回或者设置页面顶端到页眉的距离。Double 类型，可读写。
说明
边距的设置和返回均以磅为单位。可使用 InchesToPoints 方法进行英寸到磅值的转换，也可使用 CentimetersToPoints 方法进行厘米到磅值的转换。
另见
BottomMargin 属性， FooterMargin 属性， LeftMargin 属性， RightMargin 属性， TopMargin 属性
示例
本示例将 Sheet1 的页眉边距设为 0.5 英寸。
Worksheets("Sheet1").PageSetup.HeaderMargin = _
Application.InchesToPoints(0.5)
适用于
Application 对象，Axis 对象，ChartArea 对象，ChartObject 对象，ChartObjects 集合对象，Legend 对象，LegendEntry 对象，LegendKey 对象，OLEObject 对象，OLEObjects 集合对象，PlotArea 对象，Range 对象，Shape 对象，ShapeRange 集合对象，Window 对象
描述
以磅为单位返回或设置对象高度。Long 类型，可读写，除非有下表所示的例外。
说明
Height 属性的含义依赖于所指定的对象。
| 对象类型 | 高度 |
| Application | 主应用程序窗口的高度。在 Windows 中，如果窗口处于最小化状态，本属性只读，并表示图标的高度。如果窗口处于最大化状态，则不能设置本属性。可用WindowState 属性判断窗口的状态。 |
| Axis, LegendEntry,LegendKeyChartArea, ChartObject,Legend,OLEObject,PlotArea, Shape ,ShapeRangeRangeWindow | 对象高度，只读。对象高度。对ChartArea对象为只读。区域高度，只读。窗口高度，只读。可用 UsableHeight 属性获知窗口的最大尺寸。如果窗口处于最大化或最小化状态，就不能设置本属性。可用 WindowState 属性判断窗口的状态。 |
示例
本示例设置内嵌图表的高度。
Worksheets("Sheet1").ChartObjects(1).Height = 288
适用于
Chart 对象
描述
以图表宽度比例（ 5% 到 500% 之间）的形式返回或者设置三维图表的高度。Long 类型，可读写。
另见
示例
本示例将“Chart1”的高度设为其宽度的 80%。本示例应在三维图表上运行。
Charts("Chart1").HeightPercent = 80
适用于
Application 对象
描述
显示一个帮助主题。
句法
expression.Help(HelpFile, HelpContextID)
expression
必选。该表达式返回 Application 对象。
HelpFile
Variant 类型，可选。要显示的联机帮助文件名。如果不指定此参数，将使用 Microsoft Excel 的帮助文件。
HelpContextID
Variant 类型，可选。指定帮助主题的上下文标识号。如果不指定此参数，将显示Help Topics对话框。
示例
本示例显示帮助文件 Otisapp.hlp 中的 65527 号主题 。
Application.Help "OTISAPP.HLP", 65527
适用于
Range 对象，Scenario 对象，Treeview Control对象
描述
Range 对象：如果行或列被隐藏则为True。指定的范围必须覆盖整个行或列。可读写，Variant 类型。
Scenario 对象：如果方案被隐藏则为True。缺省值为False。可读写，Boolean类型。
TreeviewControl对象：在层次字段的分级成员选下控件中，返回或设置层次字段的隐藏状态。该属性用于宏记录并没有其它用途。可读写。
说明
不要将此方法与FormulaHidden属性相混淆。
TreeviewControl 对象：Hidden属性返回或设置一个数组，数组的每一个元素对应被隐藏的层次字段的一级。元素的最大数量为层次字段的数量。数组的每一个元素都是String类型，包含了控件被隐藏的级的唯一的名称。在控件成员可见（扩展）时请查看TreeviewControl对象的Drilled属性。
示例
本示例隐藏Sheet1的列“C”。
Worksheets("Sheet1").Columns("C").Hidden = True
本示例第一张数据透视表第一个层次字段的第二级成员[State].[States].[CA].[Covelo]。
ActiveSheet.PivotTables("PivotTable11").CubeFields(1) _\.
TreeviewControl.Hidden = _
Array(Array(""),Array("") _
Array(" [State].[States].[CA].[Covelo] "))
适用于
PivotLayout 对象，PivotTable 对象
描述
返回一个对象，该对象既可代表单个数据透视表字段（一个 PivotField 对象， 句法 1），也可代表所有数据透视表字段的集合（一个 PivotFields 对象， 句法 2），这些字段当前并不以行、列、页或数据字段显示。只读。
句法
1expression.HiddenFields(Index)
句法 2expression.HiddenFields
expression
必选。该表达式返回一个 PivotTable 对象。
Index
Variant 类型，可选。返回的数据透视表字段的名称或号码（可为指定多个字段的数组）。
说明
对OLAP数据源，该属性常返回空集合。
另见
ColumnFields 属性， DataFields 属性， PageFields 属性， RowFields 属性， VisibleFields 属性
示例
本示例将指定隐藏字段的名称添加进一张新工作表中的列表中。
Set nwSheet = Worksheets.Add
nwSheet.Activate
Set pvtTable = Worksheets("Sheet2").Range("A1").PivotTable
rw = 0
For Each pvtField In pvtTable.HiddenFields
rw = rw + 1
nwSheet.Cells(rw, 1).Value = pvtField.Name
Next pvtField
适用于
PivotField 对象
描述
返回一个对象，该对象既可代表单个数据透视表隐藏数据项（一个 PivotItem对象， 句法 1），也可代表包含数据透视表中指定字段所有隐藏数据项的集合（一个 PivotItems 对象， 句法 2）。只读。
句法 1
expression.HiddenItems(Index)
句法 2
expression.HiddenItems
expression
必选。该表达式返回一个 PivotField 对象。
Index
Variant 类型，可选。要返回的数据透视表数据项的号码或名称（可为指定多个数据项的数组）。
说明
对OLAP 数据源，本属性总是返回空集合。
另见
ChildItems 属性， ParentItems 属性， PivotItems 方法， VisibleItems 属性
示例
本示例将“product”字段的所有隐藏数据项的名称的列表添加到一张新工作表中。
Set nwSheet = Worksheets.Add
nwSheet.Activate
Set pvtTable = Worksheets("Sheet2").Range("A1").PivotTable
rw = 0
For Each pvtItem In pvtTable.PivotFields("product").HiddenItems
rw = rw + 1
nwSheet.Cells(rw, 1).Value = pvtItem.Name
Next pvtItem
适用于
CubeField 对象
描述
返回或设置隐藏的指定组织的最高级。缺省值为0（zero），表示没有被隐藏的级。可读写， Integer类型。
说明
为了将HiddenTopLevels 属性的值设为大于0的数，必须先将值设为0。
示例
本示例隐藏活动工作表第一张数据透视表第二个层次字段的前两级组织。
ActiveSheet.PivotTables(1).CubeFields(2).HiddenLevels = 2
适用于
Workbook 对象
描述
如果将指定共享工作簿的更改在屏幕上突出显示则为 True。Boolean 类型，可读写。
另见
HighlightChangesOptions方法， ListChangesOnNewSheet 属性
示例
本示例将指定共享工作簿的更改突出显示。
ThisWorkbook.HighlightChangesOnScreen
适用于
Wookbook 对象
描述
控制共享工作簿更改的显示方式。
句法
expression.HighlightChangesOptions(When, Who, Where)
expression
必选。该表达式返回一个 Workbook 对象。
When
Variant 类型，可选。要显示的更改。可为下列 XlHighlightChangesTime 常量之一： xlSinceMyLastSave，xlAllChanges 或 xlNotYetReviewed。
Who
Variant 类型，可选。要显示所作更改的用户或多个用户。可为“所有人”、“除我之外的所有人”或共享工作簿的某个用户名。
Where
Variant 类型，可选。一个 A1-样式引用，该引用代表要检查更改的区域。
另见
HightlightChangesOnScreen 属性， ListChangesOnNewSheet 属性
示例
本示例在不同工作表中显示共享工作簿的更改。
With ActiveWorkbook.
HighlightChangesOptions When:=xlSinceMyLastSave, Who:="Everyone"
. ListChangesOnNewSheet = True
End With
描述
代表图表组中的高低点连线。高低点连线连接图表组内每一分类中的最高数据点和最底数据点。仅二维折线图可以有高低点连线。本对象并非集合。没有代表单个高低点连线的对象；要么打开图表组中所有数据点的高低点连线，要么将其全部关闭。
使用HiLoLines 对象
可用 HiLoLines 属性返回 HiLoLines 对象。下例在第一张工作表上的第一个嵌入式图表中用 AutoFormat 方法创建盘高-盘低-收盘图（该嵌入式图表中必须包含三个数据系列），然后将高低点连线设置为蓝色。
Worksheets(1).ChartObjects(1).Activate
ActiveChart.AutoFormat gallery:=xlLine, format:=8
ActiveChart.ChartGroups(1).HiLoLines.Border.Color = RGB(0, 0, 255)
说明
如果 HasHiLoLines 属性为 False，HiLoLines 对象的绝大部分属性将禁用。
属性
Application 属性，Border 属性，Creator 属性，Name 属性，Parent 属性
方法
Delete 方法，Select 方法
适用于
ChartGroup 对象
描述
返回一个 HiLoLines 对象，此对象代表折线图中所有系列的高低线。仅应用于折线图。只读。
另见
示例
本示例显示“Chart1”中图表组一的高低线，并对其线型、粗细和颜色进行设置。本示例应在包含三个类似于股市行情（盘高-盘低-收盘）这样的数据系列的二维折线图上运行。
With Charts("Chart1").ChartGroups(1).
HasHiLoLines = True
With .HiLoLines.Border.
LineStyle = xlThin.
Weight = xlMedium.
ColorIndex = 3
End With
End With
适用于
AxisTitle 对象，ChartTitle 对象，DataLabel 对象，DataLabels 集合对象，DisplayUnitLabel 对象，Range 对象，Style 对象，TextFrame 对象
描述
返回或设置对象的水平对齐方式。对所有对象，可为以下 XlHAlign 常数之一：xlHAlignCenter，xlHAlignDistributed，xlHAlignJustify，xlHAlignLeft或者 xlHAlignRight。另外，对于 Range 对象或者 Style 对象，可将此属性设置为 xlHAlignCenterAcrossSelection，xlHAlignFill或者xlHAlignGeneral。Long 类型，可读写。
说明
这些常量中一些是否对于你有用，取决于你选择或安装的语言支持（如美国英语）。
另见
AddIndent 属性， VerticalAlignment 属性
示例
本示例设置 Sheet1 中区域 A1:A5 的对齐方式为左对齐。
Worksheets("Sheet1").Range("A1:A5").HorizontalAlignment = xlLeft
适用于
Shape 对象，ShapeRange 集合对象
描述
如果指定的形状曾绕水平对称轴翻转过，本属性为 True。Long 类型，只读。
示例
本示例使 myDocument 中曾绕水平对称轴或垂直对称轴翻转过的形状都恢复原状。
Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
If s.HorizontalFlip Then s.Flip msoFlipHorizontal
If s.VerticalFlip Then s.Flip msoFlipVertical
Next
描述
代表一个水平分页符。 HPageBreak 对象是 HPageBreaks 集合的成员。
使用 HPageBreak 对象
使用 HPageBreaks(index)（其中 index 为分页符的索引号）可返回一个HPageBreak 对象。下列示例更改第一个水平分页符的位置。
Worksheets(1).HPageBreaks(1).Location = Worksheets(1).Range("e5")
属性
Application 属性，Creator 属性，Extent 属性，Location 属性，Parent 属性，Type 属性
方法
Delete 方法，DragOff 方法
描述
水平分页符集合。每一水平分页符由一个 HPageBreak 对象表示。
使用 HPageBreaks 集合
使用 HPageBreaks 属性可返回 HPageBreaks 集合。使用 Add 方法可添加水平分页符。下列示例在活动单元格上添加水平分页符。
ActiveSheet.HPageBreaks.Add Before:=ActiveCell
如果添加的分页符不和打印区域交叠，则新添加的 HPageBreak 对象将不会出现在打印区域的 HPageBreaks 集合中。重新调整打印区域或重新定义打印区将改变集合的内容。
属性
Application 属性，Count 属性，Creator 属性，Item 属性(HPageBreaks 集合)，Parent 属性
方法
Add 方法(HPageBreaks 集合)
适用于
Chart 集合对象，Sheets集合对象，Worksheet 对象，Worksheets 集合对象
描述
返回 HPageBreaks 集合，该集合代表工作表上的水平分页符。只读。
另见
示例
本示例显示全屏幕水平分页符和打印区水平分页符的个数。
For Each pb in Worksheets(1).HpageBreaks
If pb.Extent = xlPageBreakFull Then
cFull = cFull + 1
Else
cPartial = cPartial + 1
End If
Next
MsgBox cFull & " full-screen page breaks, " & cPartial & _
" print-area page breaks"
适用于
Workbook 对象
描述
返回指定工作簿中的 HTMLProject 对象，该对象代表“Microsoft 脚本编辑器”的“工程管理器”中的顶层工程分支。只读。
示例
本示例刷新活动工作簿中的 HTML 工程。
ActiveWorkbook.HTMLProject.RefreshProject
适用于
PublishObject 对象
描述
返回或设置在将指定项保存到 Web 页中时，由 Microsoft Excel 所生成的HTML 的类型。可以为下表中列出的 XlHtmlType 常量之一，用于指定该项在 Web 页中是静态还是可交互的。默认值为 xlHtmlStatic。可读写。
XlHtmlType 类型。
| 常量 | 描述 |
| xlHtmlStatic | 静态（非交互式）HTML 仅用于查看。 |
| XlHtmlCalc | 使用电子表格组件。 |
| XlHtmlList | 使用数据透视表组件。 |
| XlHtmlChart | 使用图表组件。 |
示例
本示例将活动工作簿中“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
描述
代表一个超级链接。Hyperlink 对象是 Hyperlinks 集合的成员。
使用 Hyperlink 对象
使用 Hyperlink 属性可返回一个形状的超级链接（一个形状只可以有一个超级链接）。下列示例激活第一个形状的超级链接。
Worksheets(1).Shapes(1).Hyperlink.Follow NewWindow:=True
区域或工作表可以有多个超级链接。使用 Hyperlinks(index)（其中 index 为超级链接号）可返回单个 Hyperlink 对象。下列示例激活 A1:B2 区域的第二个超级链接。
Worksheets(1).Range("A1:B2").Hyperlinks(2).Follow
属性
Address 属性，Application 属性，Creator 属性，EmailSubject 属性，Name属性，Parent 属性，Range 属性(Hyperlink 对象)，ScreenTip 属性，Shape属性，SubAddress 属性，TextToDisplay 属性，Type 属性
方法
AddToFavorites 方法，CreateNewDocument 方法，Delete 方法，Follow 方法
适用于
Shape 对象
描述
返回一个 Hyperlink 对象，该对象代表指定形状的超级链接。
示例
本示例载入附属于第一个形状的超级链接的文档。
Worksheets(1).Shapes(1).Hyperlink.Follow NewWindow:=True
描述
代表工作表或者区域的超级链接集合。每一超级链接由一个 Hyperlink 对象表示。
使用 Hyperlinks 集合
使用 Hyperlinks 属性可返回 Hyperlinks 集合。下列示例检查第一张工作表的所有超级链接以寻找包含“Microsoft”的超级链接。
For Each h in Worksheets(1).Hyperlinks
If Instr(h.Name, "Microsoft") <> 0 Then h.Follow
Next
使用 Add 方法可创建一个超级链接，并将其添加到 Hyperlinks 集合中。
下列示例为 E5 单元格新建一个超级链接。
With Worksheets(1)
.Hyperlinks.Add .Range("E5"), "http://www.gohere.com"
End With
属性
Application 属性，Count 属性，Creator 属性，Item 属性(Hyperlinks 集合)，Parent 属性
方法
Add 方法(Hyperlinks 集合)，Delete 方法
适用于
Chart 对象, Range 对象, Worksheet 对象
描述
返回一个 Hyperlinks 集合，该集合代表指定区域或工作表的超级链接。有关返回集合中单个成员的详细内容，另见返回集合中的对象。
示例
本示例对第一张工作表中的所有超级链接进行检测，看是否某个超级链接包含单词“Microsoft”。
For Each h in Worksheets(1).Hyperlinks
If Instr(h.Name, "Microsoft") <> 0 Then h.Follow
Next
适用于
Range 对象
描述
返回或设置当以 Web 页保存页面时指定单元格的识别标志。可读写。String类型。
说明
可以将标志用作其它 HTML 文档或相同 Web 页中的超级链接引用。
示例
本示例将活动工作表中 A1 单元格的 ID 属性设置为“target
ActiveSheet.Range("A1").ID = "target"
然后，将文档保存为 Web 页，并将下面的行添加到 Web 页中。
< A HREF="#target" > Quarterly earnings
当用户在 Web 浏览器中查看该页并用鼠标单击该超级链接时，浏览器将显示该单元格。
适用于
Validation 对象
描述
如果指定区域内的数据有效性检验允许空值，本属性为 True。Boolean 类型，可读写。
说明
当 IgnoreBlank 属性为 True 时，如果单元格为空白，或被 MinVal 或MaxVal 属性所引用的单元格为空白，仍认为该单元格数据有效。
另见
Add 方法(Validation 对象)， ErrorMessage 属性， ErrorTitle 属性， InCellDropdown 属性， InputMessage 属性， InputTitle 属性
示例
本示例使单元格“E5”的数据有效性检验允许空值。
Range("e5").Validation.IgnoreBlank = True
适用于
Application 对象
描述
如果远程 DDE 请求被忽略则为 True。Boolean 类型，可读写。
示例
本示例设置 IgnoreRemoteRequests 属性为 True，从而忽略远程 DDE 请求。
Application.IgnoreRemoteRequests = True
适用于
Validation 对象
描述
返回或设置日语输入规则说明。可以是下表xlMEMode常量之一。Long类型，可读写。
| 常量 | 描述 |
| XlIMEModeAlpha | 半宽字母数字 |
| XlIMEModeAlphaFull | 全宽字母数字 |
| XlIMEModeDisable | 禁用 |
| XlIMEModeHiragana | 平假名 |
| XlIMEModeKatakana | 片假名 |
| XlIMEModeKatakanaHalf | 片假名（半宽） |
| XlIMEModeNoControl | 无控件 |
| XlIMEModeOff | 关闭（英文模式） |
| XlIMEModeOn | 打开 |
说明
注意仅当安装和选择了日语支持时，该属性能被设置。
示例
本示例设置网格E5数据输入规则
With Range("E5").Validation
.Add Type:=xlValidateWholeNumber, _
AlertStyle:= xlValidAlertStop, _
Operator:=xlBetween, Formula1:="5", Formula2:="10"
. InputTitle = "整数值"
ErrorTitle = "整数值"
.InputMessage = "5かち10の整数た人力してくだろじ"
.ErrorMessage = "人力できゃのほ5かづ10までの值です"
.IMEMode = xlIMEModeAlpha
End With
适用于
SoundNote 对象
描述
不应使用本方法。声音附注已从 Microsoft Excel 中删除。
另见
适用于
Validation 对象
描述
如果数据有效性检验显示含有有效取值的下拉列表，本属性为 True。Boolean 类型，可读写。
说明
如果数据有效性检验类型不是 xlValidateList，将忽略本属性。
使用 Validation 对象的 Add 或 Modify 方法的 Minimum 参数指定有效数据取值范围。
另见
Add 方法(Validation 对象)， ErrorMessage 属性， ErrorTitle 属性， IgnoreBlank 属性， InputMessage 属性， InputTitle 属性
示例
本示例向单元格“E5”添加数据有效性检验。 单元格区域“A1:A10”包含单元格的有效取值，且该单元格显示含有这些有效取值的下拉列表。
With Range("e5").Validation.
Add xlValidateList, xlValidAlertStop, xlBetween,"=$A$1:$A$10".
InCellDropdown = True
End With
适用于
Application 对象
描述
将度量单位从英寸转换为磅。
句法
expression.InchesToPoints(Inches)
expression
必选。该表达式返回一个 Application 对象。
Inches
Double 类型，必选。指定要转换成磅值的英寸值。
另见
示例
本示例将 Sheet1 中的左边距设为 2.5 英寸。
Worksheets("Sheet1").PageSetup.LeftMargin = _
Application.InchesToPoints(2.5)
适用于
Style 对象
描述
如果样式包含 AddIndent，HorizontalAlignment，VerticalAlignment，WrapText 和 Orientation 属性则为 True。 Boolean 类型，可读写。
另见
IncludeBorder 属性， IncludeFont 属性， IncludeNumber 属性， IncludePatterns 属性， IncludeProtection 属性
示例
本示例在 Sheet1 的 A1 单元格样式中加入对齐格式。
Worksheets("Sheet1").Range("A1").Style.IncludeAlignment = True
适用于
Style 对象
描述
如果指定样式中包含 Color，ColorIndex，LineStyle 和 Weight 边框属性则为 True。Boolean 类型，可读写。
另见
Color 属性， ColorIndex 属性， IncludeAlignment 属性， IncludeFont 属性， IncludeNumber 属性， IncludePatterns 属性， IncludeProtection 属性， LineStyle 属性， Weight 属性
示例
本示例在 Sheet1 的 A1 单元格样式中加入边框格式。
Worksheets("Sheet1").Range("A1").Style.IncludeBorder = True
适用于
Style 对象
描述
如果指定样式中包含 Background，Bold，Color，ColorIndex，FontStyle，Italic，Name，OutlineFont，Shadow，Size，Strikethrough，Subscript，Superscript和Underline 字体属性则为 True。Boolean 类型，可读写。
另见
Background 属性， Bold 属性， Color 属性， ColorIndex 属性， FontStyle 属性， IncludeAlignment 属性， IncludeBorder 属性， IncludeNumber 属性， IncludePatterns 属性， IncludeProtection 属性， Italic 属性， Name 属性， OutlineFont 属性， Shadow 属性， Size 属性， Strikethrough 属性， Subscript 属性， Superscript 属性， Underline 属性
示例
本示例在 Sheet1 的 A1 单元格样式中加入字体格式。
Worksheets("Sheet1").Range("A1").Style.IncludeFont = True
适用于
Style 对象
描述
如果样式中包含 NumberFormat 属性则为 True。Boolean 类型，可读写。
另见
IncludeAlignment 属性， IncludeBorder 属性， IncludeFont 属性， IncludePatterns 属性， IncludeProtection 属性， NumberFormat 属性
示例
本示例在 Sheet1 的 A1 单元格样式中加入数字格式。
Worksheets("Sheet1").Range("A1").Style.IncludeNumber = True
适用于
Style 对象
描述
如果指定样式中包含 Color，ColorIndex，InvertIfNegative，Pattern，PatternColor 和 PatternColorIndex 对象的内部属性则为 True，Boolean类型，可读写。
另见
Color 属性， ColorIndex 属性， IncludeAlignment 属性， IncludeBorder 属性， IncludeFont 属性， IncludeNumber 属性， IncludeProtection 属性， InvertIfNegative 属性， Pattern 属性， PatternColor 属性， PatternColorIndex 属性
示例
本示例在 Sheet1 的 A1 单元格样式中加入图案格式。
Worksheets("Sheet1").Range("A1").Style.IncludePatterns = True
适用于
Style 对象
描述
如果指定样式中包含 FormulaHidden 和 Locked 保护属性则为 True。
Boolean 类型，可读写。
另见
FormulaHidden 属性， IncludeAlignment 属性， IncludeBorder 属性， IncludeFont 属性， IncludeNumber 属性， IncludePatterns 属性， Locked 属性
示例
本示例在 Sheet1 的 A1 单元格样式中加入保护格式。
Worksheets("Sheet1").Range("A1").Style.IncludeProtection = True
适用于
PictureFormat 对象
描述
以指定的增量修改图片的亮度。可用 Brightness 属性设置图片的绝对亮度。
句法
expression.IncrementBrightness(Increment)
expression
必选。该表达式返回 PictureFormat 对象。
Increment
Single 类型，必选。指定要对图片的 Brightness 属性值作的改变量。正值使图片变亮，负值使图片变暗。
说明
不能使图片的亮度超出 Brightness 属性值的上下界。例如，如果 Brightness属性初始值为 0.9，而又将 Increment 参数指定为 0.3，那么结果亮度将是1.0（该值即为 Brightness 属性值的上界），而不是 1.2。
示例
本示例在 myDocument 上复制了第一个形状，然后移动所复制的形状，并使之变暗。为使
本示例正常运行，第一个形状必须是图片或 OLE 对象。
Set myDocument = Worksheets(1)
With myDocument.Shapes(1).Duplicate
.PictureFormat.IncrementBrightness -0.2
.IncrementLeft 50
.IncrementTop 50
End With
适用于
PictureFormat 对象
描述
以指定的增量修改图片的对比度。可用 Contrast 属性设置图片的绝对对比度。
句法
expression.IncrementContrast(Increment)
expression
必选。该表达式返回 PictureFormat 对象。
Increment
Single 类型，必选。指定对图形的 Contrast 属性的改动量是多少。 正值将使对比度增大，负值将使对比度减小。
说明
不能使图片的对比度超出 Contrast 属性值的上下界。例如，如果 Contrast属性初始值为 0.9，而又将 Increment 参数指定为 0.3，那么结果对比度将是 1.0（该值即为 Contrast 属性值的上界），而不是 1.2。
示例
本示例使 myDocument 上所有对比度未到最大值的图片都增大对比度。
Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
If s.Type = msoPicture Or s.Type = msoLinkedPicture Then
s.PictureFormat.IncrementContrast 0.1
End If
Next
适用于
Shape 对象，ShapeRange 集合对象
描述
以指定的磅数为增量，在水平方向移动指定的形状。
句法
expression.IncrementLeft(Increment)
expression
必选。该表达式返回 Shape 对象。
Increment
Single 类型，必选。以磅为单位指定形状要在水平方向移动的距离。正值使形状向右移动，负值使形状向左移动。
示例
本示例复制 myDocument 上的第一个形状，设置所复制的形状的填充格式，将其向右移动 70 磅，向上移动 50 磅，然后按顺时针方向旋转 30 度。
Set myDocument = Worksheets(1)
With myDocument.Shapes(1).Duplicate
.Fill.PresetTextured msoTextureGranite
.IncrementLeft 70
.IncrementTop -50
.IncrementRotation 30
End With
适用于
ShadowFormat 对象
描述
以指定的磅数为增量，修改阴影的水平投影距离。可用 OffsetX 属性设置阴影的绝对水平投影距离。
句法
expression.IncrementOffsetX(Increment)
expression
必选。该表达式返回 ShadowFormat 对象。
Increment
Single 类型，必选。以磅为单位指定阴影要移动的水平距离。正值使阴影向右移动，负值使阴影向左移动。
示例
本示例使 myDocument 中第三个形状的阴影向左移动三磅。
Set myDocument = Worksheets(1)
myDocument.Shapes(3).Shadow.IncrementOffsetX ?
适用于
ShadowFormat 对象
描述
以指定的磅数为增量，修改阴影的垂直投影距离。可用 OffsetY 属性设置阴影的绝对垂直投影距离。
句法
expression.IncrementOffsetY(Increment)
expression
必选。该表达式返回 ShadowFormat 对象。
Increment
Single 类型，必选。以磅为单位指定阴影要移动的垂直距离。正值使阴影向下移动，负值使阴影向上移动。
示例
本示例使 myDocument 中第三个形状的阴影向上移动3磅。
Set myDocument = Worksheets(1)
myDocument.Shapes(3).Shadow.IncrementOffsetY ?
适用于
Shape 对象，ShapeRange 集合对象
描述
以指定的度数为增量，修改指定的形状绕 z - 轴的转角。可用 Rotation 属性设置形状的绝对转角。
句法
expression.IncrementRotation(Increment)
expression
必选。该表达式返回 Shape 对象。
Increment
Single 类型，必选。以度为单位指定形状在水平方向的旋转量。正值使形状按顺时针方向旋转，负值使形状按逆时针方向旋转。
说明
如果要使三维形状绕 x 轴或 y 轴旋转，可用 IncrementRotationX 方法或 IncrementRotationY 方法。
示例
本示例复制 myDocument 上的第一个形状，设置所复制的形状的填充格式，将其向右移动 70 磅，向上移动 50 磅，然后按顺时针方向旋转 30 度。
Set myDocument = Worksheets(1)
With myDocument.Shapes(1).Duplicate
.Fill.PresetTextured msoTextureGranite
.IncrementLeft 70
.IncrementTop -50
.IncrementRotation 30
End With
适用于
ThreeDFormat 对象
描述
以指定的度数为增量，修改指定的形状绕 x 轴的转角。可用 RotationX 属性设置形状绕 x - 轴的绝对转角。
句法
expression.IncrementRotationX(Increment)
expression
必选。该表达式返回 ThreeDFormat 对象。
Increment
Single 类型，必选。以度为单位指定形状绕 x 轴的转角的改变量。可为从-90 到 90 之间的值。正值使形状向上旋转，负值使形状向下旋转。
说明
不能使指定形状绕 x 轴的转角超出 RotationX 属性值的上下界（90 度到-90 度）。例如，如果 RotationX 属性初始值为 80，而又将 Increment 参数指定为 40，那么结果转角将是 90 度（即 RotationX 属性值的上界），而不是 120 度。
如果要修改形状绕 y 轴的转角，可用 IncrementRotationY 方法。如果要修改形状绕 z 轴的转角，可用 IncrementRotation 方法。
示例
本示例使 myDocument 中的第一个形状向上旋转 10 度。只有当第一个形状是有深度的(extruded)形状时，才能看到本示例的效果。
Set myDocument = Worksheets(1)
myDocument.Shapes(1).ThreeD.IncrementRotationX 10
适用于
ThreeDFormat 对象
描述
以指定的度数为增量，修改指定的形状绕 y 轴的转角。可用 RotationY 属性设置形状绕 y 轴的绝对转角。
句法
expression.IncrementRotationY(Increment)
expression
必选。该表达式返回 ThreeDFormat 对象。
Increment
Single 类型，必选。以度为单位指定形状绕 y 轴的转角的改变量。可为从-90 到 90 之间的值。正值使形状向左旋转，负值使形状向右旋转。
说明
如果要修改形状绕 x 轴的转角，可用 IncrementRotationX 方法。如果要修改形状绕 z 轴的转角，可用 IncrementRotation 方法。
不能使指定形状绕 y 轴的转角超出 RotationY 属性值的上下界（90 度到-90 度）。例如，如果 RotationY 属性初始值为 80，而又将 Increment 参数指定为 40，那么结果转角将是 90 度（即 RotationY 属性值的上界），而不是 120 度。
示例
本示例使 myDocument 中的第一个形状向右旋转 10 度。只有当第一个形状是有深度的形状时，才能看到本示例的效果。
Set myDocument = Worksheets(1)
myDocument.Shapes(1).ThreeD.IncrementRotationY ?0
适用于
Shape 对象，ShapeRange 集合对象
描述
以指定的磅数为增量，在垂直方向移动指定的形状。
句法
expression.IncrementTop(Increment)
expression
必选。该表达式返回 Shape 对象。
Increment
Single 类型，必选。以磅为单位指定形状在垂直方向要移动的距离。正值使形状向下移动，负值使形状向上移动。
示例
本示例复制 myDocument 上的第一个形状，设置所复制的形状的填充格式，将其向右移动 70 磅，向上移动 50 磅，然后按顺时针方向旋转 30 度。
Set myDocument = Worksheets(1)
With myDocument.Shapes(1).Duplicate
.Fill.PresetTextured msoTextureGranite
.IncrementLeft 70
.IncrementTop -50]
.IncrementRotation 30
End With
适用于
Range 对象，Style 对象
描述
返回或设置区域或样式的缩进量。可为从 0 至 15 的整数。Variant 类型，可读写。
说明
如果使用本属性将缩进值设为小于 0 或者大于 15 将出错。
另见
示例
本示例将单元格“A10”的缩进量增加至 15。
With Range("a10")
.IndentLevel = 15
End With
适用于
Chart 对象，ChartGroup 对象，ChartObject 对象，LegendEntry 对象，Namedx，OLEObject 对象，Pane 对象，PivotCache 对象，PivotFormula对象，RecentFile 对象，Scenario 对象，Trendline 对象，Window 对象，Worksheet 对象
描述
返回某对象在集合中的索引。Long 类型，只读。
示例
本示例显示输入的工作表名称对应的工作表选项卡编号。例如，如果“Chart1”为活动工作簿中第三个工作表选项卡，本示例就在消息框中显示“3”。
sheetname = InputBox("Please enter the name of the worksheet ,such as Sheet12")
MsgBox "This sheet is tab number " & Sheets(sheetname).
适用于
PivotLayout 对象，PivotTable 对象
描述
当最内部行或列字段的 ShowDetail 属性设为 True 时，返回或者设置这些详细数据的字段名称。String 类型，可读写。
说明本属性不适用于于OLAP数据源。
另见
示例
本示例当最内部行或列字段的 ShowDetail 属性设为 True 时，显示这些详细数据的字段名称。
Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
MsgBox pvtTable.InnerDetail
适用于
Application 对象
描述
显示一个接收用户输入的对话框。返回此对话框中输入的信息。
句法
expression.InputBox(Prompt, Title, Default, Left, Top, HelpFile,HelpContextId, Type)
expression
必选。该表达式返回一个 Application 对象。
Prompt
String 类型，必选。 对话框中显示的信息。 可为字符串、 数字、日期或者一个布尔值（在显示之前 Microsoft Excel 自动将其值强制转换为 String类型）。
Title
Variant 类型，可选。输入框的标题。如省略此参数，将使用默认的标题。
Default
Variant 类型，可选。指定一个初始值，并在对话框显示时出现在文本框中。如省略此参数，文本框的内容将是空的。此值可为一个 Range 对象。
Left
Variant 类型，可选。指定对话框相对于屏幕左上角的 x 坐标， 用磅表示。
Top
Variant 类型，可选。指定对话框相对于屏幕左上角的 y 坐标， 用磅表示。
HelpFile
Variant 类型，可选。此输入框使用的帮助文件名。如果存在 HelpFile 和HelpContextID 参数，对话框中将出现一个帮助按钮。
HelpContextId
Variant 类型，可选。HelpFile 中帮助主题的上下文标识号。
Type
Variant 类型，可选。指定返回的数据类型。如果省略此参数，对话框将返回文本。可为下列值的其中一个或其中几个的和。
值 含义
0 公式
1 数字
2 文本 (字符串)
4 逻辑值 (True 或 False)
8 单元格引用，作为 Range 对象
16 错误值，比如 #N/A
64 数值数组
Type 可为以上允许值的和。 例如，对一个可输入文本和数字的输入框，可将 Type 设置为 1 + 2。
说明
101
使用 InputBox 可以显示一个简单的对话框，以便输入宏所需要的信息。此对话框有一个“确定”按钮和一个“取消”按钮。如果选取了“确定”按钮， InputBox 将返回对话框中输入的值。如果单击“取消”按钮，InputBox 将返回 False。
如果 Type 为 0，InputBox 将以文本格式返回输入的公式。例如，“=2*PI()/360”。如果公式中有引用，将以 A1-样式引用返回（用ConvertFormula 转换引用样式）。
如果 Type 为 8， InputBox 将返回一个 Range 对象。您必须用 Set 语句将结果指定给一个 Range 对象，如下例所示。
Set myRange = Application.InputBox(prompt := "Sample", type := 8)
如果不使用 Set 语句，此变量将被设为这个区域的值，而不是 Range对象本身。
如果使用 InputBox 方法要求用户输入公式，则必须使用 FormulaLocal 属性来将此公式指定给一个 Range 对象。输入的公式使用用户语言。
InputBox 方法与 InputBox 函数的区别在于：它可以对用户输入进行选择性验证， 也可用于 Microsoft Excel 对象、误差值和公式的输入。注意Application.InputBox 调用的是 InputBox 方法，不带对象识别符的InputBox 调用的是 InputBox 函数。
示例
本示例提示用户输入数字。
myNum = Application.InputBox("Enter a number")
本示例提示用户在 Sheet1 中选取一个单元格。示例使用 Type 参数证实返
102
回值是合法的单元格引用 (一个 Range 对象)。
Worksheets("Sheet1").Activate
Set myCell = Application.InputBox( _
prompt:="Select a cell", Type:=8)
适用于
Validation 对象
描述
返回或设置数据有效性检验输入信息。String 类型，可读写。
另见
Add 方法(Validation 对象)， ErrorMessage 属性， ErrorTitle 属性， IgnoreBlank 属性， InCellDropdown 属性
示例
本示例向单元格“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
适用于
Validation 对象
描述
返回或者设置数据有效性输入对话框的标题。String 类型，可读写。
另见
Add 方法(Validation 对象)， ErrorTitle 属性， IgnoreBlank 属性， InCellDropdown 属性， InputMessage 属性
示例
本示例显示 E5 单元格的数据有效性规则。
With Range("e5").Validation
.Add xlValidateWholeNumber, _
xlValidAlertInformation, xlBetween, "5", "10"
.InputTitle = "Integers"
.ErrorTitle = "Integers"
.InputMessage = "Enter an integer from five to ten"
.ErrorMessage = "You must enter a number from five to ten"
End With
适用于
Characters 对象，Range 对象，ShapeNodes 集合对象
描述
句法 1 （Range 对象）：往工作表或宏表中插入一个单元格或区域，其它单元格作相应移位以腾出空间。
句法 2 （Characters 对象）：往选定字符之前插入一个字符串。
句法 1
expression.Insert(Shift)
句法 2
expression.Insert(String)
expression
必选。该表达式返回一个 Characters 对象或 Range 对象。
Shift
Variant 类型，可选。指定单元格移位的方式。可为下列XlInsertShiftDirection 常量之一： xlShiftToRight 或 xlShiftDown。如果省略该参数， Microsoft Excel 依据该区域的形状决定移位方式。
StringString 类型，必选。要插入的字符串。
示例
本示例在 Sheet1 的第四行之前插入一个新行。
Worksheets("Sheet1").Rows(4).Insert
本示例往 Sheet1 的 A1:C5 区域插入一个新单元格，并将其它单元格下移。Worksheets("Sheet1").Range("A1:C5").Insert shift:=xlShiftDown
本示例在活动单元格处插入一个新行。本示例必须在工作表中运行。
ActiveCell.EntireRow.Insert
适用于
Range 对象
描述
向指定的区域添加缩进量。
句法
expression.InsertIndent(InsertAmount)
expression
必选。该表达式返回 Range 对象。
InsertAmount
Long 类型，必选。将要添加的缩进量。
说明
如果用本方法将缩进量设为小于 0，大于 15 的值 ，将出错。可用 IndentLevel 属性返回某区域的缩进量。
另见
示例
本示例减少单元格“A10”的缩进量。
With Range("a10")
.InsertIndent -1
End With
适用于
PlotArea 对象
描述
以磅为单位返回图形区内部高度。Double 类型，只读。
说明
本属性所计量的图形区不包括坐标轴标志。 图形区的 Height 属性所计量的矩形包括坐标轴标志。
示例
本示例在图表“Chart1”中的图形区内绘制带点线的矩形。
With Charts("Chart1")
Set pa = .PlotArea
With .Shapes.AddShape(msoShapeRectangle, _
pa.InsideLeft, pa.InsideTop, _
pa.InsideWidth, pa.InsideHeight)
.Fill.Transparency = 1
.Line.DashStyle = msoLineDashDot
End With
End With
适用于
PlotArea 对象
描述
以磅为单位返回从图表边界至图形区内部左边界的距离。Double 类型，只读。
说明
本属性所计量的图形区不包括坐标轴标志。 图形区的 Left 属性所计量的矩形包括坐标轴标志。
示例
本示例在图表“Chart1”中的图形区内绘制带点线的矩形。
With Charts("Chart1")
Set pa = .PlotArea
With .Shapes.AddShape(msoShapeRectangle, _
pa.InsideLeft, pa.InsideTop, _
pa.InsideWidth, pa.InsideHeight)
.Fill.Transparency = 1
.Line.DashStyle = msoLineDashDot
End With
End With
适用于
PlotArea 对象
描述
以磅为单位返回从图表边界至图形区内部上边界的距离。Double 类型，只读。
说明
本属性所计量的图形区不包括坐标轴标志。 图形区的 Top 属性所计量的矩形包括坐标轴标志。
示例
本示例在图表“Chart1”中的图形区内绘制带点线的矩形。
With Charts("Chart1")
Set pa = .PlotArea
With .Shapes.AddShape(msoShapeRectangle, _
pa.InsideLeft, pa.InsideTop, _
pa.InsideWidth, pa.InsideHeight)
.Fill.Transparency = 1
.Line.DashStyle = msoLineDashDot
End With
End With
适用于
PlotArea 对象
描述
以磅为单位返回图形区内部宽度。Double 类型，只读。
说明
本属性所计量的图形区不包括坐标轴标志。 图形区的 Width 属性所计量的矩形包括坐标轴标志。
示例
本示例在图表“Chart1”中的图形区内绘制带点线的矩形。
With Charts("Chart1")
Set pa = .PlotArea
With .Shapes.AddShape(msoShapeRectangle, _
pa.InsideLeft, pa.InsideTop, _
pa.InsideWidth, pa.InsideHeight)
.Fill.Transparency = 1
.Line.DashStyle = msoLineDashDot
End With
End With
适用于
AddIn 对象
描述
如果安装了此加载宏则为 True。Boolean 类型，可读写。
说明
将此属性设为 True 将安装指定加载宏，并调用 Auto_Add 函数。将此属性设为 False 则移去指定加载宏，并调用 Auto_Remove 函数。
示例
本示例用一个消息框显示 Solver 加载宏的安装状态。
Set a = AddIns("Solver Add-In")
If a.Installed = True Then
MsgBox "The Solver add-in is installed"
Else
MsgBox "The Solver add-in is not installed"
End If
适用于
Application 对象
描述
如果 Microsoft Excel 处于交互模式则为 True；此属性值通常为 True。 如果将此属性设为 False，Microsoft Excel 将禁止所有的键盘输入和鼠标输入（代码中对话框的输入除外）。禁止用户输入将使用户不能干预宏移动或者激活 Microsoft Excel 对象。Boolean 类型，可读写。
说明
如果正使用 DDE或者 OLE 自动化从其它应用程序和 Microsoft Excel 进行通讯，则可使用此属性。
如果将此属性设为 False，不要忘了再将它设回 True。当宏运行结束后，Microsoft Excel 不会自动将此属性设回 True。
另见
DisplayAlerts 属性， ScreenUpdating 属性
示例
本示例演示当在 Windows 中使用 DDE 时将 Interactive 属性设置为False，并在运行结束时将此属性设回 True。这样以防用户干预宏的运行。
Application.Interactive = False
Application.DisplayAlerts = False
channelNumber = Application.DDEInitiate( _
app:="WinWord", _
topic:="C:\WINWORD\FORMLETR.DOC")
Application.DDEExecute channelNumber, "[FILEPRINT]"
Application.DDETerminate channelNumber
Application.DisplayAlerts = True
Application.Interactive = True
适用于
Trendline 对象
描述
返回或者设置趋势线与数值坐标轴的交点。Double 类型，可读写。
说明
对本属性进行设置则 InterceptIsAuto 属性将设为 False。
另见
示例
本示例设置“Chart1”的第一条趋势线与数值坐标轴相交于 5。本示例应在包含单个带趋势线系列的二维柱形图上运行。
Charts("Chart1").SeriesCollection(1).Trendlines(1).Intercept = 5
适用于
Trendline 对象
描述
如果通过回归自动判断趋势线与数值坐标轴的交点则为 True。Boolean 类型，可读写。
说明
如果对 Intercept 属性进行设置，则本属性设为 False。
另见
示例
本示例设置 Microsoft Excel 自动判断“Chart1”的趋势线与数值坐标轴的交点。本示例应在包含单个有趋势线的系列的二维柱形图上运行。
Charts("Chart1").SeriesCollection(1).Trendlines(1) _.
InterceptIsAuto = True
描述
代表对象的内部。
使用Interior对象
可用 Interior 属性返回 Interior 对象。下例将单元格“A1”的内部设置为红色。
Worksheets("sheet1").Range("a1").Interior.ColorIndex = 3
属性
Application 属性，Color 属性，ColorIndex 属性，Creator 属性，InvertIfNegative 属性，Parent 属性，Pattern 属性，PatternColor 属性，PatternColorIndex 属性
适用于
AxisTitle 对象，ChartArea 对象，ChartObject 对象，ChartObjects 集合对象，ChartTitle 对象，DataLabel 对象，DataLabels 集合对象，DisplayUnitLabel 对象，DownBars 对象，Floor 对象，FormatCondition 对象，Legend 对象，LegendKey 对象，OLEObject 对象，OLEObjects 集合对象，PlotArea 对象，Point 对象，Range 对象，Series 对象，Style 对象，UpBars 对象，Walls 对象
描述
返回一个 Interior 对象，此对象代表指定对象的内部。只读。
示例
本示例将 Sheet1 中 A1 单元格的内部颜色设为青色。
Worksheets("Sheet1").Range("A1").Interior.ColorIndex = 8
适用于
Application 对象
描述
返回当前国别和区域设置的信息。Variant 类型，只读。
句法
expression.International(Index)
元素
expression
必选。该表达式返回 Application 对象。
Index
Long 类型，必选。要返回的设置。可为下列 XlApplicationInternational 常量之一。
| 索引 | 类型 | 含义 |
| XlCountryCode | Long | Microsoft Excel 的国别版本。 |
| XlCountrySetting | Long | 当前 Windows 控制面板中的国别设置。 |
| xlDecimalSeparator | String | 十进制分隔符。 |
| XlThousandsSeparator | String | 零或千分位分隔符。 |
| XlListSeparator | String | 列表分隔符。 |
| xlUpperCaseRowLetter | String | 大写行字母（R1C1-样式引用）。 |
| xlUpperCaseColumnLetter | String | 大写列字母。xlLowerCaseRowLetterString小写行字母。 |
| xlLowerCaseColumnLetter | String | 小写列字母。 |
| XlLeftBracket | String | R1C1-样式的相对引用中用于取代左方括号（ [ ）的字符。 |
| XlRightBracket | String | R1C1-样式的相对引用中用于取代右方括号（ ] ）的字符。 |
| xlLeftBrace | String | 数组表示法中用于取代左花括号（ { ）的字符。 |
| XlRightBrace | String | 数组表示法中用于取代右花括号（ } ）的字符。 |
| XlColumnSeparator | String | 数组表示法中用于分隔列的字符。 |
| xlRowSeparator | String | 数组表示法中用于分隔行的字符。 |
| XlAlternateArraySeparator | String | 替代的数组项分隔符（如果当前数组分隔符与十进制分隔符相同）。 |
| xlDateSeparator | String | 日期分隔符（美国版本中为 / ）。 |
| xlTimeSeparator | String | 时间分隔符（美国版本中为 : ）。 |
| xlYearCode | String | 数字格式中的“年”符号（美国版本中为y ）。 |
| xlMonthCode | String | “月”符号（美国版本中为 m ）。 |
| xlDayCode | String | “日”符号（美国版本中为 d ）。 |
| xlHourCode | String | “时”符号（美国版本中为 h ）。 |
| xlMinuteCode | String | “分”符号（美国版本中为 m ）。 |
| xlSecondCode | String | “秒”符号（美国版本中为 s ）。 |
| xlCurrencyCode | String | 货币符号（美国版本中为 $ ）。 |
| xlGeneralFormatName | String | 通用数字格式名称。 |
| xlCurrencyDigits | Long | 货币格式中的十进制数码个数。 |
| xlCurrencyNegative | Long | 货币格式中的负值表示法： 0 = ($x) or (x$) 1 = -$x or -x$ 2 = $-x or x-$ 3 = $x- or x$- 请注意货币符号的位置由xlCurrencyBefore决定。 |
| xlNoncurrencyDigits | Long | 在非货币格式中使用的十进制数码的个数。 |
| XlMonthNameChars | Long | 为保持向后兼容，总返回3。在 MicrosoftExcel 97 中，短月份名称从 MicrosoftWindows 读取，可能为任何长度。 |
| XlWeekdayNameChars | Long | 为保持向后兼容，总返回3。在 Microsoft Ecel97 中，一星期内每天的短名称从 MicrosoftWindows 读取，可能为任何长度。 |
| xlDateOrder | Long | 日期元素顺序： 0 = 月-日-年 1 = 日-月-年 2 = 年-月-日 |
| xl24HourClock | Boolean | 如果使用 24 小时制则为 True ，如果使用12 小时制则为 False 。 |
| xlNonEnglishFunctions | Boolean | 如果不用英语显示函数则为 True 。 |
| xlMetric | Boolean | 如果使用公制计量系统则为 True，如果使用英制计量系统则为 False。 |
| XlCurrencySpaceBefore | Boolean | 如果在货币符号前加空格则为 True。 |
| XlCurrencyBefore | Boolean | 如果货币符号在货币值之前则为 True，反之为 False。 |
| XlCurrencyMinusSign | Boolean | 如果用减号表示负数则为 True，如果用括号表示负数则为 False。 |
| xlCurrencyTrailingZeros | Boolean | 如果显示零货币值的后缀零则为 True。 |
| XlCurrencyLeadingZeros | Boolean | 如果显示零货币值的前导零则为 True。 |
| xlMonthLeadingZero | Boolean | 如果在月份表示中显示前导零（当月份用数字表示时）则为 True。 |
| XlDayLeadingZero | Boolean | 如果在日期表示中显示前导零则为 True。 |
| xl4DigitYears | Boolean | 如果用四个数字表示年则为 True，如果用两个数字表示年则为 False。 |
| XlMDY | Boolean | 在长日期格式中，若日期表示顺序为“月-日-年”则为 True，若顺序为“日-月-年”则为False。 |
| XlTimeLeadingZero | 如果在时间表示中显示前导零则为 True。 |
说明
在前面表中的符号、分隔符和货币格式由于使用语言和地理位置的不同可能不同，甚至不能使用，这要看选择或安装的支持语言（例如美国英语）。
适用于
Application 对象
描述
返回一个 Range 对象，此对象代表两个或多个范围重叠的矩形区域。
句法
expression.Intersect(Arg1, Arg2, ...)
expression
可选。 该表达式返回一个 Application 对象。
Arg1, Arg2, ...
Range 类型，必选。重叠的区域。必须至少指定两个 Range 对象。
另见
示例
本示例在 Sheet1 中选定两个命名区域 rg1 和 rg2 间的重叠区域。如果所选区域不重叠，本示例将显示一条相应的信息。
Worksheets("Sheet1").Activate
Set isect = Application.Intersect(Range("rg1"), Range("rg2"))
If isect Is Nothing Then
MsgBox "Ranges do not intersect"
Else
isect.Select
End If
适用于
Interior 对象，LegendKey 对象，Point 对象，Series 对象
描述
对于 Interior 对象为 Variant 类型，对于其它对象为 Boolean 类型，如果指定项与一个负数相对应时 Microsoft Excel 就将其反色，则属性值为True。可读写。
示例
本示例反转“Chart1”中系列一的负值的图案。本示例须在二维柱形图上运行。
Charts("Chart1").SeriesCollection(1).InvertIfNegative = True
适用于
Workbook 对象
描述
如果指定工作簿作为加载宏运行则为 True。Boolean 类型，可读写。
说明
如果将本属性设为 True，则指定工作簿将有下列特征：
l 如果打开该工作簿发生了更改，将不提示保存该工作簿。
l 工作薄窗口不可见
l 该工作簿中的任何宏都不在“宏”对话框中显示（指向“工具”菜单中的“宏”项，并单击“宏”命令可显示该对话框）。
l 尽管该工作簿中的宏在“宏”对话框中不可见，仍然可以通过“宏 ”对话框运行该工作簿中的宏。另外，宏名无须使用工作簿名称进行标识。
l 打开该工作簿时按下 SHIFT 键将不产生任何效果。
示例
本示例检查指定工作簿是否为加载宏，如果是则运行选定的代码。
If ThisWorkbook.IsAddin Then
' this code runs when the workbook is an add-in
End If
适用于
PivotField 对象，PivotItem 对象
描述
如果数据透视表字段或项目为计算结果字段或项目，本属性为 True。Boolean 类型，可读写。
说明
对OLAP数据源，本属性总返回False。
示例
如果数据透视表包含计算结果字段，本示例将禁止PivotTable Fields对话框。
set pt = Worksheets(1).PivotTables("Pivot1")
For Each fld in pt.PivotFields
If fld.IsCalculated Then pt.EnableFieldDialog = False
Next
适用于
Workbook 对象
描述
如果指定工作簿正在适当位置上进行编辑，则其值为 True。如果该工作簿已在 Microsoft Excel 中打开，并准备进行编辑，则其值为 False。只读。Boolean 类型。
示例
本示例用于表示工作簿是在适当位置上打开并正在编辑还是仅在 MicrosoftExcel 中打开。
Private Sub Workbook_Open()
If ThisWorkbook.IsInPlace = True Then
MsgBox "Editing in place"
Else
MsgBox "Editing in Microsoft Excel"
End If
End Sub
适用于
Font 对象
描述
如果字形是倾斜的，则为 True。Boolean 类型，可读写。
示例
本示例将 Sheet1 中 A1:A5 区域的字形设为倾斜。
Worksheets("Sheet1").Range("A1:A5").Font.Italic = True
Item方法（Axes集合）
适用于
Axes 集合对象
描述
返回 Axes 集合中单个 Axis 对象。
句法
expression.Item(Type, AxisGroup)
expression
必选。该表达式返回一个 Axes 对象。
Type
Variant 类型，必选。坐标轴类型。可为下列 XlAxisType 常量之一：xlValue，xlCategory 或 xlSeriesAxis（xlSeriesAxis 仅对于三维图表有效）。
AxisGroup
Variant 类型，可选。坐标轴组。可为下列 XlAxisGroup 常量之一：xlPrimary 或 xlSecondary。 默认值为 xlPrimary。
示例
本示例对“Chart1”中分类坐标轴的标题文字进行设置。
With Charts("Chart1").Axes.Item(xlCategory)
.HasTitle = True
.AxisTitle.Caption = "1994"
End With
适用于
CalculatedFields 集合对象
描述
返回 CalculatedFields 集合中单个 PivotField 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 CalculatedFields 对象。
Index
Variant 类型，必选。数据透视表字段的名称或索引号。
示例
本示例为第一个已计算字段的公式进行设置。
Worksheets(1).PivotTables(1).CalculatedFields.Item(1) _.
Formula = "=Revenue - Cost"
适用于
CalculatedItems 集合对象
描述
返回 CalculatedItems 集合中单个 PivotItem 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 CalculatedItems 对象。
Index
Variant 类型，必选。数据透视表数据项的名称或索引号。
示例
本示例隐藏第一个已计算数据项。
Worksheets(1).PivotTables(1).PivotFields("year") _.
CalculatedItems.Item(1).Visible = False
适用于
ChartGroups 集合对象
描述
返回 ChartGroups 集合中单个 ChartGroup 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 ChartGroups 对象。
Index
Variant 类型，必选。图表组的索引号。
示例
本示例为第一个图表中第一个图表组添加垂直线。
Charts(1).ChartGroups.Item(1).HasDropLines = True
适用于
ChartObjects 集合对象
描述
返回 ChartObjects 集合中单个 ChartObject 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 ChartObjects 对象。
Index
Variant 类型，必选。嵌入式图表的名称或索引号。
示例
本示例激活第一张嵌入式图表。
Worksheets("sheet1").ChartObjects.Item(1).Activate
适用于
Comments 集合对象
描述
返回 Comments 集合中单个 Comment 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 Comments 对象。
Index
Long 类型，必选。批注的索引号。
示例
本示例隐藏第二条批注。
Worksheets(1).Comments.Item(2).Visible = False
适用于
CustomViews 集合对象
描述
返回 CustomViews 集合中单个 CustomView 对象。
句法
expression.Item(ViewName)
expression
必选。该表达式返回一个 CustomViews 对象。
ViewName
Variant 类型，必选。自定义视图的名称或索引号。
示例
本示例在“Current Inventory”自定义视图中包含打印设置。
ThisWorkbook.CustomViews.Item("Current Inventory") _.
PrintSettings = True
适用于
DataLabels 集合对象
描述
返回 DataLabels 集合中单个 DataLabel 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 DataLabels 对象。
Index
Variant 类型，必选。数据标志的名称或索引号。
示例
本示例对数据标志的数字格式进行设置。该数据标志是第一个工作表中第一张嵌入式图表的第一个系列的第五个数据标志。
Worksheets(1).ChartObjects(1).Chart _.
SeriesCollection(1).DataLabels.Item(5).NumberFormat = "0.000"
适用于
FormatConditions 集合对象
描述
返回 FormatConditions 集合中单个 FormatCondition 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 FormatConditions 对象。
Index
Variant 类型，必选。条件格式的索引号。
示例
本示例对 E1:E10 单元格现有条件格式的格式属性进行设置。
With Worksheets(1).Range("e1:e10").FormatConditions.Item(1)
With .Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 6
End With
End With
适用于
GroupShapes 集合对象
描述
返回 GroupShapes 集合中的单个 Shape 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回 GroupShapes 对象。
Index
Variant 类型，必选。形状的名称或编号。
适用于
LegendEntries 集合对象
描述
返回 LegendEntries 集合中单个 LegendEntry 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 LegendEntries 对象
Index
Variant 类型，必选。图例项的索引号。
示例
本示例对 Sheet1 中第一个嵌入式图表的第一个图例的文本字体进行更改。
Worksheets("Sheet1").ChartObjects(1).Chart _.
Legend.LegendEntries.Item(1).Font.Italic = True
适用于
Names 集合对象
描述
返回 Names 集合中单个 Name 对象。
句法
expression.Item(Index, IndexLocal, RefersTo)
expression
必选。该表达式返回一个 Names 对象。
Index
Variant 类型，可选。要返回的定义名的名称或编号。
IndexLocal
Variant 类型，可选。用户语言形式的定义名的名称。如果使用本参数则不转换任何名称。
RefersTo Variant 类型，可选。引用的名称。使用本参数可识别被引用的名称。
说明
必须指定以上三个参数之一，而且最多只能指定一个。
示例
本示例将活动工作簿中的“mySortRange”名称删除。
ActiveWorkbook.Names.Item("mySortRange").Delete
适用于
ODBCErrors 集合对象
描述
返回 ODBCErrors 集合中单个 ODBCError 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 ODBCErrors 对象。
Index
Long 类型，必选。ODBCError 对象的索引号。
示例
本示例显示一个 ODBC 错误。
Set er = Application.ODBCErrors.Item(1)
MsgBox "The following error occurred:" &er.ErrorString & " : " & er.SqlState
适用于
OLEDBErrors 集合对象
描述
返回 OLEDBErrors 集合中的一个 OLEDBError 对象。
句法
expression.Item(Index)
expression
一个返回 OLEDBErrors 对象的表达式。
Index
必选。Long 类型。代表 OLEDBError 对象的索引号。
示例
本示例显示一个 OLE DB 错误。
Set objEr = Application.OLEDBErrors.Item(1)
MsgBox "The following error occurred:" & _
objEr.ErrorString & " : " & objEr.SqlState
适用于
OLEObjects 集合对象
描述
返回 OLEObjects 集合中单个 OLEObject 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 OLEObjects 对象。
Index
Variant 类型，必选。OLEObject 对象的索引号。
示例
本示例将“Sheet1”中的第一个 OLE 对象删除。
Worksheets("Sheet1").OLEObjects.Item(1).Delete
适用于
Parameterd 集合对象
描述
返回 Parameters 集合中单个 Parameter 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 Parameters 对象。
Index
Variant 类型，必选。参数的名称或索引号。
示例
本示例修改参数提示字符串。
With Worksheets(1).QueryTables(1).Parameters.Item(1).
SetParam xlPrompt, "Please " & .PromptString
End With
适用于
PivotCaches 集合对象
描述
返回 PivotCaches 集合中单个 PivotCache 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 PivotCaches 对象。
Index
Variant 类型，必选。数据透视表缓冲区的索引号。
示例
本示例刷新第一个缓冲区。
ActiveWorkbook.PivotCaches.Item(1).Refresh
适用于
PivotFields 集合对象
描述
返回 PivotFields 集合中单个 PivotField 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 PivotFields 对象。
Index
Variant 类型，必选。数据透视表字段的名称或索引号。
说明
对象的文本名称是Name或Value属性的值。对OLAP数据源，该值等于SourceName属性的值。对于其它数据源，该值等于Caption属性的值。
示例
本示例将 Year 字段设为 Sheet3 中第一个数据透视表的一个行字段。
Worksheets("Sheet3").PivotTables(1) _.
PivotFields.Item("year").Orientation = xlRowField
适用于
PivotFormulas 集合对象
描述
返回 PivotFormulas 集合中单个 PivotFormula 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 PivotFormulas 对象。
Index
Variant 类型，必选。数据透视表公式的索引号。
示例
本示例显示第一个数据透视表公式。
MsgBox Worksheets(1).PivotTables(1).PivotFormulas.Item(1).Formula
适用于
PivotItems 集合对象
描述
返回 PivotItems 集合中单个 PivotItem 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 PivotItems 对象。
Index
Variant 类型，必选。数据透视表数据项的名称或索引号。
示例
本示例隐藏 Sheet3 中第一个数据透视表的“1998”数据项。
Worksheets("Sheet3").PivotTables(1) _.
PivotFields("year").PivotItems.Item("1998").Visible = False
适用于
PivotTables 集合对象
描述
返回 PivotTables 集合中单个 PivotTable 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 PivotTables 对象。
Index
Variant 类型，必选。数据透视表的名称或索引号。
示例
本示例将 Year 字段设为 Sheet3 中第一个数据透视表的一个行字段。
Worksheets("Sheet3").PivotTables.Item(1) _.
PivotFields("year").Orientation = xlRowField
适用于
Points 集合对象
描述
句法
expression.Item(Index)
expression
必选。该表达式返回一个 Points 对象。
Index
Long 类型，必选。绘图点的索引号。
示例
本示例对标记样式进行设置。该标记是第一张工作表中第一张嵌入式图表的第一个系列的第三个绘图点的标记。指定系列必须为二维折线图、散点图或雷达图系列。
Worksheets(1).ChartObjects(1).Chart. _
SeriesCollection(1).Points.Item(3).MarkerStyle = xlDiamond
适用于
QueryTables 集合对象
描述
返回 QueryTables 集合中单个 QueryTable 对象
句法
expression.Item(Index)
expression
必选。该表达式返回一个 QueryTables 对象。
Index
Variant 类型，必选。查询表的索引号。
示例
本示例对查询表进行设置，以便查询表右侧的公式每次刷新时都可以进行自动更新。
Sheets("Sheet1").QueryTables.Item(1).FillAdjacentFormulas = True
适用于
Scenarios 集合对象
描述
返回 Scenarios 集合中单个 Scenario 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 Scenarios 对象。
Index
Variant 类型，必选。方案名称或索引号。
示例
本示例显示“Options”工作表的“Typical”方案。
Worksheets("options").Scenarios.Item("typical").Show
适用于
SeriesCollection 集合对象
描述
返回 SeriesCollection 集合中单个 Series 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 SeriesCollection 对象。
Index
Variant 类型，必选。系列名称或索引号。
示例
本示例对“Chart1”中的趋势线向前和向后延伸的单位数进行设置。本示例应在包含单个带趋势线系列的二维柱形图上运行。
With Charts("Chart1").SeriesCollection.Item(1).Trendlines.Item(1).
Forward = 5.
Backward = .5
End With
适用于
ShapeNodes 集合对象
描述
返回 ShapeNodes 集合中的单个 ShapeNode 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回 ShapeNodes 对象。
Index
Variant 类型，必选。形状节点的编号。
适用于
ShapeRange 集合对象
描述
返回 ShapeRange 集合中单个 Shape 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 ShapeRange 对象。
Index
Variant 类型，必选。形状的名称或索引号。
示例
本示例对一个形状区域中的第二个形状的属性进行 OnAction 设置。如果变量 sr 表示的不是 ShapeRange 对象则本示例失效。
sr.Item(2).OnAction = "ShapeAction"
适用于
Shpaes 集合对象
描述
返回 Shapes 集合中单个 Shape 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 Shapes 对象。
Index
Variant 类型，必选。形状的名称或索引号。
示例
本示例对一个 Shapes 集合中第二个形状的 OnAction 属性进行设置。如果变量 ss 代表的不是 Shapes 对象则本示例失效。
ss.Item(2).OnAction = "ShapeAction"
适用于
Trendlines 集合对象
描述
返回 Trendlines 集合中单个 Trendline 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 Trendlines 对象。
Index
Variant 类型，可选。趋势线的名称或索引号。
示例
本示例对“Chart1”中的趋势线向前和向后延伸的单位数进行设置。本示例应在包含单个带趋势线系列的二维柱形图上运行。
With Charts("Chart1").SeriesCollection(1).Trendlines.Item(1).
Forward = 5
. Backward = .5
End With
适用于
AddIns 集合对象
描述
返回 AddIns 集合中单个 AddIn 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 AddIns 对象。
Index
Variant 类型，必选。加载宏的名称或索引号。
适用于
Adjustments 对象
描述
返回或设置由 Index 参数所指定的调整值。对于线性调整，调整值 0.0 通常对应于形状的左边缘和上边缘，而值 1.0 通常对应于形状的右边缘和下边缘。然而，对于某些形状，可以在其形状边框之外进行调整。对于辐射调整，调整值 1.0 对应于形状的宽度。对于角度调整，调整值是以度为单位指定的。Item 属性仅应用于具有调整的形状。Shape 对象，可读写。
句法
expression.Item(Index)
expression
必选。该表达式返回 Adjustments 对象。
Index
Long 类型，必选。调整的索引号。
说明
自选图形、连接符和艺术字对象可以具有至多八个调整。
适用于
Areas 集合对象
描述
返回 Areas 集合中的单个 Range 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 Areas 对象。
Index
Long 类型，必选。指定区域的索引号。
示例
本示例检查当前选定区域是否为多重选定区域，如果是则清除其中的第一个子区域的内容。If Selection.Areas.Count <> 1 Then
Selection.Areas.Item(1).Clear
End If
适用于
Borders 集合对象
描述
返回 Border 对象，该对象代表单元格区域或样式的某一边框。只读。
句法
expression.Item(Index)
expression
必选。该表达式返回 Borders 集合的表达式。
Index
Long 类型，必选。要返回的边框。可为下列 XlBorderType 常量之一：xlInsideHorizontal，xlInsideVertical，xlDiagonalDown，xlDiagonalUp，xlEdgeBottom，xlEdgeLeft，xlEdgeRight或xlEdgeTop。
示例
下面的示例设置单元格 A1:G1 的底部边界颜色。
Worksheets("Sheet1").Range("a1:g1"). _
Borders.Item(xlEdgeBottom).Color = RGB(255, 0, 0)
适用于
Charts 对象
描述
返回 Charts 集合中的单个 Chart 对象。
句法
expression.Item(Index)
expression
该表达式返回一个 Charts 对象。
Index
Variant 类型，必选。指定图表的名称或索引号。
示例
本示例对“Chart1”中的趋势线向前和向后延伸的单位数进行设置。本示例应在包含单个带趋势线系列的二维柱形图上运行。
With Charts.Item("Chart1").SeriesCollection(1).Trendlines(1).
Forward = 5.
Backward = .5
End With
适用于
CubeFields 集合对象
描述
返回 CubeFields 集合中的一个 CubeField 对象。只读。
句法
expression.Item(Index)
xpression
一个返回 CubeFields 对象的表达式。
Index
必选。Long 类型。表示 CubeField 对象的索引号。
示例
本示例查找第一个数据透视表，该数据透视表的第一个立体字段的名称包含字符串“Paris”。如果该名称找到，则Boolean类型变量blnFoundName的值设为True。
blnFoundName = False
For Each objPT in ActiveSheet.PivotTables
Set objCubeField = _
ObjPT.CubeFields.Item(1)
If instr(1,objCubeField.Name, "Paris") <> 0 Then
blnFoundName = True
Exit For
End If
Next objPT
适用于
Dialogs 集合对象
描述
返回 Dialog 对象，该对象代表单个内部对话框。只读。
句法
expression.Item(Index)
expression
必选。该表达式返回 Dialogs 集合的表达式。
Index
Long 类型，必选。要返回的内部对话框。可为任意 XlBuiltInDialog 常量之一。
说明
使用 Dialogs 集合的 Item 属性以及 Show 方法，可显示大约 200 个内部对话框。每个对话框都有一个常量与之对应；这些常量均以“xlDialog”开头。
如果试图在不适当的上下文中显示对话框， Dialogs 集合的 Item 属性可能会失败。例如，若要显示“数据标志”对话框（用 Visual Basic 表达式Application.Dialogs(xlDialogDataLabel).Show），那么活动工作表就必须是图表；否则该属性将失败。
示例
该示例演示 Open对话框并选定Read-Only 选项。
Application.Dialogs.Item(xlDialogOpen).Show arg3:=True
适用于
Filters 集合对象
描述
返回 Filters 集合中的一个 Filter 对象。
句法
expression.Item(Index)
expression
一个返回 Filters对象的表达式。
Index
必选。Long 类型。表示过滤器的索引号。
示例
下面的示例将一个变量的值设为 Crew 工作表的已过滤范围的第一列的过滤器的 On属性。
Set w = Worksheets("Crew")
If w.AutoFilterMode Then
filterIsOn = w.AutoFilter.Filters.Item(1).On
End If
适用于
HPageBreakers 集合对象
描述
返回 HPageBreaks 集合中单个 HPageBreak 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 HPageBreaks 对象。
Index
Long 类型，必选。水平分页符的索引号。
示例
本示例更改第一个水平分页符的位置。
Worksheets(1).HPageBreaks.Item(1).Location = .Range("e5")
适用于
Hyperlinks 集合对象
描述
返回 Hyperlinks 集合中单个 Hyperlink 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 Hyperlinks 对象。
Index
Variant 类型，必选。超级链接的名称或索引号。
示例
下列示例激活 E5 单元格的第一个超级链接。
Worksheets(1).Range("E5").Hyperlinks.Item(1).Follow
适用于
Panes 集合对象
描述
返回 Panes 集合中单个 Pane 对象。
句法
expression.Item(Index)
expression
必选。该表达式返回一个 Panes 对象。
Index
Long 类型，必选。窗格的索引号。
示例
本示例拆分第一张工作表所在的窗口，然后将左下角窗格的第五行滚动到此窗格的顶部。
Worksheets(1).
ActivateActiveWindow.Split = True
ActiveWindow.Panes.Item(3).ScrollRow = 5
适用于
Phonetics 集合对象
描述
返回Phonetics 集合中单个Phonetic 对象。Object类型，只读。
句法
expression.Item(Index)
expression
必选。该表达式返回一个Phonetics 对象。
Index
Long 类型，必选。Phonetic对象的索引号。
示例
本示例使活动单元格的第一个拼音文本字符串可见。
ActiveCell.Phonetics.Item(1).Visible = True
适用于
PublishObjects 集合对象
描述
返回 PublishObjects 集合中的一个 PublishObject 对象。只读。
句法
expression.Item(Index)
expression
一个返回 PublishObjects 对象的表达式。
Index
必选。Long 类型。表示该 PublishObject 对象的索引号。
示例
本示例从某个标记中获取标识符，并在名为“q198.htm”的 Web 页（通过保存某个工作簿得到的）中查找该行。然后，本示例还创建该 Web 页的一个副本 (newq1.htm)，并在该副本的标记前插入一个注释行。
strTargetDivID = ActiveWorkbook.PublishObjects.Item(1).DivID
Open "\\server1\reports\q198.htm" For Input As #1
Open "\\server1\reports\newq1.htm" For Output As #2
While Not EOF(1)
Line Input #1, strFileLine
If InStr(strFileLine, strTargetDivID) > 0 And _