返回 Axes 集合中的单个 Axis 对象。
expression.Item(Type, AxisGroup)
expression 必需。该表达式返回一个 Axes 集合。
Type XlAxisType 类型,必需。坐标轴类型。
XlAxisType 可为以下 XlAxisType 常量之一。 |
xlCategory |
xlSeriesAxis 仅对三维图表有效。 |
xlValue |
AxisGroup XlAxisGroup 类型,可选。坐标轴。
XlAxisGroup 可为以下 XlAxisGroup 常量之一。 |
xlPrimary 默认值 |
xlSecondary |
返回 Names 集合中的单个 Name 对象。
expression.Item(Index, IndexLocal, RefersTo)
expression 必需。该表达式返回一个 Names 集合。
Index Variant 类型,可选。要返回的定义名的名称或编号。
IndexLocal Variant 类型,可选。用户语言形式的定义名的名称。如果使用本参数,则不翻译任何名称。
RefersTo Variant 类型,可选。引用的名称。使用本参数可通过其引用的内容识别名称。
必须指定以上三个参数之一,且只能指定一个。
应用于 Comments、ODBCErrors、OLEDBErrors 和 Points 对象的 Item 方法。
返回集合中的单个对象。
expression.Item(Index)
expression 必需。该表达式返回上面的对象之一。
Index Long 类型,必需。对象的索引号。
返回集合中的单个对象。
expression.Item(Index)
expression 必需。该表达式返回“应用于”列表中的其他所有对象。
Index Variant 类型,必需。对象的名称或索引号。
对象的文本名称就是 Name 和 Value 属性的值。对于联机分析处理 (OLAP) 数据源,该值和 SourceName 属性的值相同,而对于其他的数据源,该值与 Caption 属性值相同。
本示例对 Chart1 中分类轴的标题文本进行设置。
With Charts("chart1").Axes.Item(xlCategory)
.HasTitle = True
.AxisTitle.Caption = "1994"
End With
本示例为第一个已计算字段设置公式。
Worksheets(1).PivotTables(1).CalculatedFields.Item(1) _
.Formula = "=Revenue - Cost"
应用于 CalculatedItems 和 PivotItemList 对象。
本示例隐藏第一个已计算数据项。
Worksheets(1).PivotTables(1).PivotFields("year") _
.CalculatedItems.Item(1).Visible = False
应用于 CanvasShapes、GroupShapes 和 ShapeRange 对象。
本示例对某个图形区域中第二个图形的属性 OnAction 进行设置。如果变量 sr 不代表 ShapeRange 对象,则本示例失效。
Dim sr As Shape
sr.Item(2).OnAction = "ShapeAction"
本示例为第一个图表中的第一个图表组添加垂直线。
Charts(1).ChartGroups.Item(1).HasDropLines = True
本示例激活第一张嵌入图表。
Worksheets("sheet1").ChartObjects.Item(1).Activate
本示例隐藏第二条批注。
Worksheets(1).Comments.Item(2).Visible = False
本示例在名为“Current Inventory”的自定义视图中包含打印设置。
ThisWorkbook.CustomViews.Item("Current Inventory") _
.PrintSettings = True
本示例对数据标签的数字格式进行设置。该数据标签是第一张工作表中第一张嵌入图表的第一个数据系列的第五个数据标签。
Worksheets(1).ChartObjects(1).Chart _
.SeriesCollection(1).DataLabels.Item(5).NumberFormat = "0.000"
本示例对 E1:E10 单元格的现有条件格式的格式属性进行设置。
With Worksheets(1).Range("e1:e10").FormatConditions.Item(1)
With .Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 6
End With
End With
本示例对 Sheet1 中第一张嵌入图表的图例(通常是第一个数据系列的图例)顶部的图例项的文本字体进行更改。
Worksheets("sheet1").ChartObjects(1).Chart _
.Legend.LegendEntries.Item(1).Font.Italic = True
本示例将活动工作簿中的“mySortRange”名称删除。
ActiveWorkbook.Names.Item("mySortRange").Delete
本示例显示一个 ODBC 错误。
Set er = Application.ODBCErrors.Item(1)
MsgBox "The following error occurred:" &
er.ErrorString & " : " & er.SqlState
本示例显示一个 OLE DB 错误。
Set objEr = Application.OLEDBErrors.Item(1)
MsgBox "The following error occurred:" & _
objEr.ErrorString & " : " & objEr.SqlState
本示例将 Sheet1 中的第一个 OLE 对象删除。
Worksheets("sheet1").OLEObjects.Item(1).Delete
本示例更改参数提示字符串。
With Worksheets(1).QueryTables(1).Parameters.Item(1)
.SetParam xlPrompt, "Please " & .PromptString
End With
本示例刷新第一个缓冲区。
ActiveWorkbook.PivotCaches.Item(1).Refresh
本示例将“Year”字段设置成 Sheet3 中第一个数据透视表上的一个行字段。
Worksheets("sheet3").PivotTables(1) _
.PivotFields.Item("year").Orientation = xlRowField
本示例显示第一张工作表中第一个数据透视表的第一个公式。
MsgBox Worksheets(1).PivotTables(1).PivotFormulas.Item(1).Formula
本示例隐藏 Sheet3 中第一个数据透视表的“1998”数据项。
Worksheets("sheet3").PivotTables(1) _
.PivotFields("year").PivotItems.Item("1998").Visible = False
本示例将“Year”字段设置成 Sheet3 中第一个数据透视表上的一个行字段。
Worksheets("sheet3").PivotTables.Item(1) _
.PivotFields("year").Orientation = xlRowField
本示例对标志样式进行设置。该标志是第一张工作表中第一张嵌入图表的第一个数据系列的第三个绘图点的标志。指定系列必须为二维折线图、散点图或雷达图系列。
Worksheets(1).ChartObjects(1).Chart. _
SeriesCollection(1).Points.Item(3).MarkerStyle = xlDiamond
本示例对查询表进行设置,以便查询表右侧的公式在每次刷新时都可以进行自动更新。
Sheets("sheet1").QueryTables.Item(1).FillAdjacentFormulas = True
本示例显示名为“Options”的工作表上的“Typical”方案。
Worksheets("options").Scenarios.Item("typical").Show
本示例对 Chart1 中的趋势线向前和向后延伸的单位数进行设置。本示例应在包含单个带趋势线系列的二维柱形图上运行。
With Charts("Chart1").SeriesCollection.Item(1).Trendlines.Item(1)
.Forward = 5
.Backward = .5
End With
本示例对一个 Shapes 集合中第二个图形的 OnAction 属性进行设置。如果变量 ss 代表的不是 Shapes 对象,则本示例失效。
Dim ss As Shape
ss.Item(2).OnAction = "ShapeAction"
本示例对 Chart1 中的趋势线向前和向后延伸的单位数进行设置。本示例应在包含单个带趋势线系列的二维柱形图上运行。
With Charts("Chart1").SeriesCollection(1).Trendlines.Item(1)
.Forward = 5
.Backward = .5
End With