适用于
Range 对象
描述
调整区域内的文字，使之均衡地填充该区域。
句法
expression.Justify
expression
必选。该表达式返回 Range 对象。
说明
如果指定区域不够大， Microsoft Excel 将显示一消息框，指出文字将会延伸到区域的下方。如果按下“确定”按钮，被调整的文字将取代选定区域下方单元格的内容。将 DisplayAlerts 属性设置为 False，可防止这一消息框的出现。这样的话，文字将总是取代选定区域下方单元格的内容。
示例
本示例调整工作表“Sheet1”上单元格“A1”中的文字。
Worksheets("Sheet1").Range("A1").Justify
适用于
Workbook 对象
描述
如果共享工作簿修订追踪功能处于打开状态则为 True。Boolean 类型，可读写。
示例
本示例用于设置追踪天数：当修订追踪功能处于打开状态，为活动工作簿的修订追踪功能设置追踪天数。
With ActiveWorkbook
If .KeepChangeHistory Then.
ChangeHistoryDuration = 7
End If
End With
适用于
TextEffectFormat 对象
描述
如果指定的艺术字对象是调整字距的，本属性为 True。Long 类型，可读写。
示例
如果 myDocument 中的第三个形状是艺术字对象，本示例将打开其字距调整功能。
Set myDocument = Worksheets(1)
With myDocument.Shapes(3)
If .Type = msoTextEffect Then
.TextEffect.KernedPairs = True
End If
End With
适用于
PivotField 对象，PivotItem 对象
描述
PivotField 对象：返回一个 Range 对象，该对象代表包含字段标记的单元格（或多个单元格）。只读。
PivotItem 对象：返回一个 Range 对象，该对象代表所有包含指定数据项的数据透视表单元格。只读。
示例
本示例选择“ORDER_DATE”字段的字段按钮。
Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
Set pvtField = pvtTable.PivotFields("ORDER_DATE")
Worksheets("Sheet1").Activate
pvtField.LabelRange.Select
适用于
Application 对象
描述
返回 LanguageSettings 对象，该对象包含 Microsoft Excel 中有关语言设置的信息。只读。
另见
LanguageSettings对象《Microsoft Office 语言参考手册》
示例
本示例返回在安装 Microsoft Excel 时所选语言的语言标识符。
Set objLangSet = Application.LanguageSettings
MsgBox objLangSet.LanguageID(msoLanguageIDInstall)
适用于
ControlFormat 对象
描述
返回或者设置滚动一页时，滚动框增量或减量的大小（当用户单击滚动条时）。
Long 类型，可读写。
另见
示例
本示例创建一个滚动条，并对其链接单元格、最小值、最大值、大步长值和小步长值进行设置。
Set sb = Worksheets(1).Shapes.AddFormControl(xlScrollBar, _
Left:=10, Top:=10, Width:=10, Height:=200)
With sb.ControlFormat
.LinkedCell = "D1"
.Max = 100.
Min = 0.
LargeChange = 10.
SmallChange = 2
End With
适用于
Pane 对象,Window 对象
描述
按页滚动窗口内容。
句法
expression.LargeScroll(Down, Up, ToRight, ToLeft)
expression
必选。 该表达式返回一个 Window 对象。
Down
Variant 类型，可选。将窗口内容向下滚动的页数。
Up
Variant 类型，可选。将窗口内容向上滚动的页数。
ToRight
Variant 类型，可选。将窗口内容向右滚动的页数。
ToLeft
Variant 类型，可选。将窗口内容向左滚动的页数。
说明
如果同时指定了 Down 和 Up，窗口内容上下方向滚动的页数由这两个参数的差决定。例如，如果 Down 为 3，Up 为 6，则窗口向上滚动3页。
如果同时指定了 ToLeft 和 ToRight， 窗口内容左右方向滚动的页数由这两个参数的差决定。例如，如果 ToLeft 为 3，ToRight 为 6，则窗口向右滚动3页。
所有这四个参数都可以使用负数。
另见
示例
本示例将 Sheet1 的活动窗口的内容向下滚动三页。
Worksheets("Sheet1").Activate
ActiveWindow.LargeScroll down:=3
适用于
PivotField 对象
描述
如果在数据透视表报表的指定行字段后插入了一个空行，则其值为 True。默认值为 False。可读写。Boolean 类型。
说明
可以对任意数据透视表字段设置此属性；然而，只有当指定字段是除最里层（最低级别）行字段之外的其它行字段时，该空行才会出现。当重新排列该字段或将其添加到数据透视表报表中时，此属性的值都不会改变。
不能在数据透视表报表的空行中输入数据。
示例
本示例在活动工作表第一个数据透视表报表的状态字段后添加一个空行。
With ActiveSheet.PivotTables("PivotTable1") _
.PivotFields("state")
.LayoutBlankLine = True
End With
适用于
PivotField 对象
描述
返回或设置指定数据透视表项的显示方式，即：表格格式或分级显示格式。可以是下列 XlLayoutFormType 常量之一：xlTabular 或 xlOutline。如果指定或返回的是 xlOutline，则 LayoutSubtotalLocation 属性用于指定数据透视表报表中分类汇总显示的位置。其默认值为 xlTabular。可读写。
XlLayoutFormType 类型。
说明
可以对任意数据透视表字段设置此属性。然而，只有当指定字段是除最里层（最低级别）行字段之外的其它行字段时，该格式才会出现。当重新排列该字段或将其添加到数据透视表报表中或从数据透视表报表中删除时，此属性的值都不会更改。
示例
本示例以分级显示格式显示活动工作表上第一个数据透视表报表中的状态字段，然后在该字段顶部显示分类汇总。
With ActiveSheet.PivotTables("PivotTable1") _
.PivotFields("state")
.LayoutForm = xlOutline
.LayoutSubtotalLocation = xlTop
End With
适用于
PivotField 对象
描述
如果每一字段后都插入了分页符，则其值为 True。默认值为 False。可读写。Boolean 类型。
说明
虽然可以对任意数据透视表字段设置此属性，但只有当指定字段是除最里层（最低级别）行字段之外的其它行字段时，打印选项才会出现。当重新排列该字段或将其添加到数据透视表报表中或从数据透视表报表中删除时，此属性的值都不会更改。
示例
本示例在活动工作表第一个数据透视表报表的状态字段之后添加一个分页符。
With ActiveSheet.PivotTables("PivotTable1") _
.PivotFields("state")
.LayoutPageBreak = True
End With
适用于
PivotField 对象
描述
返回或设置数据透视表字段分类汇总相对于指定字段（上或下）的位置。可以为下列 XlSubtotalLocationType 常量之一：xlAtTop 或 xlAtBottom。默认值为 xlAtBottom。可读写。Long 类型。
说明
可以对任意具有分级显示格式的数据透视表字段设置此属性；但是，只有当指定字段是除最里层（最低级别）行字段之外的其它行字段时，格式才会出现。当重新排列该字段或将其添加到数据透视表报表中或从数据透视表报表中删除时，此属性的值都不会更改。
LayoutForm 属性确定报表格式为表格格式还是分级显示格式。
示例
本示例将活动工作表第一个数据透视表报表中的状态字段以分级显示格式进行显示，并在该字段的顶部显示分类汇总。
With ActiveSheet.PivotTables("PivotTable1") _
.PivotFields("state")
.LayoutForm = xlOutline
.LayoutSubtotalLocation = xlAtTop
End With
描述
代表图表的引出行。引出行将数据标志与数据绘制点相连接。该对象不是一个集合；没有表示单个引出行的对象。
使用 LeaderLines 对象
使用 LeaderLines 属性可返回 LeaderLines 对象。下列示例为第一张图表中第一个系列添加数据标志和蓝色的引出线。
With Worksheets(1).ChartObjects(1).Chart.SeriesCollection(1).
HasDataLabels = True.
DataLabels.Position = xlLabelPositionBestFit.
HasLeaderLines = True.
LeaderLines.Border.ColorIndex = 5
End With
属性
Application 属性，Border 属性，Creator 属性，Parent 属性
方法
Delete 方法，Select 方法
适用于
Series 对象
描述
返回 LeaderLines 对象，该对象代表系列的前导线。只读。
示例
本示例向饼图上的第一个系列添加数据标志和蓝色前导线。
With Worksheets(1).ChartObjects(1).Chart.SeriesCollection(1).
HasDataLabels = True.
DataLabels.Position = xlLabelPositionBestFit.
HasLeaderLines = True.
LeaderLines.Border.ColorIndex = 5
End With
适用于
Application 对象，Axis 对象，AxisTitle 对象，ChartArea 对象，ChartObject对象，ChartObjects 集合对象，ChartTitle 对象，Datalabel 对象，DispalyUnitLabel 对象，Legend 对象，LegendEntry 对象，LegendKey 对象，OLEObject 对象，OLEObjects 集合对象，PlotArea 对象，Range 对象，Shape 对象，ShapeRange 集合对象，Window 对象
描述
以磅为单位返回或设置指定对象的位置。Long 类型，可读写，除非有下表所示的例外。
说明
Left 属性的含义依赖于所指定的对象。
| 对象 | 含义 |
| Application | 从屏幕左边界至 Microsoft Excel 主窗口左边界的距离。 |
| Axis，LegendEntry，LegendKey | 从对象左边界至图表区左边界的距离。只读。 |
| Range | 从“A”列左边界至该区域左边界的距离。如果该区域不连续，则以第一块区域计算。如果该区域有若干列，则以区域中最左边的列计算。只读。 |
| Window | 从用户区左边界至窗口左边界的距离。 |
| AxisTitle，ChartArea，ChartTitle，DataLabel，Legend，OLEObject，PlotArea， Shape，ShapeRange | 从对象左边界至“ A ”列左边界（在工作表中）或图表区左边界（在图表工作表中）的距离。对ChartArea对象为只读。 |
如果窗口处于最大化状态， Application.Left 返回负数，该负数的值依窗口边框的宽度而定。将 Application.Left 设置为 0（零）将使窗口比其最大化时稍微小一些。换句话说，如果 Application.Left 为 0（零），Microsoft Excel主窗口的左边框在屏幕上刚好能被看到。
在 Windows 中，如果 Microsoft Excel 窗口处于最小化状态，Application.Left 将控制其图标的位置。
另见
示例
本示例使内嵌图表的左边界与“B”列的左边界对齐
With Worksheets("Sheet1").ChartObjects(1).
Left = .Columns("B").Left
End With
适用于
PageSetup 对象
描述
返回或者设置页脚的左边部分内容。String 类型，可读写。
说明
可在页脚文字中使用特定的格式设置代码。
另见
CenterFooter 属性， CenterHeader 属性， LeftHeader 属性， RightFooter 属性， RightHeader 属性
示例
本示例设置在每一页的左下角打印页号。
Worksheets("Sheet1").PageSetup.LeftFooter = "&P"
另见
描述
返回或者设置页眉的左边部分内容。String 类型，可读写。
说明
可在页眉文字中使用特定的格式设置代码。
另见
CenterFooter 属性， CenterHeader 属性， LeftFooter 属性， RightFooter 属性， RightHeader 属性
示例
本示例设置在每一页的左上角打印日期。
Worksheets("Sheet1").PageSetup.LeftHeader = "&D"
适用于
PageSetup 对象
描述
以磅为单位返回或者设置左边距的大小。Double 类型，可读写。
说明
边距的设置和返回均以磅为单位。可使用 InchesToPoints 方法进行英寸到磅值的转换，也可使用 CentimetersToPoints 方法进行厘米到磅值的转换。
另见
BottomMargin 属性， RightMargin 属性， TopMargin 属性
示例
本示例将 Sheet1 的左边距设为 1.5 英寸。
Worksheets("Sheet1").PageSetup.LeftMargin = _
Application.InchesToPoints(1.5)
本示例将 Sheet1 的左边距设为 2 厘米。
Worksheets("Sheet1").PageSetup.LeftMargin = _
Application.CentimetersToPoints(2)
本示例显示 Sheet1 的中左边距的当前设定值。
marginInches = Worksheets("Sheet1").PageSetup.LeftMargin / _
Application.InchesToPoints(1)
MsgBox "The current left margin is " & marginInches & " inches"
描述
代表图表中的图例。每个图表只能有一个图例。Legend 对象包含一个或多个 LegendEntry 对象；每个 LegendEntry 对象包含一个 LegendKey 对象。
使用Legend 对象可用 Legend 属性返回 Legend 对象。下例将第一个工作表上第一个嵌入式图表的字体设置为加粗。
Worksheets(1).ChartObjects(1).Chart.Legend.Font.Bold = True
说明
将 HasLegend 属性设置为 True 以后，才能显示图表的图例。如果该属性为 False，Legend 对象的属性和方法将失败。
属性
Application 属性，AutoScaleFont 属性，Border 属性，Creator 属性，Fill属性，Font 属性，Height 属性，Interior 属性，Left 属性，Name 属性，Parent 属性，Position 属性，Shadow 属性，Top 属性，Width 属性
方法
Clear 方法，Delete 方法，LegendEntries 方法，Select 方法
适用于
Chart 对象
描述
返回一个 Legend 对象，该对象代表指定图表中的图例。只读。
另见
示例
本示例显示“Chart1”的图例，然后将图例颜色设为蓝色。
Charts("Chart1").HasLegend = True
Charts("Chart1").Legend.Font.ColorIndex = 5
描述
在指定的图表图例中的所有 LegendEntry 对象的集合。每个图例项有两个部分：图例项的文字，这些文字是与图例项有关的数据系列或趋势线的名称；及图例项的标记，该标记用图形表示图例项与数据系列或趋势线的对应关系。图例项标记与其相应系列或趋势线的格式属性包含在 LegendKey对象中。
使用LegendEntries 集合
可用 LegendEntries 方法返回 LegendEntries 集合。下例在第一个嵌入式图表中的图例项集合中循环，并修改这些图例项的字体颜色。
With Worksheets("sheet1").ChartObjects(1).Chart.Legend
For i = 1 To .LegendEntries.Count
.LegendEntries(i).Font.ColorIndex = 5
Next
End With
可用 LegendEntries(index) （其中 index 为图例项的编号）返回单个LegendEntry 对象。不能用名称返回图例项。
图例项的编号代表图例项在图例中的位置。LegendEntries(1) 位于图例的顶部； LegendEntries(LegendEntries.Count) 位于图例的底部。下例将第一个嵌入式图表中图例顶部的图例项（这通常是第一个数据系列的图例）的文字字体设置为倾斜。
Worksheets("sheet1").ChartObjects(1).Chart _
.Legend.LegendEntries(1).Font.Italic = True
属性
Application 属性，Count 属性，Creator 属性，Parent 属性
方法
Item 方法(LegendEntries 集合)
适用于
Legend 对象
描述
返回代表图例中的单个图例项（LegendEntry 对象，句法 1）或图例项集合（LegendEntries 对象，句法 2）的对象。
句法 1
expression.LegendEntries(Index)
句法 2
expression.LegendEntries
expression
必选。该表达式返回一个 Legend 对象。
Index
Variant 类型。可选。图例项的编号。
示例
本示例设置图表“Chart1”上第一个图例项的字体。
Charts("Chart1").Legend.LegendEntries(1).Font.Name = "Arial"
描述
代表图表图例中的图例项。LegendEntry 对象是 LegendEntries 集合的成员。LegendEntries 集合包含图例中的所有 LegendEntry 对象。
每个图例项有两个部分：图例项的文字，这些文字是与图例项有关的数据系列或趋势线的名称；及图例项的标记，该标记用图形表示图例项与数据系列或趋势线的对应关系。图例项标记与其相应系列或趋势线的格式属性包含在 LegendKey 对象中。
不能修改图例项的文字。LegendEntry 对象支持字体格式，且可被删除。图例项不支持图案格式。图例项的位置和尺寸是固定的。
使用LegendEntry 对象
可用 LegendEntries(index) （其中 index 为图例项的编号）返回单个LegendEntry 对象。不能用名称返回图例项。
图例项的编号代表图例项在图例中的位置。LegendEntries(1) 位于图例的顶部； LegendEntries(LegendEntries.Count) 位于图例的底部。下例修改第一个嵌入式图表中图例顶部的图例项（这通常是第一个数据系列的图例）的文字字体。
Worksheets(搒heet1?.ChartObjects(1).Chart _.
Legend.LegendEntries(1).Font.Italic = True
说明
没有返回相应于某图例项的数据系列或趋势线的直接方法。
将图例项删除后，将其恢复的唯一方法是，将 HasLegend 属性设置为False，再设置为 True，从而去掉并重新创建包含该图例项的图例。
属性
Application 属性，AutoScaleFont 属性，Creator 属性，Font 属性，Height属性，Index 属性，Left 属性，LegendKey 属性，Parent 属性，Top 属性，Width 属性
方法
Delete方法，Select方法
描述
代表图表图例中的图例标示。图例标示用图形表示图例项与图表中数据系列或趋势线的对应关系。图例标示与其相应的数据系列或趋势线的关系表现为，修改两者之一的格式将同时修改另一个的格式。
使用LegendKey 对象
可用 LegendKey 属性返回 LegendKey 对象。下例修改工作表“Sheet1”上第一个嵌入式图表中图例顶部的图例标示的背景颜色。这将同时修改与该图例项相应的数据系列中所有数据点的格式。相应的数据系列必须支持数据标记。
Worksheets("sheet1").ChartObjects(1).Chart _
.Legend.LegendEntries(1).LegendKey.MarkerBackgroundColorIndex = 5
属性
Application 属性，Border 属性，Creator 属性，Fill 属性，Height 属性，Interior 属性，InvertNegative 属性，Left 属性，MarkerBackgroundColor属性，MarkerBackgroundColorIndex 属性，MarkerForegroundColor 属性，MarkerForegroundColorIndex 属性，MarkerSize 属性，MarkerStyle 属性，Parent 属性，PictureType 属性，PictureUnit 属性，Shadow 属性，Smooth 属性，Top 属性，Width 属性
方法
ClearFormats 方法，Delete 方法，Select 方法
适用于
LegendEntry 对象
描述
返回 LegendKey 对象，该对象代表与图例项相应的图例标示。
示例
本示例将图表“chart1”上第一个图例项的图例标示设置为三角形。本示例应在二维折线图上运行。
Charts("Chart1").Legend.LegendEntries(1).LegendKey _
.MarkerStyle = xlMarkerStyleTriangle
适用于
CalloutFormat 对象，Phonetics 集合对象
描述
当指定标注的 AutoLength 属性设置为 False 时，Length 属性以磅为单位返回标注线的第一条线段（即与标注文本框相连的线段）的长度。仅适用于于标注线由若干线段组成的标注（msoCalloutThree 类型和msoCalloutFour 类型）。Single 类型，只读。
说明
本属性为只读属性。可用 CustomLength 方法为 CalloutFormat 对象设置本属性的值。
示例
如果标注“callout1”的第一条线段的长度固定为某一值，那么本示例将使标注“callout2”的第一条线段的长度也固定为该值。为使本示例正常运行，两个标注必须都是由若干线段组成的。
Set myDocument = Worksheets(1)With myDocument.Shapes
With .Item("callout1").Callout
If Not .AutoLength Then len1 = .Length
End With
If len1 Then .Item("callout2").Callout.CustomLength len1
End With
本示例返回活动单元格第二个音标字符串的长度。
ActiveCell.FormulaR1C1 = “东京都涩谷区ケ木”
ActiveCell.Phonetics.Add Start:=1,length:=3, Text:=“トうキシぅト”
ActiveCell.Phonetics.Add Start:=4, length:=3, Text:=“シフ゛ ャヮ”
MsgBox ActiveCell.Phonetics(2).Length
适用于
Application 对象
描述
String 类型，返回库文件夹的路径，不带末尾分隔符。只读。
示例
本示例打开库文件夹中的 Oscar.xla 文件。
pathSep = Application.PathSeparator
f = Application.LibraryPath & pathSep & "Oscar.Xla"
Workbooks.Open filename:=f
适用于
Shape 对象，ShapeRange 集合对象
描述
返回 LineFormat 对象，该对象包含指定形状的线条格式属性。对于直线，LineFormat 对象代表该直线本身；对于带有边框的形状，LineFormat 对象代表其边框。只读。
示例
本示例向 myDocument 中添加蓝色的虚线。
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddLine(10, 10, 250, 250).Line
.DashStyle = msoLineDashDotDot
.ForeColor.RGB = RGB(50, 0, 128)
End With
本示例向 myDocument 中添加十字，然后将其边框设置为 8 磅粗的红色线条。
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeCross, 10, 10, 50, 70).Line
.Weight = 8
.ForeColor.RGB = RGB(255, 0, 0)
End With
适用于
Chart 对象
描述
返回一个 ChartGroups 对象，该对象代表三维图表中的折线图组。只读。
另见
示例
本示例设置“Chart1”的三维折线组，使其中的每一数据标记使用不同的颜色。
Charts("Chart1").Line3DGroup.VaryByCategories = True
描述
代表线条和箭头的格式。对于线条，LineFormat 对象包含该线条本身的格式信息；对于带有边框的形状，本对象包含该形状的边框的格式信息。
使用LineFormat 对象
可用 Line 属性返回 LineFormat 对象。下例向 myDocument 添加了兰色的虚线，并且在该线的起点有短而窄的椭圆，而在该线的终点有长而宽的三角形。
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddLine(100, 100, 200, 300).Line
.DashStyle = msoLineDashDotDot
.ForeColor.RGB = RGB(50, 0, 128)
.BeginArrowheadLength = msoArrowheadShort
.BeginArrowheadStyle = msoArrowheadOval
.BeginArrowheadWidth = msoArrowheadNarrow
.EndArrowheadLength = msoArrowheadLong
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadWidth = msoArrowheadWide
End With
属性
Application 属性，BackColor 属性，BeginArrowheadLength 属性，BeginArrowheadStyle 属性，BeginArrowheadWidth 属性，Creator 属性，DashStyle 属性，EndArrowheadLength 属性，EndArrowheadStyle 属性，EndArrowheadWidth 属性，ForeColor 属性，Parent 属性，Pattern 属性，Style 属性，Transparency 属性，Visible 属性，Weight 属性
适用于
Chart 对象
描述
在一个二维图表上返回一个对象，该对象既可代表单个折线图组（一个ChartGroup 对象，句法 1），也可代表一个折线图组集合（一个ChartGroups 集合，句法 2）。
句法 1
expression.LineGroups(Index)
句法 2
expression.LineGroups
expression
必选，该表达式返回一个 Chart 对象。
Index
Variant 类型，可选。指定图表组。
另见
AreaGroups 方法， BarGroups 方法， ChartGroups 方法， DoughnutGroups 方法， Line3DGroup 属性， PieGroups 方法
示例
本示例设置“Chart1”的第一个折线组，使其中的每一数据标记使用不同的颜色。本示例应在二维图表上运行。
Charts("Chart1").LineGroups(1).VaryByCategories = True
适用于
Border 对象，Borders 集合对象
描述
返回或者设置边框的线型。可为下列 XlLineStyle 常量之一：xlContinuous，xlDash，xlDashDot，xlDashDotDot，xlDot，xlDouble，xlSlantDashDot 或 xlLineStyleNone。Variant 类型，可读写。
示例
本示例为“Chart1”的图表区域和绘制区域设置边框。
With Charts("Chart1").
ChartArea.Border.LineStyle = xlDashDot
With .PlotArea.Border.
LineStyle = xlDashDotDot.
Weight = xlThick
End With
End With
适用于
ControlFormat 对象，OLEObject 对象
描述
返回或者设置附属于指定控制值的工作表区域。如果为这些单元格赋值，则指定控制也会取得相应的值。类似地，如果更改控制的值，附属单元格的值也作相应变动。String 类型，可读写。
说明
不能对允许多项选择的列表框使用该属性。
示例
本示例为第一张工作表添加复选框，并将 A1 单元格设置为此复选框的附属单元格。
With Worksheets(1)
Set cb = .Shapes.AddFormControl(xlCheckBox, 10, 10, 100, 10)
cb.ControlFormat.LinkedCell = "A1"
End With
描述
包含链接 OLE 对象所有属性。
使用 LinkFormat 对象
使用 LinkFormat 属性可返回 LinkFormat 对象。下列示例对指定 Shapes集合中的一个 OLE 对象进行更新。
Worksheets(1).Shapes(1).LinkFormat.Update
如果指定 Shape 对象不代表链接对象，则 LinkFormat 属性失效。
属性
Application 属性，AutoUpdate 属性，Creator 属性，Locked 属性，Parent属性
方法
Update 方法
适用于
Shape 对象
描述
返回一个 LinkFormat 对象，该对象包含链接 OLE 对象的所有属性。只读。
示例
本示例更新第一张工作表的所有链接 OLE 对象。
For Each s In Worksheets(1).Shapes
If s.Type = msoLinkedOLEObject Then s.LinkFormat.Update
Next
适用于
Workbook 对象
描述
返回工作簿中某个链接的日期及其更新状态。
句法
expression.LinkInfo(Name, LinkInfo, Type, EditionRef)
expression
必选。该表达式返回一个 Workbook 对象。
Name
String 类型，必选。链接的名称，就像 LinkSources 方法所返回的一样。
LinkInfo
Long 类型，必选。要返回的信息的类型。可为下列 XlLinkInfo 常量之一：xlUpdateState 或 xlEditionDate. xlEditionDate 仅用于公告板文章。对于xlUpdateState，如果链接的更新是自动的，本方法返回 1，反之，如果必须手动更新链接，则本方法返回 2。
Type
Variant 类型，可选。要返回的链接的类型。可为下列 XlLinkInfoType 常量之一： xlLinkInfoOLELinks（也处理 DDE 链接），xlLinkInfoPublishers或 xlLinkInfoSubscribers。EditionRef
Variant 类型，可选。如果链接为公告板文章，本参数以 R1C1 样式的字符串指定对公告板文章的引用。如果工作簿中存在同名的出版者和订阅者，那么本参数就是必选的。
示例
如果链接是自动更新的，本示例将显示消息框。
If ActiveWorkbook.LinkInfo( _
"Word.Document|Document1!'!DDE_LINK1", xlUpdateState, _
xlOLELinks) = 1 Then
MsgBox "Link updates automatically"
End If
适用于
Workbook 对象
描述
返回工作簿中链接的数组。数组中的名称为被链接的文档名、公告板文章名或者 DDE 或 OLE 服务器名。如果工作簿中无链接，本方法返回Empty。
句法
expression.LinkSources(Type)
expression
必选。该表达式返回一个 Workbook 对象。
Type
可选。要返回的链接的类型。可为下列 XlLink 常量之一： xlExcelLinks，xlOLELinks（也处理 DDE 链接），xlPublishers 或 xlSubscribers。
说明
如果链接类型不是出版者或订阅者，所返回的数组的格式为一维数组。所返回的字符串为链接源的名称，以与该类型的链接相应的记号表示。例如，DDE 链接将使用“Server|Document!Item”句法。
对于出版者或订阅者，返回的数组是二维的。数组的第一列包含公告板文章的名称，第二列以文字的形式给出对公告板文章的引用。
示例
本示例显示活动工作簿中 OLE 和 DDE 链接的列表。本方法应在包含一个或多个链接 Word 对象的工作簿中运行。
aLinks = ActiveWorkbook.LinkSources(xlOLELinks)
If Not IsEmpty(aLinks) Then
For i = 1 To UBound(aLinks)
MsgBox "Link " & i & ":" & Chr(13) & aLinks(i)
Next i
End If
适用于
ControlFormat 对象
描述
以字符串数组的形式，返回或者设置指定列表框或组合框中的文字项，也可返回或者设置单个文字项。如果指定列表框中没有数据项将出错。
句法
expression.List(Index)
expression
必选。该表达式返回一个 ControlFormat 对象。
Index
Variant 类型，可选。要设置或返回的单个文字项的索引号。如果省略该参数，则以字符串数组的形式返回或者设置整个列表。
说明
对该属性进行设置将清除任何由 ListFillRange 属性指定的区域。
另见
AddItem 方法， ListCount 属性， RemoveItem 方法
示例
本示例对第一张工作表中一个列表框的数据项进行设置。如果 Shapes(2) 代表的不是列表框则本示例将失效。
Worksheets(1).Shapes(2).ControlFormat.List = _
Array("cogs", "widgets", "sprockets", "gizmos")
本示例对第一张工作表中一个列表框的第四个数据项进行设置。如果Shapes(2) 代表的不是列表框则本示例将失效。
Worksheets(1).Shapes(2).ControlFormat.List(4) = "gadgets"
适用于
Workbook 对象
描述
如果在不同工作表中显示共享工作簿的更改则为 True。Boolean 类型，可读写。
另见
HighlightChangesOnScreen 属性， HighlightChangesOptions 方法
示例
如果在不同工作表中显示共享工作簿的更改则为 True。Boolean 类型，可读写。
With ActiveWorkbook.
HighlightChangesOptions _
When:=xlSinceMyLastSave, _
Who:= "Everyone"
.ListChangesOnNewSheet = True
End With
适用于
ControlFormat 对象
描述
返回列表框或者组合框中数据项的数目。如果列表中没有数据项则返回 0（零）。
Long 类型，只读。
另见
示例
本示例对组合框进行调整，使其可以显示列表中的所有数据项。如果Shapes(1) 不代表组合框则本示例无效。
Set cf = Worksheets(1).Shapes(1).ControlFormat
cf.DropDownLines = cf.ListCount
适用于
ControlFormat 对象，OLEObject 对象
描述
返回或者设置用于填充指定列表框的工作表区域。对该属性进行设置将破坏列表框中的所有列表项。String 类型，可读写。
说明
Microsoft Excel 对区域中的每一单元格的内容进行阅读，并将单元格值插入到列表框中。列表框对区域中单元格的修订进行追踪。
如果该列表框中的列表项是由 AddItem 方法创建的，则本属性返回一个空字符串（即 ""）。
另见
AddItem 方法， List 方法， RemoveItem 方法
示例
本示例将列表框添加入第一张工作表中，并为该列表框设置填充区域。
With Worksheets(1)
Set lb = .Shapes.AddFormControl(xlListBox, 100, 10, 100, 100)
lb.ControlFormat.ListFillRange = "A1:A10"
End With
适用于
PivotTable 对象
描述
在分离工作表上创建已计算数据透视表数据项和字段的列表。
句法
expression.ListFormulas
expression
必选。该表达式返回一个 PivotTable 对象。
说明
本方法对OLAP数据源不适用于。
示例
本示例为第一张数据透视表创建已计算数据项和字段的列表。
Worksheets(1).PivotTables(1).ListFormulas
适用于
Range 对象
描述
返回指定区域中标题行的行数。Long 类型，只读。
说明
对指定区域使用此属性之前，可用 CurrentRegion 属性找到该区域的边界
示例
本示例将变量 rTbl 设为活动单元格所在的当前区域，但不包含任何标题行。
Set rTbl = ActiveCell.CurrentRegion
' remove the headers from the range
iHdrRows = rTbl.ListHeaderRows
If iHdrRows > 0 Then
' resize the range minus n rows
Set rTbl = rTbl.Resize(rTbl.Rows.Count - iHdrRows)
' and then move the resized range down to
' get to the first non-header row
Set rTbl = rTbl.Offset(iHdrRows)
End If
适用于
ControlFormat 对象
描述
返回或者设置列表框或组合框中当前选定项的索引号。Long 类型，可读写。
说明
不能对允许多项选择的列表框使用本属性。
另见
示例
本示例删除列表框中的选定数据项。如果 Shapes(2) 不表示列表框则本示例无效。
Set lbcf = Worksheets(1).Shapes(2).ControlFormat
lbcf.RemoveItem lbcf.ListIndex
适用于
Range 对象
描述
从指定区域的第一个单元格位置开始，将所有未隐藏的名称的列表粘贴到工作表上。
句法
expression.ListNames
expression
必选。该表达式返回 Worksheet 对象。
说明
可用 Names 属性返回工作表中所有名称的集合。
示例
本示例从工作表“Sheet1”中单元格“A1”的位置开始，粘贴已定义名称的列表。本示例将粘贴工作表“Sheet1”上定义的工作簿级名称和工作表级名称。
Worksheets("Sheet1").Range("A1").ListNames
适用于
DefaultWebOptions对象
描述
在 Microsoft Excel 中打开某个文档时，如果装入图像，则其值为 True，通常这些图像和文档并不是在 Microsoft Excel 中创建的。如果未装入图像，则其值为 False。默认值为 True。可读写。Boolean 类型。
示例
本示例使得在 Excel 中打开文档时要装入图像。
Application.DefaultWebOptions.LoadPictures = True
适用于
PivotCache 对象
描述
返回或设置用于连接到脱机多维数据集文件的连接串。可读写。String 类型。
说明
对于非 OLAP 数据源，LocalConnection 属性为空串，且UseLocalConnection 属性被设置为 False。
设置 LocalConnection 属性并不会立即初始化对数据源的连接。必须首先使用 Refresh 方法建立连接并检索数据。
如果 UseLocalConnection 属性设置为 True，则将使用 LocalConnection属性的值。如果 UseLocalConnection 属性的值设置为 False，则Connection 属性可为基于非本地多维数据集文件数据源的查询表指定连接串。
有关连接串句法的详细信息，另见“帮助”主题中 PivotTables 集合的Add方法。
示例
本示例将第一个数据透视表缓存的连接字符设为一离线层次文件的参考。
With ActiveWorkbook.PivotCaches(1)
.LocalConnection = _
揙LEDB;Provider=MSOLAP;Data Source=c:\Data\DataCube.cub?
UseLocalConnection = True
End With
适用于
Chart 对象
描述
移动图表的位置。
句法
expression.Location(Where, Name)
expression
必选。该表达式返回 Chart 对象。
Where
Long 类型，必选。图表移动的目标位置。可为下列 XlChartLocation 常量之一： xlLocationAsNewSheet，xlLocationAsObject 或xlLocationAutomatic。
Name
Variant 类型，可选。如果 Where 参数为 xlLocationAsObject，本参数为必选。如果 Where 参数为 xlLocationAsObject，本参数指定将嵌入该图表的工作表的名称。如果 Where 参数为 xlLocationAsNewSheet，本参数指定新工作表的名称。
示例
本示例将内嵌图表移至新图表工作表“Monthly Sales”。
Worksheets(1).ChartObjects(1).Chart _
.Location xlLocationAsNewSheet, "Monthly Sales"
适用于
HPageBreak 对象，PublishObject 对象，VPageBreak 对象
描述
对于HPageBreak 对象和VPageBreak 对象，本属性返回或设置定义分页符位置的单元格（Range 对象）。水平分页符与定位单元格的顶端对齐；垂直分页符与定位单元格的左边界对齐。Range 类型，可读写。
对于PublishObject 对象，Location 属性返回保存源对象的URL(在Intranet或Web上)或路径（本地或网络）地址。String类型，可读写。
示例
本示例移动水平分页符的位置。
Worksheets(1).HPageBreaks(1).Location = Worksheets(1).Range("e5")
本示例设置活动工作簿第一项将要存储的位置。
ActiveWorkbook.PublishObjects(1).Location = _
“\\server2\ql\stockreport.htm”
适用于
Range 对象
描述
返回一个常量，该常量描述的是 PivotTable 中包含指定区域左上角的那一部分。可为下列 XlLocationInTable 常数之一： xlRowHeader，xlColumnHeader，xlPageHeader，xlDataHeader，xlRowItem，xlColumnItem，xlPageItem，xlDataItem 或 xlTableBody。Long 类型，只读。
示例
本示例显示一个信息框，在其中描述活动单元格在数据透视表中的位置。
Worksheets("Sheet1").Activate
Select Case ActiveCell.LocationInTable
Case Is = xlRowHeader
MsgBox "Active cell is part of a row header "
Case Is = xlColumnHeader
MsgBox "Active cell is part of a column header "
Case Is = xlPageHeader
MsgBox "Active cell is part of a page header "
Case Is = xlDataHeader
MsgBox "Active cell is part of a data header。 "
Case Is = xlRowItem
MsgBox "Active cell is part of a row item "
Case Is = xlColumnItem
MsgBox "Active cell is part of a column item "
Case Is = xlPageItem
MsgBox "Active cell is part of a page item "
Case Is = xlDataItem
MsgBox "Active cell is part of a data item "
Case Is = xlTableBody
MsgBox "Active cell is part of the table body "
End Select
适用于
DefaultWebOption 对象，WebOptions 对象
描述
返回或设置中央 URL（对于企业内部网或 Web）或路径（对于本地或网络而言），而授权用户可以在查看保存的文档时，从这些位置下载 MicrosoftOffice Web 组件。默认值是 Microsoft Office 的本地或网络安装路径。可读写。String 类型。
说明
如果 DownloadComponents 属性设置为 True，Office Web 组件也没有安装，路径是有效路径且指向包含必要组件的位置，同时用户还具有有效的Microsoft Office 2000 许可，则会自动从指定 Web 页中下载这些组件。
示例
本示例设置路径，用户可以从该位置下载 Microsoft Office Web 组件。
Application.DefaultWebOptions.DownloadComponents = True
Application.DefaultWebOptions.LocationOfComponents = _
Application.Path & Application.PathSeparator & "foo"
适用于
Shape方法，ShapeRange集合对象
描述
如果指定的形状在调整大小时保持其长宽比例不变，本属性为 True。如果可以分别地调整形状的长度和宽度，本属性为 False。Long 类型，可读写。
示例
本示例向 myDocument 中添加立方体。可移动该立方体及调整其大小，但不能改变其长宽比例。
Set myDocument = Worksheets(1)
myDocument.Shapes.AddShape(msoShapeCube, _
50, 50, 100, 200).LockAspectRatio = True
适用于
ChartObject 对象，ChartObjects 集合对象，LinkFormat 对象，OLEObject对象，OLEObjects 集合对象，Range 对象，Scenario 对象，Shape 对象，Style 对象
描述
如果对象被锁定则为 True，当工作表有保护时对象可被修改则为 False。如果指定区域既包含锁定单元格又包含不锁定单元格，则返回 Null。可读写，对于 Range 对象为 Variant 类型，对于其它对象为 Boolean 类型。
另见
FormulaHidden 属性， Protect 方法， Unprotect 方法
示例
本示例对 Sheet1 中 A1:G37 区域的单元格解除锁定，使得即便该工作表受保护也可对这些单元格进行修改。
Worksheets("Sheet1").Range("A1:G37").Locked = False
Worksheets("Sheet1").Protect
适用于
ControlFormat 对象
描述
如果工作簿受保护时，指定对象中的文字被锁定以免发生更改，则为 True。
Boolean 类型，可读写。
另见
Protect 方法， ProtectContents 属性
示例
本示例检查工作簿是否受保护，如果是则锁定第一张嵌入式图表中的文字。
Worksheets(1).ChartObjects(1).LockedText = True
适用于
OLEObject 对象
描述
当 ActiveX 控件失去输入焦点时，产生本事件。
句法
Private Sub object_LostFocus()
object
ActiveX 控件的名称。
另见
示例
当“ListBox1”失去输入焦点时，将运行本示例。
Private Sub ListBox1_LostFocus()
' runs when list box loses the focus
End Sub
适用于
Application 对象
描述
对应于MacroOptions对话框中的选项。
句法
expression.MacroOptions(Macro, Description, HasMenu, MenuText,HasShortcutKey, ShortcutKey, Category, StatusBar, HelpContextID, HelpFile)
expression
必选。该表达式返回一个 Application 对象。
Macro
Variant 类型，可选。宏名。
Description
Variant 类型，可选。宏的描述。
HasMenu
Variant 类型，可选。忽略该参数。
MenuText
Variant 类型，可选。忽略该参数。
HasShortcutKey
Variant 类型，可选。如果为 True 则为此宏指定一个快捷键（必须指定ShortcutKey 参数）。如果该参数设为 False，则，不为此宏指定快捷键。如果此宏已经指定了快捷键，则将该参数设为 False 可清除已指定的快捷键。。默认值为 False。
ShortcutKey
Variant 类型，可选。如果 HasShortcutKey 参数设为 True 则必选；否则忽略该参数。指定快捷键。
Category
Variant 类型，可选。用于指定宏函数分类的整数（例如，财务、日期与时间或用户自定义）。StatusBar
Variant 类型，可选。该宏的状态栏文字。
HelpContextId
Variant 类型，可选。用于指定对应于该宏的帮助主题的跳转标识符。
HelpFile
Variant 类型，可选。包含 HelpContextId 所定义的帮助主题的帮助文件名。
示例
本示例为 DoRand 宏添加快捷键。
Application.MacroOptions Macro:="DoRand", _
HasShortcutKey:=True, ShortcutKey:="Z"
适用于
Name 对象
描述
返回或者设置名称所引用的对象。Long 类型，可读写。
可为下列 XlMacroType 常量之一：
| 常量 | 意义 |
| xlCommand | 引用一个用户定义宏的名称。 |
| xlFunction | 引用一个用户定义函数的名称。 |
| xlNotXLM | 此名称不引用函数或宏。 |
另见
示例
本示例假定已在 Microsoft Excel 4.0 宏表上创建了一个自定义函数或自定义命令。
本示例显示函数分类，用宏语言表示。假定该自定义函数或自定义命令的名称在指定工作簿中唯一。
With ActiveWorkbook.Names(1)
If .MacroType <> xlNotXLM Then
MsgBox "The category for this name is " & .Category
Else
MsgBox This name does not refer to " & _
"a custom function or command."
End If
End With
适用于
Application 对象
描述
关闭一个 Microsoft Excel 建立的 MAPI 邮递会话。
句法
expression.MailLogoff
expression
必选。该表达式返回一个 Application 对象。
说明
不能使用本方法退出 Microsoft Mail。
另见
MailLogon 方法， MailSession 属性， SendMail 方法
示例
本示例检查是否有邮递会话，如果有则关闭之。
If Not IsNull(Application.MailSession) Then Application.MailLogoff
适用于
Application 对象
描述
登录进入 MAPI Mail 或 Microsoft Exchange 并建立一个邮递会话。如果Microsoft Mail 不处于运行状态，必须在使用邮件或文档传送功能之前先使用本方法建立邮递会话。
句法
expression.MailLogon(Name, Password, DownloadNewMail)
expression
必选。该表达式返回一个 Application 对象。
Name
Variant 类型，可选。邮递帐号名或者 Microsoft Exchange 配置文件名。如果省略该参数，将使用默认的邮递帐号名。
Password
Variant 类型，可选。邮递帐号密码。在 Microsoft Exchange 中忽略本参数。
DownloadNewMail
Variant 类型，可选。如果为 True 则立即下载新邮件。
说明
Microsoft Excel 在新建邮递会话之前将先退出所有已建立的邮递对话。省略名称和密码这两个参数可以直接返回到系统默认的邮递会话。
另见
MailLogoff 方法， MailSession 属性， SendMail 方法
示例
本示例登录进入邮递会话并立即下载任何新邮件。
If IsNull(Application.MailSession) Then
Application.MailLogon "oscarx", "mypassword", True
End If
适用于
Application 对象
描述
以十六进制数串的形式返回 MAPI 邮递会话（如果存在活动会话）；如果没有会话则返回 Null。Variant 类型，只读。
说明
本属性仅应用于由 Microsoft Excel 建立的邮递会话（不返回 Microsoft Mail的邮递会话号）。
本属性不用于 PowerTalk 邮件系统。
另见
MailLogoff 方法， MailLogon 方法， MailSystem 属性， SendMail 方法
示例
本示例检查是否有邮递会话，如果有则关闭之。
If Not IsNull(Application.MailSession) Then Application.MailLogoff
适用于
Application 对象
描述
返回主机上安装的邮件系统。可为下列 XlMailSystem 常量之一：xlNoMailSystem， xlMAPI 或 xlPowerTalk。Long 类型，只读。
另见
MailLogoff 方法， MailLogon 方法， MailSession 属性， SendMail 方法
示例
本示例显示本地计算机上安装的邮件系统名称。
Select Case Application.MailSystem
Case xlMAPIMsgBox "
Mail system is Microsoft Mail"
Case xlPowerTalkMsgBox "
Mail system is PowerTalk"
Case xlNoMailSystem
MsgBox "No mail system installed"
End Select
适用于
PivotCache 对象，QueryTable 对象
描述
如果对指定数据源的连接在刷新后被维护，并且工作簿关闭的情况下，返回值为True。缺省值为True。Boolean类型，可读写。
说明
只有当查询表或数据透视表高速缓存的 QueryType 属性设置为xlOLEDBQuery 时，才可以设置 MaintainConnection 属性。
如果预计会频繁对服务器进行查询，则可将此属性设置为 True，这样能减少重新连接的时间来提高性能。将此属性设置为 False 会关闭一个打开的连接。
示例
本示例在活动工作表的 A3 单元格上新建一个基于 OLAP 提供者的数据透视表高速缓存，然后基于该高速缓存新建一个数据透视表报表。本示例在初始化刷新后中断连接。
With ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
.Connection = _
"OLEDB;Provider=MSOLAP;Location=srvdata;Initial Catalog=National"
.MaintainConnection = False
.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
适用于
Axis 对象
描述
返回一个 Gridlines 对象，该对象代表指定坐标轴的主要网格线。网格线仅可在主要坐标轴组中设置。只读。
另见
AxisGroup 属性， HasMajorGridlines 属性， HasMinorGridlines 属性
示例
本示例为“Chart1”中数值坐标轴的主要网格线设置颜色。
With Charts("Chart1").Axes(xlValue)
If .HasMajorGridlines Then.
MajorGridlines.Border.ColorIndex = 5'set color to blue
End If
End With
适用于
Axis 对象
描述
返回或者设置指定坐标轴主要刻度线的类型。可为下列 XlTickMark 常量之一： xlTickMarkNone，xlTickMarkInside，xlTickMarkOutside 或xlTickMarkCross。
Long 类型，可读写。
另见
示例
本示例为“Chart1”数值坐标轴外侧设置主要刻度线。
Charts("Chart1").Axes(xlValue).MajorTickMark = xlTickMarkOutside
适用于
Axis 对象
描述
返回或者设置坐标轴的主要单位。Double 类型，可读写。
说明
对本属性进行设置则 MajorUnitIsAuto 属性将设为 False。使用 TickMarkSpacing 属性可对分类坐标轴上刻度间隔进行设置。
另见
MajorUnitIsAuto 属性， MajorUnitScale 属性， MinorUnit 属性， MinorUnitIsAuto 属性， MinorUnitScale 属性， TickMarkSpacing 属性
示例
本示例为“Chart1”的数值坐标轴设置主要和次要单位。
With Charts("Chart1").Axes(xlValue)
.MajorUnit = 100
.MinorUnit = 20
End With
适用于
Axis 对象
描述
如果 Microsoft Excel 计算指定坐标轴的主要单位则为 True。Boolean 类型，可读写。
说明
对 MajorUnit 属性进行设置则本属性设为 False。
另见
MajorUnit 属性， MajorUnitScale 属性， MinorUnit 属性， MinorUnitIsAuto属性， MinorUnitScale 属性
示例
本示例自动设置“Chart1”数值坐标轴的主要单位和次要单位。
With Charts("Chart1").Axes(xlValue)
.MajorUnitIsAuto = True
.MinorUnitIsAuto = True
End With
适用于
Axis 对象
描述
当 CategoryType 属性为 xlTimeScale 时，返回或设置分类轴主要单位的刻度值。可为下列 XlTimeUnit 常量之一： xlDays，xlMonths 或 xlYears。Long 类型，可读写。
另见
BaseUnit 属性， MajorUnit 属性， MajorUnitIsAuto 属性， MinorUnit 属性， MinorUnitIsAuto 属性， MinorUnitScale 属性
示例
本示例使分类轴使用时间刻度，并设置主要单位和次要单位。
With Charts(1).Axes(xlCategory)
.CategoryType = xlTimeScale
.MajorUnit = 5
.MajorUnitScale = xlDays
.MinorUnit = 1
.MinorUnitScale = xlDays
End With
适用于
PivotTable 对象
描述
如果数据透视表仅当用户要求时才重新计算，本属性为 True。默认值为False。Boolean 类型，可读写。
说明
当你在 Microsoft Visual Basic Editor 的立即窗口执行了该语句，你的程序中断后，该属性会立即设为 False。
示例
本示例使数据透视表仅当用户要求时或工作簿保存前才重新计算。
With Worksheets(1).PivotTables("Pivot11")
.ManualUpdate = True
.UpdateBeforeSave = True
End With
适用于
TextFrame 对象
描述
以磅为单位，返回或设置文本框的底边到文本框所在的形状所占矩形的底边的距离。
Single 类型，可读写。
示例
本示例向 myDocument 中添加矩形，并向该矩形中添加文字，然后设置文本框的边距。
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame
AutoMargins=False
.Characters.Text = "Here is some test text"
.MarginBottom = 0
.MarginLeft = 100
.MarginRight = 0
.MarginTop = 20
End With
适用于
TextFrame 对象
描述
以磅为单位，返回或设置文本框的左边到文本框所在的形状所占矩形的左边的距离。Single 类型，可读写。
示例
本示例向 myDocument 中添加矩形，并向该矩形中添加文字，然后设置文本框的边距。
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame
AutoMargin=False
.Characters.Text = "Here is some test text"
.MarginBottom = 0
.MarginLeft = 100
.MarginRight = 0
.MarginTop = 20
End With
适用于
TextFrame 对象
描述
以磅为单位，返回或设置文本框的右边到文本框所在的形状所占矩形的右边的距离。
Single 类型，可读写。
示例
本示例向 myDocument 中添加矩形，并向该矩形中添加文字，然后设置文本框的边距。
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame
AutoMargin=False
.Characters.Text = "Here is some test text"
.MarginBottom = 0
.MarginLeft = 100
.MarginRight = 0
.MarginTop = 20
End With
适用于
TextFrame 对象
描述
以磅为单位，返回或设置文本框的顶端到文本框所在的形状所占矩形的顶端的距离。Single 类型，可读写。
示例
本示例向 myDocument 中添加矩形，并向该矩形中添加文字，然后设置文本框的边距。
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame
AutoMargin=False
.Characters.Text = "Here is some test text"
.MarginBottom = 0
.MarginLeft = 100
.MarginRight = 0
.MarginTop = 20
End With
适用于
LegendKey 对象，Point 对象，Series 对象
描述
以 RGB 值形式返回或者设置标记的背景颜色。仅应用于折线图、散点图和雷达图。Long 类型，可读写。
另见
MarkerBackgroundColorIndex 属性， MarkerForeGroundColor 属性， MarkerStyle 属性
示例
本示例为“Chart1”中第一个系列的第二个数据点标记设置背景颜色和前景颜色。
With Charts("Chart1").SeriesCollection(1).Points(2)
.MarkerBackgroundColor = RGB(0,255,0) ' green
.MarkerForegroundColor = RGB(255,0,0) ' red
End With
适用于
LegendKey 对象，Point 对象，Series 对象
描述
以当前调色板索引的形式返回或设置标记的前景颜色，也可设为下列XlColorIndex 常量之一： xlColorIndexAutomatic 或 xlColorIndexNone。仅应用于折线图、散点图和雷达图。
Long 类型，可读写。
另见
Colors 属性， MarkerBackgroundColor 属性， MarkerForeGroundColorIndex 属性， MarkerStyle 属性
示例
本示例为“Chart1” 中第一个系列的第二个数据点标记设置背景颜色和前景颜色。
With Charts("Chart1").SeriesCollection(1).Points(2)
.MarkerBackgroundColorIndex = 4' green
.MarkerForegroundColorIndex = 3 ' red
End With
适用于
LegendKey 对象，Point 对象，Series 对象
描述
以 RGB 值的形式返回或者设置标记的前景颜色。仅应用于折线图、散点图和雷达图。
Long 类型，可读写。
另见
MarkerBackgroundColor 属性， MarkerForeGroundColorIndex 属性， MarkerStyle 属性
示例
本示例为“Chart1”中第一个系列的第二个数据点标记设置背景颜色和前景颜色。
With Charts("chart1").SeriesCollection(1).Points(2)
.MarkerBackgroundColor = RGB(0,255,0) ' green
.MarkerForegroundColor = RGB(255,0,0) ' red
End With
适用于
LegendKey 对象，Point 对象，Series 对象
描述
以当前调色板索引的形式返回或者设置标记的前景颜色，也可设为下列XlColorIndex 常量之一： xlColorIndexAutomatic 或 xlColorIndexNone。仅应用于折线图、散点图和雷达图。Long 类型，可读写。
另见
Colors 属性， MarkerBackgroundColorIndex 属性， MarkerForeGroundColor 属性， MarkerStyle 属性
示例
本示例为“Chart1”中第一个系列的第二个数据点标记设置背景颜色和前景颜色。
With Charts("Chart1").SeriesCollection(1).Points(2)
.MarkerBackgroundColorIndex = 4' green
.MarkerForegroundColorIndex = 3 ' red
End With
适用于
LegendKey 对象，Point 对象，Series 对象
描述
以磅为单位返回或设置数据标记尺寸。Long 类型，可读写。
示例
本示例设置第一个系列中所有数据标记的尺寸。
Worksheets(1).ChartObjects(1).Chart.SeriesCollection(1).MarkerSize = 10
适用于
LegendKey 对象，Point 对象，Series 对象
描述
返回或设置折线图、散点图或雷达图中数据点或数据系列的标记样式。Long类型，可读写。
可为下列 XlMarkerStyle 常量之一。
| 常量 | 说明 |
| xlMarkerStyleAutomatic | 自动设置标记 |
| xlMarkerStyleCircle | 圆形标记 |
| xlMarkerStyleDash | 长条形标记 |
| xlMarkerStyleDiamond | 菱形标记 |
| xlMarkerStyleDot | 短条形标记 |
| xlMarkerStyleNone | 无标记 |
| xlMarkerStylePicture | 图片标记 |
| xlMarkerStylePlus | 带加号的方形标记 |
| xlMarkerStyleSquare | 方形标记 |
| xlMarkerStyleStar | 带星号的方形标记 |
| xlMarkerStyleTriangle | 三角形标记 |
| xlMarkerStyleX | 带 X 记号的方形标记 |
示例
本示例设置图表“Chart1”中第一个系列的标记样式。
本示例应在二维折线图中运行。
Charts("Chart1").SeriesCollection(1) _
.MarkerStyle = xlMarkerStyleCircle
适用于
Application 对象
描述
如果数学协处理器可用则为 True。Boolean 类型，只读。
示例
本示例检查数学协处理器是否可用，如果不可用则显示一条信息。
If Not Application.MathCoprocessorAvailable Then
MsgBox "This macro requires a math coprocessor"
End If
适用于
ControlFormat 对象
描述
返回或者设置滚动条或微调控制项区域的最大值。滚动条或微调控制项的值不会超过指定的最大值。Long 类型，可读写。
说明
Max 属性的值必须大于 Min 属性的值。
另见
示例
本示例创建一个滚动条，并对其链接单元格、最小值、最大值、大步长值和小步长值进行设置。
Set sb = Worksheets(1).Shapes.AddFormControl(xlScrollBar, _
Left:=10, Top:=10, Width:=10, Height:=200)
With sb.ControlFormat
.LinkedCell = "D1"
.Max = 100
.Min = 0
.LargeChange = 10
.SmallChange = 2
End With
适用于
Application 对象
描述
返回或设置 Microsoft Excel 处理循环引用时迭代之间变化值的上限。可读写。Double 类型。
说明
MaxIterations 属性设置 Microsoft Excel 处理循环引用时的最多迭代次数。
另见
示例
本示例将变化上限设置为 0.1。
Application.MaxChange = 0.1
适用于
RecentFiles 集合对象
描述
返回或者设置最近使用文件清单中文件数目的上限。可为 0（零）到 9 之间的数字。
Long 类型，可读写。
示例
本示例将最近使用文件清单中文件数上限设为 6。
Application.RecentFiles.Maximum = 6
适用于
Axis 对象
描述
返回或者设置指定坐标轴的最大值。Double 类型，可读写。
说明
对本属性进行设置则 MaximumScaleIsAuto 属性将设为 False。
另见
MaximumScaleIsAuto 属性， MinimumScale 属性， MinimumScaleIsAuto属性
示例
本示例对“Chart1”数值坐标轴的最小值和最大值进行设置。
With Charts("Chart1").Axes(xlValue)
.MinimumScale = 10
.MaximumScale = 120
End With
适用于
Axis 对象
描述
如果 Microsoft Excel 计算指定坐标轴的最大值则为 True。Boolean 类型，可读写。
说明
对 MaximumScale 属性进行设置则本属性设为 False。
另见
MaximumScale 属性， MinimumScale 属性， MinimumScaleIsAuto 属性
示例
本示例自动计算“Chart1”数值坐标轴的最小刻度和最大刻度。
With Charts("Chart1").Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
End With
适用于
Application 对象
描述
返回或者设置 Microsoft Excel 处理循环引用的迭代次数上限。Long 类型，可读写。
说明
MaxChange 属性设置 Microsoft Excel 处理循环引用时两次迭代之间改变次数的上限。
另见
示例
本示例设置迭代次数的上限为 1000。
Application.MaxIterations = 1000
适用于
Application 对象
描述
以字节为单位返回 Microsoft Excel 剩余内存量。Long 类型，只读。
另见
示例
本示例在一个信息框中显示剩余内存字节数。
MsgBox "Microsoft Excel has " & _Application.MemoryFree & "bytes free"
适用于
Application 对象
描述
返回 Microsoft Excel 总可用内存量，包括已用内存量。Long 类型，只读。
说明
MemoryTotal 等价于 MemoryUsed + MemoryFree。
另见
示例
本示例在信息框中显示总可用内存字节数。
MsgBox "Microsoft Excel has " & Application.MemoryTotal & _
" total bytes available"
适用于
Application 对象，PivotCache 对象，PivotField 对象
描述
Application 对象：以字节为单位返回 Microsoft Excel 当前所使用的内存数量。Long 类型，只读。
PivotCache 或 PivotField 对象：以字节为单位返回该对象当前所使用的内存数量。
Long 类型，只读。
说明
对于PivotCache 对象而言，本属性反映高速缓存的临时状态。
如果PivotCache 对象没有与其连接的数据透视表，本属性返回0（零）。
另见
示例
本示例弹出一个消息框，该消息框中显示了 Microsoft Excel 当前使用的内存字节数。
MsgBox "Microsoft Excel is currently using " & _
Application.MemoryUsed & " bytes"
适用于
Range 对象，Scenarios 集合对象，Styles 集合对象
描述
句法 1：将另一工作表中的方案合并到 Scenarios 集合。
句法 2：将另一工作簿中的样式合并到 Styles 集合。
句法 3：从指定的 Range 对象中创建合并单元格。
句法 1
expression.Merge(Source)
句法 2
expression.Merge(Workbook)
句法 3
expression.Merge(Across)
expression
必选。返回 Scenarios 对象（句法 1）、Styles 对象（句法 2）或 Range 对象（句法 3）的表达式。
Source
Variant 类型，必选。包含待合并方案的工作表名称，或代表该工作表的Worksheet 对象。
Workbook
Variant 类型，必选。Workbook 对象，该对象代表包含待合并样式的工作簿。
Across
Variant 类型，可选。若为 True，则将指定区域内的每一行合并为一个合并单元格。默认值为 False。
说明
合并区域的值为合并区域中左上角的单元格的值。
另见
MergeArea 属性， MergeCells 属性， UnMerge 方法
示例
本示例将工作簿“Template.xls”中的样式合并到活动工作簿。
ActiveWorkbook.Styles.Merge Workbook:=Workbooks("TEMPLATE.XLS")
适用于
Range 对象
描述
返回 Range 对象，该对象代表包含指定单元格的合并区域。如果指定的单元格未处于合并区域内，本属性返回指定单元格。Variant 类型，只读。
另见
示例
本示例为包含单元格“A3”的合并区域赋值。
Set ma = Range("a3").MergeArea
If ma .Address = "$A$3" Then
MsgBox "Not merged"
Else
ma.Cells(1, 1).Value = "42"
End If
适用于
Range 对象,Styles 对象
描述
如果区域或样式包含合并单元格，本属性为 True。Variant 类型，可读写。
说明
选定包含合并单元格的区域时，所选定的区域可能与所期望选定的区域不符。可用 Address 属性检验选定区域的地址。
另见
Merge 方法， MergeArea 属性， UnMerge 方法
示例
本示例为包含单元格“A3”的合并区域赋值。
Set ma = Range("a3").MergeArea
If Range("a3").MergeCells Then
ma.Cells(1, 1).Value = "42"
End If
适用于
PivotTable 对象
描述
如果数据透视表的外部行、列、分类汇总和总计标志使用合并单元格则为True，Boolean 类型，可读写。
示例
本示例设置指定数据透视表的外部行、列、分类汇总和总计标志使用合并单元格。
Worksheets(1).PivotTables(1).MergeLabels = True
适用于
Workbook 对象
描述
将某工作簿中的改动合并到已打开的工作簿中。
句法
expression.MergeWorkbook(Filename)
expression
必选。该表达式返回 Workbook 对象。
Filename
String 类型，必选。工作簿名称，该工作簿包含将被合并的改动。
示例
本示例将工作簿“Book1. xls”中的改动合并到活动工作簿中。
ActiveWorkbook.MergeWorkbook "Book1.xls"
适用于
RoutingSlip 对象
描述
返回或者设置给传递名单的消息文字。这些文字将作为传递指定工作簿时的邮件消息内容。String 类型，可读写。
另见
Delivery 属性， Recipients 属性， ReturnWhenDone 属性， Subject 属性
示例
本示例将 Book1.xls 依次发送给三个收信人。
Workbooks("BOOK1.XLS").HasRoutingSlip = True
With Workbooks("BOOK1.XLS").RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("Adam Bendel", "Jean Selva", "Bernard Gabor")
.Subject = "Here is BOOK1.XLS"
.Message = "Here is the workbook. What do you think?"
End With
Workbooks("BOOK1.XLS").Route
适用于
ControlFormat 对象
描述
返回或者设置滚动条或微调控制项区域的最小值。滚动条或微调控制项的值不会小于指定的最小值。Long 类型，可读写。
说明
Max 属性的值必须大于 Min 属性的值。
另见
示例
本示例创建一个滚动条，并对其链接单元格、最小值、最大值、大步长值和小步长值进行设置。
Set sb = Worksheets(1).Shapes.AddFormControl(xlScrollBar, _
Left:=10, Top:=10, Width:=10, Height:=200)
With sb.ControlFormat.
LinkedCell = "D1"
.Max = 100
.Min = 0
.LargeChange = 10
.SmallChange = 2
End With
适用于
Axis 对象
描述
返回或者设置指定坐标轴的最小值。Double 类型，可读写。
说明
对本属性进行设置则 MinimumScaleIsAuto 属性将设为 False。
另见
MaximumScale 属性， MaximumScaleIsAuto 属性， MinimumScaleIsAuto属性
示例
本示例对“chart1”数值坐标轴的最小值和最大值进行设置。
With Charts("Chart1").Axes(xlValue)
.MinimumScale = 10
.MaximumScale = 120
End With
适用于
Axis 对象
描述
如果 Microsoft Excel 为坐标轴计算最小值则为 True。Boolean 类型，可读写。
说明
对 MinimumScale 属性进行设置则本属性设为 False。
另见
MaximumScale 属性， MaximumScaleIsAuto 属性， MinimumScale 属性
示例
本示例自动计算“Chart1”数值坐标轴的最小刻度和最大刻度。
With Charts("Chart1").Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
End With
适用于
Axis 对象
描述
返回一个 Gridlines 对象，该对象代表指定坐标轴的次要网格线。网格线仅可在主要坐标轴组中设置。只读。
另见
AxisGroup 属性， HasMajorGridlines 属性， HasMinorGridlines属性
示例
本示例对“Chart1”数值坐标轴的次要网格线的颜色进行设置。
With Charts("Chart1").Axes(xlValue)
If .HasMinorGridlines Then
.MinorGridlines.Border.ColorIndex = 5'set color to blue
End If
End With
适用于
Axis 对象
描述
返回或者设置指定坐标轴的次要刻度线标记的类型。可为下列 XlTickMark常量之一： xlTickMarkNone, xlTickMarkInside, xlTickMarkOutside 或xlTickMarkCross。
Long 类型，可读写。
另见
示例
本示例为“Chart1”数值坐标轴内侧设置次要刻度线。
Charts("Chart1").Axes(xlValue).MinorTickMark = xlTickMarkInside
适用于
Axis 对象
描述
返回或者设置指定坐标轴的次要单位。Double 类型，可读写。
说明
对本属性进行设置则 MinorUnitIsAuto 属性将设为 False。
使用 TickMarkSpacing 属性可对分类坐标轴的刻度线标记进行设置。
另见
MajorUnit 属性， MajorUnitIsAuto 属性， MajorUnitScale 属性， MinorUnitIsAuto 属性， MinorUnitScale 属性， TickMarkSpacing 属性
示例
本示例为“Chart1”的数值坐标轴设置主要单位和次要单位。
With Charts("Chart1").Axes(xlValue)
.MajorUnit = 100
.MinorUnit = 20
End With
适用于
Axis 对象
描述
如果 Microsoft Excel 为坐标轴计算次要单位则为 True。Boolean 类型，可读写。
说明
对 MinorUnit 属性进行设置则本属性设为 False。
另见
MajorUnit 属性， MajorUnitIsAuto 属性， MajorUnitScale 属性， MinorUnit属性， MinorUnitScale 属性
示例
本示例自动计算“Chart1”数值坐标轴的主要单位和次要单位。
With Charts("Chart1").Axes(xlValue)
.MajorUnitIsAuto = True
.MinorUnitIsAuto = True
End With
适用于
Axis 对象
描述
当 CategoryType 属性为 xlTimeScale 时，返回或设置分类轴次要单位的刻度值。可为下列 XlTimeUnit 常量之一： xlDays, xlMonths 或 xlYears。Long 类型，可读写。
另见
BaseUnit 属性， MajorUnit 属性， MajorUnitIsAuto 属性， MajorUnitScale属性， MinorUnit 属性， MinorUnitIsAuto 属性
示例
本示例使分类轴使用时间刻度，并设置主要单位和次要单位。
With Charts(1).Axes(xlCategory)
.CategoryType = xlTimeScale
.MajorUnit = 5
.MajorUnitScale = xlDays
.MinorUnit = 1
.MinorUnitScale = xlDays
End With
适用于
FormatCondition 对象
描述
修改现存条件格式。
句法
expression.Modify(Type, Operator, Formula1, Formula2)
expression
必选。该表达式返回 FormatCondition 对象。
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 时，与条件格式第二部分相联系的表达式或数值。可为常量、字符串、单元格引用或公式。
另见
Add 方法(FormatConditions 集合)， Formula1 属性， Formula2 属性， Operator 属性
示例
本示例修改单元格区域“E1:E10”的现存条件格式。
Worksheets(1).Range("e1:e10").FormatConditions(1) _
.Modify xlCellValue, xlLess, "=$a$1"
适用于
Validation 对象
描述
修改指定区域的数据有效性检验。
句法
expression.Modify(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 时数据有效性算式的尾部分（其他情况下，此参数被忽略）。
说明
Modify 方法所要求的参数依有效性检验的类型而定，如下表所示。
| 有效性检验类型 | 参数 |
| xlInputOnly | 不能使用 AlertStyle, Formula1 或 Formula2 参数。 |
| xlValidateCustom | Formula1 必选，忽略 Formula2。Formula1 必须为一表达式，数据项有效时该表达式取值为 True，而数据项无效时取值为 False。 |
| xlValidateList | Formula1 必选，忽略 Formula2。 Formula1 必须为一以逗号分隔的取值列表，或指向此列表的工作表。 |
| xlValidateWholeNumber, xlValidateDate, xlValidateDecimal, xlValidateTextLength或 xlValidateTime | 必须指定 Formula1 或 Formula2 之一，或两者均指定。 |
示例
本示例修改单元格“E5”的数据有效性检验。
Range("e5").Validation _
Modify xlValidateList, xlValidAlertStop, _
xlBetween, "=$A$1:$A$10"
适用于
Application 对象
描述
如果鼠标可用则为 True。Boolean 类型，只读。
示例
本示例检查鼠标是否可用，如果不可用则显示一条信息。
If Application.MouseAvailable = False Then
MsgBox "Your system does not have a mouse"
End If
适用于
Chart 对象
描述
当在图表上按下鼠标键时产生此事件。
句法
Private Sub object_MouseDown(ByVal Button As Long, ByVal Shift As Long,ByVal X As Long, ByVal Y As Long)
object
在类模块中带有事件声明的 Chart 类型对象。有关详细内容，另见嵌入式图表事件的句法。
Button
按下的鼠标键。可为下列 XlMouseButton 常量之一： xlNoButton, xlPrimaryButton,xlSecondaryButton 或 xlMiddleButton。
Shift
此事件产生时 SHIFT, CTRL 和 ALT 键的状态。可为下列取值之一或者某几个值的和。
| 取值 | 意义 |
| 0（零） | 没有键按下 |
| 1 | SHIFT 键 |
| 2 | CTRL 键 |
| 4 | ALT 键 |
X
鼠标指针在图表对象的客户坐标系中的 X 坐标。
Y
鼠标指针在图表对象的客户坐标系中的 Y 坐标。
另见
示例
当在图表上按下鼠标键时运行本示例。
Private Sub Chart_MouseDown(ByVal Button As Long， _
ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
MsgBox "Button = " & Button & chr$(13) & _
"Shift = " & Shift & chr$(13) & _
"X = " & X & " Y = " & Y
End Sub
适用于
Chart 对象
描述
当鼠标指针在图表上的位置改变时产生此事件。
句法
Private Sub object_MouseMove(ByVal X As Long, ByVal Y As Long)
object
X
鼠标指针在图表对象的客户坐标系中的 X 坐标。
Y
鼠标指针在图表对象的客户坐标系中的 Y 坐标。
另见
示例
本示例当在图表上移动鼠标指针时运行本示例。
Private Sub Chart_MouseMove(ByVal X As Long, ByVal Y As Long)
MsgBox "X = " & X & " Y = " & Y
End Sub
适用于
Chart 对象
描述
当在图表上释放鼠标按键时产生此事件。
句法
Private Sub object_MouseUp(ByVal Button As Long, ByVal Shift As Long,ByVal X As Long, ByVal Y As Long)
object
在类模块中带有事件声明的 Chart 类型对象。
Button
释放的鼠标按键。可为下列 XlMouseButton 常量之一： xlNoButton,xlPrimaryButton, xlSecondaryButton 或 xlMiddleButton。
Shift
此事件产生时 SHIFT, CTRL 和 ALT 键的状态。可为下列取值之一或者某几个值的和。
| 取值 | 意义 |
| 0（零） | 没有键按下 |
| 1 | SHIFT 键 |
| 2 | CTRL 键 |
| 4 | ALT 键 |
X
鼠标指针在图表对象的客户坐标系中的 X 坐标。
Y
鼠标指针在图表对象的客户坐标系中的 Y 坐标。
另见
示例
本示例当在图表上释放鼠标键时运行本示例。
Private Sub Chart_MouseUp(ByVal Button As Long, _
ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
MsgBox "Button = " & Button & chr$(13) & _
"Shift = " & Shift & chr$(13) & _
"X = " & X & " Y = " & Y
End Sub
适用于
Chart 对象，Charts 集合对象，Sheets 集合对象，Worksheet 对象，Worksheets 集合对象
描述
将指定工作表移到工作簿的另一位置。
句法
expression.Move(Before, After)
expression
必选。该表达式返回“适用于”列表中某个对象。
Before
Variant 类型，可选。指代某工作表。欲移动的工作表将移到此工作表之前。如果已经指定了 After，则不能指定 Before。
After
Variant 类型，可选。指代某工作表。欲移动的工作表将移到此工作表之后。如果已经指定了 Before，则不能指定 After。
说明
如果既不指定 Before 参数也不指定 After 参数，则 Microsoft Excel 将新建一个工作簿并将欲移动的工作表移到新工作簿中。
另见
示例
本示例将“Sheet1” 移到活动工作簿的“Sheet3” 之后。
Worksheets("Sheet1").Move _
after:=Worksheets("Sheet3")
适用于
Application 对象
描述
如果一按下 ENTER（RETURN）键就移动活动单元格则为 True。Boolean 类型，可读写。说明
使用 MoveAfterReturnDirection 属性可指定活动单元格移动的方向。
另见
示例
本示例将 MoveAfterReturn 属性设为 True。
Application.MoveAfterReturn = True
适用于
Application 对象
描述
返回或者设置当用户按 ENTER 键时，活动单元格选定框的移动方向。可为以下 XlDirection 常量之一： xlToLeft, xlToRight, xlUp 或者 xlDown
Long 类型，可读写。
说明
如果 MoveAfterReturn 属性为 False，活动单元格选定框将不会移动，不管对 MoveAfterReturnDirection 属性设置为何值。
另见
示例
本示例将用户按 ENTER 键时活动单元格选项框的移动方向定义为右移一单元格。
Application.MoveAfterReturn = True
Application.MoveAfterReturnDirection = xlToRight
适用于
ControlFormat 对象
描述
返回或者设置指定列表框的选择模式。可为下列常量之一： xlNone, xlSimple或 xlExtended。Long 类型，可读写。
说明
如果为单项选择（xlNone），则每次只允许选择一项。单击鼠标或按SPACEBAR 键将取消原先的选择项，并选定正在单击的项。
如果为简单多项选择（xlSimple），当用鼠标单击选定某选项，或在突出显示选项上按 SPACEBAR 键，可切换该选项的选定状态，此方式适用于于经常需要选定多个选项的列表。
如果为扩展多项选择（xlExtended），其作用与单项选择列表框一样，单击某选项将选定该选项并取消选定其它选项。按住 SHIFT 键，并单击鼠标或按箭头键，可从当前选项开始顺序选定多个选项。按住 CTRL 键并用鼠标单击选项，可在选定项集合中添加选中项。此方式适用于于允许多项选择但不又经常使用的列表。
可使用 Value 属性或 ListIndex 属性返回或者设置单项选择列表框的选定项。
不可以使用 LinkedCell 属性对多项选择列表框进行链接。
另见
示例
本示例创建一个简单多项选择列表框。
Set lb = Worksheets(1).Shapes.AddFormControl(xlListBox, _
Left:=10, Top:=10, Height:=100, Width:100)
lb.ControlFormat.MultiSelect = xlSimple
适用于
Workbook 对象
描述
如果指定工作簿是以共享清单方式打开的则为 True。Boolean 类型，只读。
说明
要以共享清单模式保存工作簿，可使用 SaveAs。要将工作簿访问方式从共享模式切换到独占模式，可使用 ExclusiveAccess 方法。
另见
AutoUpdateFrequency 属性， ExclusiveAccess 方法， PersonalViewListSettings 属性， PersonalViewPrintSettings 属性， SaveAs 方法， ShowConflictHistory 属性， UserStatus 属性
示例
本示例检查活动工作簿是否以独占模式打开。如果是，则本示例以共享清单方式保存该工作簿。
If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs fileName:=ActiveWorkbook.FullName, _
accessMode:=xlSharedEnd If