适用于
Application 对象
描述
返回或设置一个值（常数），此值表示当调用那些需要用到但未安装的特性的方法或属性时，Microsoft Excel是如何处理的。可读写，Long类型。
可以是以下MsoFeatureInstall常量中的一个：
| 常量 | 数值 | 描述 |
| msoFeatureInstallNone | 0 | 当在运行时调用未安装的特性则会产生一个一般性的Automation（自动操作）错误。 |
| msoFeatureInstallOnDemand | 1 | 缺省常量。提示用户安装新的特性。 |
| msoFeatureInstallOnDemandWithUI | 2 | 在安装过程中显示进度表。但不提示用户安装新的特性。 |
说明
可以使用msoFeatureInstallOnDemandWithUI常量来避免在安装新特性的过程中用户错误的认为应用程序已经没有响应。当只希望由开发者来安装新特性时，则可以使用msoFeatureInstallNone常量。
如果DisplayAlerts属性为False，则即使FeatureInstall属性为msoFeatureInstallOnDemand，用户也得不到安装新特性的提示。而当DisplayAlerts属性为True时，若FeatureInstall属性为msoFeatureInstallOnDemand，则会出现安装进度表。
示例
本例激活一个Microsoft Word的新实例并检查FeatureInstall属性的数值。如果该属性被设置为msoFeatureInstallNone，则代码显示一个询问用户是否改变属性设置的消息框。若用户回答是，则该属性被设置为msoFeatureInstallOnDemand。
Dim WordApp As New Word.Application, Reply As Integer
With WordApp
.ActivateMicrosoftApp
If .FeatureInstall = msoFeatureInstallNone Then
Reply = MsgBox("Uninstalled features for this " _
& "application " & vbCrLf _
& "may cause a run-time error when called." & vbCrLf _
& vbCrLf _
& "Would you like to change this setting" & vbCrLf _
& "to automatically install missing features?" _
, 52, "Feature Install Setting")
If Reply = 6 Then
.FeatureInstall = msoFeatureInstallOnDemand
End If
End If
End With
适用于
QueryTable 对象
描述
如果上次使用 Refresh 方法返回的行数比工作表中可用行数大则为 True。Boolean 类型，只读。
示例
本示例对第一张查询表进行刷新。如果由查询返回的行数超过工作表中可用行数，则显示一条错误消息。
With Worksheets(1).QueryTables(1)
.Refresh
If .FetchedRowOverflow Then
MsgBox "Query too large: Please redefine."
End If
End With
适用于
QueryTable 对象
描述
如果数据源的字段名称作为返回数据的列标题显示则为 True。默认值为True。Boolean 类型，可读写。
示例
本示例对第一张查询表进行设置，在表中不显示字段名称。
Worksheets(1).QueryTables(1).FieldNames = False
适用于
Application 对象
描述
返回已安装的文件转换器的信息。如果未安装任何转换器，返回 Null。
Variant 类型，只读。
句法
expression.FileConverters(Index1, Index2)
expression
必选。该表达式返回 Application 对象。
Index1
Variant 类型，可选。转换器的长名称，包括 Windows 中的文件类型搜索字符串（例如“Lotus 1-2-3 文件 (*.wk*)”）。
Index2
Variant 类型，可选。转换器动态链接库或代码资源的路径。
说明
如果未指定索引参数，本属性返回包含所有已安装文件转换器的信息的数组。数组中每一行包含一个文件转换器的信息，如下表所示。
| 列 | 内容 |
| 1 | 转换器的长名称。 |
| 2 | 转换器动态链接库或代码资源的路径。 |
| 3 | Windows 中的文件扩展名搜索字符串。 |
适用于
Workbook 对象
描述
返回工作簿的格式或者类型。Long 类型，只读。
可为以下 XlFileFormat 常量之一：
| xlAddIn | xlCSV | xlCSVMac |
| xlCSVMSDOS | xlCSVWindows | xlDBF2 |
| xlDBF3 | xlDBF4 | xlDIF |
| xlExcel2 | xlExcel2FarEast | xlExcel3 |
| xlExcel4 | xlExcel5 | xlExcel4Workbook |
| xlExcel7 | xlExcel9795 | xLHTML |
| xlIntlAddIn | xlIntlMacro | xlWorkbookNormal |
| xlSYLK | xlTemplate | xlCurrentPlatformText |
| XlTextMac | xlTextMSDOS | xlTextPrinter |
| XlTextWindows | xlWJ2WD1 | xlWK1 |
| xlWK1ALL | xlWK1FMT | xlWK3 |
| xlWK4 | xlWK3FM3 | xlWKS |
| xlWorks2FarEast | xlWQ1 | xlWJ3 |
| xlWJ3FJ3 |
说明
有些常量可能无效，这依赖于所安装和选择的语言（例如美国英语）。
示例
本示例检查当前工作簿文件格式是否为 WK3 格式，如果是则按常规文件格式保存该工作簿。
If ActiveWorkbook.FileFormat = xlWK3 Then
ActiveWorkbook.SaveAs fileFormat:=xlNormal
End If
适用于
PublishObject 对象
描述
返回或设置URL（在intranet或者Web上）或路径（本机或网络）到特定源对象的存盘位置上。可读写，String类型。
说明
若指定的路径中的文件夹不存在，则FileName属性产生错误。
示例
本例设置活动工作表中的第一项的存盘位置。
ActiveWorkbook.PublishObjects(1).FileName = _
"\\server2\Q1\StockReport.htm
适用于
Application 对象
描述
为使用文件搜索返回一个 FileSearch 对象。
示例
本示例创建一个 FoundFiles 对象，该对象代表 My Documents 文件夹中的所有 Microsoft Excel 工作簿。
With Application.FileSearch.
LookIn = "c:\my documents"
. FileType = msoFileTypeExcelWorkbooks
Execute
End With
适用于
AxisTitle 对象，ChartArea 对象，ChartTitle 对象，DataLabel 对象，DataLabels 集合对象，DisplayUnitLabel 对象，DownBars 对象，Floor 对象，Legend 对象，LegendKey 对象，PlotArea 对象，Point 对象，Series 对象，Shape 对象，ShapeRange 集合对象，UpBars 对象，Walls 对象
描述
返回 FillFormat 对象，该对象包含指定的图表或形状的填充格式属性。只读。
示例
本示例向 myDocument 中添加矩形，然后设置该矩形的填充格式的前景颜色、背景颜色和渐进色。
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 50).Fill
.ForeColor.RGB = RGB(128, 0, 0)
.BackColor.RGB = RGB(170, 170, 170)
.TwoColorGradient msoGradientHorizontal, 1
End With
适用于
Sheets 集合对象，Worksheets 集合对象
描述
将单元格区域复制到一个集合中所有其它工作表的同一位置上。
句法
expression.FillAcrossSheets(Range, Type)
expression
必选。该表达式返回 Sheets 或 Worksheets 对象。
Range
Range 类型，必选。要填充到一个集合中所有其他工作表的单元格区域。该区域必须位于该集合中某个工作表之上。
Type
Variant 类型，可选。指定如何复制该区域。可为下列 XlFillWith 常量之一： xlFillWithAll，xlFillWithContents 或 xlFillWithFormulas。默认值为xlFillWithAll。
示例
本示例用工作表“Sheet1”上单元格区域“A1:C5”中的内容填充工作表“Sheet1”、“Sheet5”和“Sheet7”中的同一区域 。
x = Array("Sheet1", "Sheet5", "Sheet7")
Sheets(x).FillAcrossSheets _
Worksheets("Sheet1").Range("A1:C5")
适用于
QueryTable 对象
描述
如果每当查询表刷新时指定的查询表右侧的公式就自动更新则为 True。Boolean 类型，可读写。
示例
本示例对第一张查询表进行设置，每当查询表刷新时就自动更新右侧的公式。
Sheets("Sheet1").QueryTables(1).FillAdjacentFormulas = True
适用于
Range 对象
描述
从指定区域的顶部单元格开始向下填充，直至该区域的底部。区域中首行单元格的内容和格式将复制到区域中其它行内。
句法
expression.FillDown
expression
必选。该表达式返回 Range 对象。
另见
AutoFill 方法， FillLeft 方法， FillRight 方法， FillUp 方法
示例
本示例以工作表“Sheet1”上单元格“A1”的内容为样板，填充单元格区域“A1:A10”。
Worksheets("Sheet1").Range("A1:A10").FillDown
描述
代表形状的填充格式。形状可以有纯色、渐进色、纹理、图案、图片或半透明填充格式。
使用FillFormat 对象
可用 Fill 属性返回 FillFormat 对象。下例向 myDocument 中添加矩形，然后设置矩形的填充格式的渐进色和颜色。
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 80).Fill
.ForeColor.RGB = RGB(0, 128, 128)
.OneColorGradient msoGradientHorizontal, 1, 1
End With
说明
FillFormat 对象的许多属性是只读属性。必须用相应的方法来设置这些属性的值。
属性
Application 属性，BackColor 属性，Creator 属性，ForeColor 属性，GradientColorType 属性，GradientDegree 属性，GradientStyle 属性，GradientVariant 属性，Parent 属性，Pattern 属性，PresetGradientType 属性，PresetTexture 属性，TextureName 属性，TextureType 属性，Transparency 属性，Type 属性，Visible 属性
方法
OneColorGradient 方法，Patterned 方法，PresetGradient 方法，PresetTextured 方法，Solid 方法，TwoColorGradient 方法，UserPicture 方法，UserTextured 方法
适用于
Range 对象
描述
从指定区域的最右边单元格开始向左填充。区域中最右列单元格的内容和格式将复制到区域中其它列内。
句法
expression.FillLeft
expression
必选。该表达式返回 Range 对象。
另见
AutoFill 方法， FillDown 方法， FillRight 方法， FillUp 方法
示例
本示例以工作表“Sheet1”上单元格“M1”的内容为样板，填充单元格区域“A1:M1”。
Worksheets("Sheet1").Range("A1:M1").FillLeft
适用于
Range 对象
描述
从指定区域的最左边单元格开始向右填充。区域中最左列单元格的内容和格式将复制到区域中其它列内。
句法
expression.FillRight
expression
必选。该表达式返回 Range 对象。
另见
AutoFill 方法， FillDown 方法， FillLeft 方法， FillUp 方法
示例
本示例以工作表“Sheet1”上单元格“A1”的内容为样板，填充单元格区域“A1:M1”。
Worksheets("Sheet1").Range("A1:M1").FillRight
适用于
Range 对象
描述
从指定区域的底部单元格开始向上填充，直至该区域的顶部。区域中尾行单元格的内容和格式将复制到区域中其它行内。
句法
expression.FillUp
expression
必选。该表达式返回 Range 对象。
另见
AutoFill 方法， FillDown 方法， FillLeft 方法， FillRight 方法
示例
本示例以工作表“Sheet1”上单元格“A10”的内容为样板，填充单元格区域“A1:A10”。
Worksheets("Sheet1").Range("A1:A10").FillUp
描述
代表单列的筛选。Filter 对象是 Filters 集合的成员。Filters 集合包含自动筛选区域中的所有筛选。
使用Filter对象
可用 Filters(index)（其中 index 为筛选标题或索引编号）返回单个 Filter 对象。下例将变量设为工作表“Crew”中的筛选区域中第一列筛选的 On 属性的值。
Set w = Worksheets("Crew")
If w.AutoFilterMode Then
filterIsOn = w.AutoFilter.Filters(1).On
End If
请注意Filter 对象的所有属性都是只读的。要设置这些属性，可手动应用自动筛选，或使用 Range 对象的 AutoFilter 方法，如下例所示。
Set w = Worksheets("Crew")
w.Cells.AutoFilter field:=2, Criteria1:="Crucial", _
Operator:=xlOr, Criteria2:="Important"
属性
Application 属性，Creator 属性，Criterial 属性，Criteria2 属性，On 属性，Operator 属性，Parent 属性
适用于
Worksheet 对象
描述
如果指定工作簿处于筛选模式则为 True。Boolean 类型，只读。
说明
如果指定工作表中包含已筛选序列且该序列中含有隐藏行则本属性为True。
另见
AdvancedFilter 方法， AutoFilter 方法， AutoFilterMode 属性， ShowAllData 方法
示例
本示例在消息框中显示 Sheet1 的筛选状态。
If Worksheets("Sheet1").FilterMode = True Then
MsgBox "Filter mode is on"
Else
MsgBox "Filter mode is off"
End If
描述
Filter的集合，代表自动筛选区域中的所有筛选。
使用Filters 集合
可用 Filters 方法返回 Filters 集合。下例创建包含工作表“Crew”中已自动筛选区域的筛选条件和操作符的列表。
im f As Filter
Dim w As Worksheet
Const ns As String = "Not set"
Set w = Worksheets("Crew")
Set w2 = Worksheets("FilterData")
rw = 1
For Each f In w.AutoFilter.Filters
If f.On Then
c1 = Right(f.Criteria1, Len(f.Criteria1) - 1)
If f.Operator Then
op = f.Operator
c2 = Right(f.Criteria2, Len(f.Criteria2) - 1)
Else
op = ns
c2 = ns
End If
Else
c1 = ns
op = ns
c2 = ns
End If
w2.Cells(rw, 1) = c1
w2.Cells(rw, 2) = op
w2.Cells(rw, 3) = c2
rw = rw + 1
Next
可用 Filters(index)（其中 index 为筛选标题或索引编号），返回单个 Filter对象。下例将变量设为工作表“Crew斨猩秆∏蛑械牡谝涣猩秆〉?On 属性值。
Set w = Worksheets("Crew")
If w.AutoFilterMode Then
filterIsOn = w.AutoFilter.Filters(1).On
End If
属性
Application 属性，Count 属性，Creator 属性，Item 属性（Filters 集合），Parent 属性
适用于
AutoFilter 对象
描述
返回代表自动筛选区域内所有筛选的 Filters 集合。只读。
示例
下面的示例设置一个变量的值为 Crew 工作表中已筛选区域中的第一列筛选的Criteria1 属性。
With Worksheets("Crew")
If .AutoFilterMode Then
With .AutoFilter.Filters(1)
If .On Then c1 = .Criteria1
End With
End If
End With
适用于
Range 对象，WorksheetFunction 对象
描述
在区域内查找特定信息，并返回 Range 对象，该对象代表所找到的第一个包含所查找信息的单元格。如果未发现匹配单元格，就返回 Nothing。本方法不影响选定区域或活动单元格。
句法
expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection,MatchCase, MatchByte)
expression
必选。该表达式返回 Range 对象。
What
Variant 类型，必选。要查找的数据。可为字符串或任意 Microsoft Excel 数据类型。
After
Variant 类型，可选。指定一个单元格，查找将从该单元格之后开始。此单元格相应于从用户界面查找时的活动单元格位置。注意 After 必须是查找区域中的单个单元格。请记住查找是从该单元格之后开始的，直到本方法环绕到此单元格时，才检测其内容。如果未指定本参数，查找将从区域的左上角单元格之后开始。
LookIn
Variant 类型，可选。可为下列 XlFindLookIn 常量之一： xlFormulas，xlValues 或 xlComments。
LookAt
Variant 类型，可选。可为下列 XlLookAt 常量之一： xlWhole 或 xlPart。
SearchOrder
Variant 类型，可选。可为下列 XlSearchOrder 常量之一： xlByRows 或xlByColumns。
SearchDirection
Variant 类型，可选。可为下列 XlSearchDirection 常量之一： xlNext 或xlPrevious。默认值为 xlNext。
MatchCase
Variant 类型，可选。若指定为 True，就进行区分大小写的查找。
MatchByte
Variant 类型，可选。仅用于双字节语言中。若指定为 True，就使双字节字符仅匹配双字节字符。若指定为 False，则双字节字符可匹配其等价的单字节字符。
说明
每次调用本方法后，参数 LookIn、 LookAt、 SearchOrder和 MatchByte 的设置将保存。如果下一次调用时未指定这些参数，将使用保存的设置。设置这些参数将改变“查找”对话框中的设定，而在“查找”对话框中修改相应设定，也将改变忽略这些参数时所使用的保存值。为避免出现麻烦，每次调用本方法时，请显式地指定这些参数的值。
FindNext 和 FindPrevious 方法可用于重复查找。
当到达指定查找区域的结尾时，本方法环绕至区域的开始。发生环绕后，为停止查找，可保存第一次找到的单元格的地址，然后测试每一次相继找到的单元格地址与其进行比较。
如果希望进行更为复杂的模式匹配查找，可用 For Each...Next 结构和 Like操作符。例如，下列代码在单元格区域“A1:C5”中查找字体名称以“Cour”打头的单元格。当 Microsoft Excel 找到匹配单元格以后，就将其字体改为“Times New Roman”。
For Each c In [A1:C5]
If c.Font.Name Like "Cour*" Then
c.Font.Name = "Times New Roman"
End If
Next
另见
FindNext 方法， FindPrevious 方法， Replace 方法
示例
本示例在单元格区域“A1:A500”中查找值为 2 的单元格，并将这些单元格变为灰色。
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Pattern = xlPatternGray50
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
适用于
Application 对象
描述
显示“打开”对话框。
句法
expression.FindFile
expression
必选，该表达式返回一个 Application 对象。
说明
本方法显示“打开”对话框并让用户打开一个文件。如果成功打开一个新文件则本方法返回 True。如果用户取消了操作并退出该对话框，本方法将返回 False。
示例
本示例显示“打开”对话框。
Application.FindFile
适用于
Range 对象
描述
用 Find 方法开始进行查找后，用本方法继续该查找操作。本方法查找匹配同一条件的下一个单元格，并返回代表该单元格的Range 对象。本方法不影响选定区域或活动单元格。
句法
expression.FindNext(After)
expression
必选。该表达式返回 Range 对象。
After
Variant 类型，可选。指定一个单元格，查找将从该单元格之后开始。此单元格相应于从用户界面查找时的活动单元格位置。注意 After 必须是查找区域中的单个单元格。请记住查找是从该单元格之后开始的，直到本方法环绕到此单元格时，才检测其内容。如果未指定本参数，查找将从区域的左上角单元格之后开始。
说明
当到达指定查找区域的结尾时，本方法环绕至区域的开始。发生环绕后，为停止查找，可保存第一次找到的单元格的地址，然后测试每一次相继找到的单元格的地址与其进行比较。
另见
Find 方法， FindPrevious 方法， Replace 方法
示例
本示例在单元格区域“A1:A500”中查找值为 2 的单元格，并将这些单元格变为灰色。
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.Pattern = xlPatternGray50
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
适用于
Range 对象
描述
用 Find 方法开始进行查找后，用本方法继续该查找操作。本方法查配同一条件的前一个单元格，并返回代表该单元格的Range 对象。本方法不影响选定区域或活动单元格。
句法
expression.FindPrevious(After)
expression
必选。该表达式返回 Range 对象。
After
Variant 类型，可选。指定一个单元格，查找将从该单元格之前开始。此单元格相应于从用户界面查找时的活动单元格位置。注意 After 必须是查找区域中的单个单元格。请记住查找是从该单元格之前开始的，直到本方法环绕到此单元格时，才检测其内容。如果未指定本参数，查找将从区域的左上角单元格之前开始。
说明
当到达指定查找区域的开始时，本方法环绕至区域的结尾。发生环绕后，为停止查找，可保存第一次找到的单元格的地址，然后测试每一次相继找到的单元格与其进行比较。
另见
Find 方法， FindNext 方法， Replace 方法
示例
本示例演示 FindPrevious 方法如何与 Find 方法和 FindNext 方法共用。运行
本示例之前，请确认工作表“Sheet1”的“B”列中至少出现了两次
“Phoenix”。
Set fc = Worksheets("Sheet1").Columns("B").Find(what:="Phoenix")
MsgBox "The first occurrence is in cell " & fc.Address
Set fc = Worksheets("Sheet1").Columns("B").FindNext(after:=fc)
MsgBox "The next occurrence is in cell " & fc.Address
Set fc = Worksheets("Sheet1").Columns("B").FindPrevious(after:=fc)
MsgBox "The previous occurrence is in cell " & fc.Address
适用于
PageSetup 对象
描述
返回或者设置打印指定工作表时第一页的页号。如果设为 xlAutomatic，则Microsoft Excel 采用第一页的页号。默认值为 xlAutomatic。Long 类型，可读写。
示例
本示例将 Sheet1 打印时的第一页的页号设为 100。
Worksheets("Sheet1").PageSetup.FirstPageNumber = 100
适用于
ChartGroup 对象
描述
返回或者设置饼图或圆环图的第一个扇区的角度，以角度为单位（从垂直方向顺时针计算）。仅应用于饼图、三维饼图和圆环图。Long 类型，可读写。
示例
本示例设置“图表1”的第一个图表组中的第一个扇区的角度。本示例应在二维饼图上运行。
Charts("Chart1").ChartGroups(1).FirstSliceAngle = 15
适用于
PageSetup 对象
描述
返回或者设置打印工作表时，对工作表进行缩放使用的页高。仅应用于工作表。Variant 类型，可读写。
说明
如果本属性设为 False，则 Microsoft Excel 根据 FitToPagesWide 属性的设置对工作表进行缩放。
如果 Zoom 属性设为 True，则忽略
FitToPagesTall 属性。
示例
本示例设置 Microsoft Excel 恰好按照一页的宽度和高度打印 Sheet1。
With Worksheets("Sheet1").PageSetup.
Zoom = False
FitToPagesTall = 1.
FitToPagesWide = 1
End With
适用于
PageSetup 对象
描述
返回或者设置打印工作表时，对工作表进行缩放使用的页宽。仅应用于工作表。Variant 类型，可读写。
说明
如果本属性设为 False，则 Microsoft 根据 FitToPagesTall 属性的设置对工作表进行缩放。
如果 Zoom 属性设为 True，则忽略 FitToPagesWide 属性。
示例
本示例设置 Microsoft Excel 恰好按照一页的宽度和高度打印 Sheet1。
With Worksheets("Sheet1").PageSetup.
Zoom = False.
FitToPagesTall = 1.
FitToPagesWide = 1
End With
适用于
Application对象
描述
此属性设置为 True 之后，所有输入的数据由 FixedDecimalPlaces 属性设定的小数位数设置格式。Boolean 类型，可读写。
示例
本示例将 FixedDecimal 属性设为 True，并将 FixedDecimalPlaces 属性设为 4。运行
本示例之后，输入“30000”将在工作簿上产生“3”，输入“12500”产生“1.25”。
Application.FixedDecimal = True
Application.FixedDecimalPlaces = 4
适用于
Application 对象
描述
Long 类型，当 FixedDecimal 设置为 True 时，可返回原来所设定的小数位数，或者对小数位数进行设置。可读写。
示例
本示例将 FixedDecimal 属性设置为 True，并将 FixedDecimalPlaces 属性设为 4。
本示例运行后，在工作表中输入 “30000” 将产生 “3”，输入“12500”产生“1.25”。
Application.FixedDecimal = True
Application.FixedDecimalPlaces = 4
适用于
Shape 对象，ShapeRange 集合对象
描述
绕指定形状的水平或垂直对称轴翻转。
句法
expression.Flip(FlipCmd)
expression
必选。该表达式返回 Shape 对象或 ShapeRange 对象。
FlipCmd
Long 类型，必选。指定形状是水平翻转还是垂直翻转。可为下列MsoFlipCmd 常量之一：msoFlipHorizontal 或 msoFlipVertical。
示例
本示例在myDocument中添加一个三角形，复制这个三角形，并将复制三角形垂直翻转及着上红色。
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeRightTriangle, _
10, 10, 50, 50).Duplicate
.Fill.ForeColor.RGB = RGB(255, 0, 0)
.Flip msoFlipVertical
End With
描述
代表三维图表的基底。
使用Floor对象可用 Floor 属性返回 Floor 对象。下例将第一个嵌入图表基底的颜色设置为青色。如果该图表不是三维图表，本示例将失败。
Worksheets("sheet1").ChartObjects(1)
.ActivateActiveChart.Floor.Interior.Color = RGB(0, 255, 255)
属性
Application 属性，Border 属性，Creator 属性，Fill 属性，Interior 属性，Name 属性，Parent 属性，PictureType 属性
方法
ClearFormats 方法，Paste方法（Floor 或 Walls 对象），Select 方法
适用于
Chart 对象
描述
返回 Floor 对象，代表三维图表的基底。只读。
示例
本示例将“图表1”的基底颜色设置为蓝色。本示例应在三维图表上运行（Floor属性在二维图表无效）。
Charts("Chart1").Floor.Interior.ColorIndex = 5
适用于
DefaultWebOptions 对象，WebOptions 对象
描述
返回文件夹后缀，当以 Web 页保存文档、使用长文件名以及选择将支持文件保存在单个文件夹中（即：如果 UseLongFileNames 和 OrganizeInFolder属性设置为 True）时，Microsfot Excel 会使用这些后缀。只读，String 类型。
说明
新创建的文档会使用 DefaultWebOptions 对象中 FolderSuffix 属性所返回的后缀。如果文档曾在其他语言版本的 Microsoft Excel 中进行过编辑，则 WebOptions 对象中 FolderSuffix 属性的值可能会与DefaultWebOptions 对象中该属性的值不同。可以使用UseDefaultFolderSuffix 方法将后缀更改为符合用户在 Microsoft Office2000 中所使用的语言。
默认情况下，支持文件夹名由 Web 页的名称加上单词“files“（将文件保存为 Web 页的 Excel 版本的语言形式）组成。例如，如果使用荷兰语版本的 Excel 将名为“Page1“的文件保存为 Web 页，则支持文件夹的默认名称为“Page1_bestanden"。
下表列出了每种语言版本的 Office 2000，同时还给出了相应的 LanguageID属性值和文件夹后缀。对于未列出的语言，使用后缀“.files"。
| 语言 | LanguageID | 文件夹后缀 |
| 阿拉伯语 | 1025 | .files |
| 巴斯克语 | 1069 | fitxategiak |
| 葡萄牙语（巴西） | 104 | 6arquivos |
| 保加利亚语 | 1026 | .files |
| 加泰罗尼亚语 | 1027 | fitxers |
| 简体中文 | 2052 | .files |
| 繁体中文 | 1028 | .files |
| 克罗地亚语 | 1050 | (datoteke) |
| 捷克语 | 1029 | (soubory) |
| 丹麦语 | 1030 | -filer |
| 荷兰语 | 1043 | bestanden |
| 英语 | 1033 | files |
| 爱莎尼亚语 | 1061 | failid |
| 芬兰语 | 1035 | (tiedostot) |
| 法语 | 1036 | (fichiers) |
| 德语 | 1031 | -Dateien |
| 希腊语 | 1032 | .files |
| 希伯来语 | 1037 | .files |
| 匈牙利语 | 1038 | elemei |
| 意大利语 | 1040 | (file) |
| 日语 | 1041 | .files |
| 朝鲜语 | 1042 | .files |
| 拉托维亚语 | 1062 | fails |
| 立陶宛语 | 1063 | bylos |
| 挪威语 | 1044 | -filer |
| 波兰语 | 1045 | pliki |
| 葡萄牙语 | 2070 | ficheiros |
| 罗马尼亚语 | 1048 | .files |
| 俄语 | 1049 | .files |
| 塞尔维亚语（西里尔） | 3098 | .files |
| 塞尔维亚语（拉丁） | 2074 | (fajlovi) |
| 斯洛伐克语 | 1051 | .files |
| 斯洛文尼亚语 | 1060 | (datoteke) |
| 西班牙语 | 3082 | archivos |
| 瑞典语 | 1053 | -filer |
| 泰语 | 1054 | .files |
| 土耳其语 | 1055 | ile ilgili dosyalar |
| 乌克兰语 | 1058 | .files |
| 越南语 | 1066 | .files |
示例
本示例返回第一个工作簿所使用的文件夹后缀。该后缀将返回到字符串变量 strFolderSuffix 中。
strFolderSuffix = Workbooks(1).WebOptions.FolderSuffix
适用于
Hyperlink 对象
描述
如果指定文档已经下载则显示缓冲区中的该文档。否则，本方法对指定超级链接进行处理以下载目标文档，然后将该文档在适当的应用程序中显示出来。
句法
expression.Follow(NewWindow, AddHistory, ExtraInfo, Method, HeaderInfo)
expression
必选。该表达式返回一个 Hyperlink 对象。
NewWindow
Variant 类型，可选。如果为 True 则将目标应用程序显示到一个新窗口中。默认值为 False。AddHistory
Variant 类型，可选。未使用，将来可用。
ExtraInfo
Variant 类型，可选。指定 HTTP 处理超级链接时要涉及的附加信息的String 或字节数组。例如，使用 ExtraInfo 可指定图象的坐标、窗体的内容或一个 FAT 文件名。
Method
Variant 类型，可选。指定 ExtraInfo 的附属方式。可为下列MsoExtraInfoMethod 常量。
| 常量 | 描述 |
| msoMethodGet | ExtraInfo 为追加到地址之后的 String。 |
| msoMethodPost | ExtraInfo 以 String 类型或字节数组方式邮送。 |
HeaderInfo
Variant 类型，可选。指定用于 HTTP 请求时要涉及的标题信息的 String或字节数组。默认值为空字符串。
另见
示例
本示例载入附属于第一张工作表中第一个形状的超级链接的文档。
Worksheets(1).Shapes(1).Hyperlink.Follow NewWindow:=True
适用于
Worksheet 对象
描述
当鼠标单击工作表上的任意超级链接时将发生此事件。对于应用程序或工作簿级的事件，另见 SheetFollowHyperlink 事件。
句法
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Target
必选。Hyperlink 类型。一个代表超级链接目标位置的 Hyperlink 对象。
另见
示例
本示例对在活动工作簿中访问过的所有链接保留一个列表或历史记录。
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
With UserForm1
.ListBox1.AddItem Target.Address
.Show
End With
End Sub
适用于
Workbook 对象
描述
如果指定文档已经下载则显示缓冲区中的该文档。否则，本方法对指定超级链接进行处理以下载目标文档，然后将该文档在适当的应用程序中显示出来。
句法expression.FollowHyperlink(Address,SubAddress,NewWindow,AddHistory,
ExtraInfo, Method, HeaderInfo)
expression
必选。该表达式返回一个 Workbook 对象。
Address
String 类型，必选。目标文档的地址。
SubAddress
Variant 类型，可选。目标文档中的位置。默认值为空字符串。
NewWindow
Variant 类型，可选。如果为 True 则将目标应用程序显示到一个新窗口中。默认值为 False。AddHistory
Variant 类型，可选。未使用，将来可用。
ExtraInfo
Variant 类型，可选。指定 HTTP 处理超级链接时要涉及的附加信息的String 或字节数组。例如，使用 ExtraInfo 可指定图象的坐标、窗体的内容或一个 FAT 文件名。
Method
Variant 类型，可选。指定 ExtraInfo 的附属方式。可为下列MsoExtraInfoMethod 常量。
| 常量 | 描述 |
| msoMethodGet | ExtraInfo 为追加到地址之后的 String。 |
| msoMethodPost | ExtraInfo 以 String 或字节数组方式邮送。 |
| msoMethodPostFile | ExtraInfo 指定一个 FAT 文件名，将该文件的内容邮送。 |
HeaderInfo
Variant 类型，可选。指定用于 HTTP 请求时要涉及的标题信息的 String。默认值为空字符串。
另见
示例
本示例将 www.gohere.com 中的文档载入到一个新窗口，并将其添加到历史文件夹。
ActiveWorkbook.FollowHyperlink Address:="http://www.gohere.com", _
NewWindow:=True
描述
包含对象的字体属性（字体名称、字体大小、颜色等）。
使用Font 对象
可用 Font 属性返回 Font 对象。下例将单元格区域 “A1:C5”的格式设置为加粗。
worksheets("sheet1").Range("a1:c5").Font.Bold = True
如果不想将单元格或图形对象中的文字全部设置成同一格式，可用
Characters 方法返回对象内文字的子集。
属性
Application 属性，Background 属性，Bold 属性，Color 属性，ColorIndex属性，Creator 属性，FontStyle 属性，Italic 属性，Name 属性，OutlineFont属性，Parent 属性，Shadow 属性，Size 属性，Strikethrough 属性，Subscript属性，Superscript 属性，Underline 属性
适用于
AxisTitle 对象，Characters 对象，ChartArea 对象，ChartTitle 对象，DataLabel 对象，DataLabels 集合对象，DataTable 对象，DisplayUnitLabel对象，FormatCondition 对象，Legend 对象，LegendEntry 对象，Phonetic对象，Phonetics 集合对象，Range 对象，Style 对象，TickLabels 对象
描述
返回一个 Font 对象，该对象代表指定对象的字体。只读。
另见
示例
本示例设置工作表1中B5单元格的字体为14磅黑、斜体。
With Worksheets("Sheet1").Range("B5").Font
.Size = 14
.Bold = True
.Italic = True
End With
适用于
TextEffectFormat 对象
描述
如果指定的艺术字对象中的文字加粗，本属性为 True。Long 类型，可读写。
示例
如果 myDocument 上的第三个形状是艺术字对象，本示例将把该对象的字体加粗。
Set myDocument = Worksheets(1)
With myDocument.Shapes(3)
If .Type = msoTextEffect Then
.TextEffect.FontBold = True
End If
End With
适用于
TextEffectFormat 对象
描述
如果指定的艺术字对象中的文字是倾斜的，本属性为 True。Long 类型，可读写。
示例
本示例使 myDocument 中形状“艺术字 4”的字体变成倾斜的。
Set myDocument = Worksheets(1)
myDocument.Shapes("WordArt 4").TextEffect.FontItalic = True
适用于
TextEffectFormat 对象
描述
返回或设置指定的艺术字对象中的字体名称。String 类型，可读写。
示例
如果 myDocument 上的第三个形状是艺术字对象，本示例将把该对象的字体设置为“Courier New”字体。
Set myDocument = Worksheets(1)
With myDocument.Shapes(3)
If .Type = msoTextEffect Then
.TextEffect.FontName = "Courier New"
End If
End With
适用于
DefaultWebOptions 对象
描述
返回 WebPageFonts 集合，此集合代表用户在 Excel 中打开 Web 页而该Web 页中没有指定任何字体信息，或者当前默认字体无法显示 Web 页中的字符集时，Microsoft Excel 将使用的字体集。只读。
示例
本示例将 English、Western European 或 Other Latin Script 字符集的默认等宽字体设置为“Courier New”，14 磅。
With Application.DefaultWebOptions _
.Fonts(msoCharacterSetEnglishWesternEuropeanOtherLatinScript)
.FixedWidthFont = "Courier New"
.FixedWidthFontSize = 14
End With
适用于
TextEffectFormat 对象
描述
以磅为单位返回或设置指定的艺术字对象中的字体大小。Single 类型，可读写。
示例
本示例将 myDocument 中的形状“艺术字 4”的字体大小设置为 16 磅。
Set myDocument = Worksheets(1)
myDocument.Shapes("WordArt 4").TextEffect.FontSize = 16
适用于
Font 对象
描述
返回或者设置字体样式。String 类型，可读写。
说明
更改本属性的值可能影响其他 Font 属性（如 Bold 和 Italic）。
另见
Background 属性， Bold 属性， Color 属性， ColorIndex 属性， Font 对象， Italic 属性， Name 属性， OutlineFont 属性， Shadow 属性， Size 属性， Strikethrough 属性， Subscript 属性， Superscript 属性， Underline 属性
示例
本示例将 Sheet1 中 A1 单元格的字体样式设为加粗和倾斜。
Worksheets("Sheet1").Range("A1").Font.FontStyle = "Bold Italic"
适用于
PageSetup 对象
描述
以磅为单位返回或者设置页脚到页面底端的距离。Double 类型，可读写。
另见
BottomMargin 属性， HeaderMargin 属性， LeftMargin 属性， RightMargin属性， TopMargin 属性
示例
本示例将 Sheet1 的页脚边距设为 0.5 英寸。
Worksheets("Sheet1").PageSetup.FooterMargin = _
Application.InchesToPoints(0.5)
适用于
ChartFillFormat 对象，FillFormat 对象，LineFormat 对象，ShadowFormat对象
描述
ChartFillFormat 对象：返回一个 ChartColorFormat 对象，该对象代表指定填充的前景颜色或纯颜色，只读。
所有其他对象：返回一个 ColorFormat 对象，该对象代表指定填充的前景颜色或纯颜色，只读。
示例
本示例为第一张图表设置前景颜色，背景颜色和图表区域填充的渐进颜色。
With Charts(1).ChartArea.Fill
.Visible = True
.ForeColor.SchemeColor = 15
.BackColor.SchemeColor = 17
.TwoColorGradient msoGradientHorizontal, 1
End With
适用于
PivotTable 对象
描述
将数据透视表报表的格式设置为预定义的缩进、非缩进或交叉表格等格式之一。
句法
expression.Format(Type)
expression
一个返回 PivotTable 对象的表达式。
Type
必选。XlPivotFormatType 类型。指定要应用于指定的数据透视表报表的报表格式类型。可以是下列 XlPivotFormatType 常量之一：xlPTClassic、xlPTNone、xlReport1、xlReport2、xlReport3、xlReport4、xlReport5、
xlReport6、xlReport7、xlReport8、xlReport9、xlReport10、xlTable1、xlTable2、xlTable3、xlTable4、xlTable5、xlTable6、xlTable7、xlTable8、xlTable9、xlTable10。
示例
本示例对活动工作表上第四张数据透视表报表应用 xlReport4 缩进格式。
ActiveSheet.PivotTables("PivotTable4").Format xlReport4
描述
代表一个条件格式。FormatCondition 对象是 FormatConditions 集合的成员。FormatConditions 集合最多可包含给定区域的三个条件格式。
使用 FormatCondition 对象
使用 FormatConditions(index)（其中 index 为条件格式的索引号）可返回一个 FormatCondition 对象。下列示例将“E1:E10”单元格的格式属性设置为一个现有的条件格式。
With Worksheets(1).Range("e1:e10").FormatConditions(1)
With .Border
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 6
End With
With .Font
.Bold = True
.ColorIndex = 3
End With
End With
说明
使用 Add 方法可新建一个条件格式。如果试图为单个区域创建多于三个条件的格式，则 Add 方法失效。如果一个区域有三个格式，可使用 Modify 方法对这些格式进行修改，或者使用 Delete 方法删除某个格式然后使用 Add方法新建一个格式。
使用 FormatCondition 对象的 Font、Border 和 Interior 属性可控制已设定格式单元格的显示。条件格式对象模型不支持这些对象的某些属性。
下表中列出所有可使用条件格式的属性。
| 对象 | 属性 |
| Font | Bold |
| Color | |
| ColorIndex | |
| FontStyle | |
| Italic | |
| Strikethrough | |
| Underline | |
| 不可以使用会计下划线样式。 | |
| Border | Bottom |
| Color | |
| Left | |
| Right | |
| Style | |
| 可使用下列边框样式（其他均不可用）：xlNone,xlSolid,xlDash,xlDot,xlDashDot,xlDashDotDot,xlGray50,xlGray75 和 xlGray25。 Top Weight 可使用下列边框粗细（其他均不可用）：xlWeightHairline 和xlWeightThin。 | |
| Interior | Color |
| ColorIndex | |
| Pattern | |
| Pattern | |
| ColorIndex |
属性
Application 属性，Borders 属性，Creator 属性，Font 属性，Formula1 属性，Formula2 属性，Interior 属性，Operator 属性，Parent 属性，Type 属性
方法
Detele 方法，Modify 方法（FormatCondition 对象）
描述
代表单个区域的所有条件格式的集合。FormatConditions 集合最多可包含三个条件格式。每一条件格式由一个 FormatCondition 对象代表。
使用FormatConditions 集合对象
使用 FormatConditions 属性可返回一个 FormatConditions 对象。使用Add 方法可新建一个条件格式，使用 Modify 方法可对现有条件格式进行更改。
下列示例为“E1:E10”单元格添加条件格式。
With Worksheets(1).Range("e1:e10").FormatConditions _
.Add(xlCellValue, xlGreater, "=$a$1")
With .Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 6
End With
With .Font
.Bold = True
.ColorIndex = 3
End With
End With
说明
如果试图为单个区域创建三个以上的条件格式则 Add 方法失效。如果一个区域有三个格式，则使用 Modify 方法可对其中某个格式进行更改。也可以先使用 Delete 方法删除一个格式，然后再使用 Add 方法新建一个格式。
有关条件格式的详细内容，另见 FormatCondition 对象。
属性
Application 属性，Count 属性，Creator 属性，Parent 属性
方法
Add 方法（FormatConditions 集合），Delete 方法，Item 方法（FormatConditions 集合）
适用于
Range 对象
描述
返回 FormatConditions 集合，该集合代表指定区域的所有条件格式，只读。
示例
本示例修改单元格区域“E1:E10”的现存条件格式。
Worksheets(1).Range("e1:e10").FormatConditions(1) _
.Modify xlCellValue, xlLess, "=$a$1"
Formatting Codes for Headers 和 Footers
描述
下列特定的格式代码可以当作页眉和页脚属性的一部分(LeftHeaderCenterHeader, RightHeader, LeftFooter, CenterFooter, RightFooter).
| 格式代码 | 描述 |
| &L | 左对齐。 |
| &C | 居中。 |
| &R | 右对齐。 |
| &E | 打开或关闭双下划线打印。 |
| &X | 打开或关闭上标模式。 |
| &Y | 打开或关闭下标模式。 |
| &B | 打开或关闭黑体。 |
| &I | 打开或关闭斜体。 |
| &U | 打开或关闭下划线。 |
| &S | 打开或关闭着重模式。 |
| &D | 打印当前日期。 |
| &T | 打印当前时间。 |
| &F | 打印文件名。 |
| &A | 打印工作表标签。 |
| &P | 打印页。 |
| &P+number | 打印页+number。 |
| &P-number | 打印页码-number。 |
| && | 打印单个“&”符号。 |
| fontname | 用由fontname指定的字体打印字符。注意fontname要用双引号括起来。 |
| &nn | 用由nn指定的字体大小打印字符。以磅为单位，使用两位数字来指定字体的大小。 |
| &N | 打印文档的总叶数。 |
适用于
Shape 对象
描述
返回 Microsoft Excel 控件类型。可为下列 XlFormControl 常量之一：xlButtonControl，xlCheckBox，xlDropDown，xlEditBox，xlGroupBox，xlLabel，xlListBox，xlOptionButton，xlScrollBar或xlSpinner。Long类型，只读。
说明
不能对 ActiveX 控件使用本属性（Shape 对象的 Type 属性必须返回msoFormControl）。
示例
本示例清除第一张工作表中的所有 Microsoft Excel 复选框。
For Each s In Worksheets(1).Shapes
If s.Type = msoFormControl Then
If s.FormControlType = xlCheckBox Then _
s.ControlFormat.Value = False
End IfNext
适用于
PivotField 对象，PivotFormula 对象，PivotItem 对象，Range 对象，Series对象
描述
对 Range 对象为 Variant 类型；对其他所有对象为 String 类型。返回或者设置对象的公式，由A1-样式符号和宏语言组成，可读写。
说明
如果指定单元格中包含常量，此属性返回的也是常量；如果指定单元格为空，Formula 属性将返回一个空字符串；如果指定单元格包含公式，Formula属性将该公式作为字符串返回，并保持与在编辑栏内显示时相同的格式（包括等号）。
如果将单元格的值或者公式设置为日期类型， Microsoft Excel 将检查此单元格的数字格式是否符合日期或者时间格式。如果不符合， Microsoft Excel将把数字格式设为默认的短日期格式。
如果指定区域为一维或二维区域，则可将公式设为 Visual Basic 中维数相同的数组。类似地，也可将公式放入 Visual Basic 数组中。
如果为多重单元格区域设置公式，将在区域中每个单元格填入该公式。
另见
FormulaArray 属性， FormulaLocal 属性， FormulaR1C1 属性， FormulaR1C1Local 属性
示例
本示例设置 Sheet1 中 A1 单元格的公式。
Worksheets("Sheet1").Range("A1").Formula = "=$A$4+$A$10"
适用于
FormatCondition 对象，Validation 对象
描述
返回与条件格式或者有效数据相联系的表达式或数值。可为常量、字符串、单元格引用或公式。String 类型，只读。
另见
Add 方法（FormatConditions 集合）， Formula2 属性， Modify 方法（FormatCondition 对象）， Operator 属性
示例
如果单元格区域 E1:E10 的第一个条件格式的公式指定“小于 5”，本示例将修改该公式。
With Worksheets(1).Range("e1:e10").FormatConditions(1)
If .Operator = xlLess And .Formula1 = "5" Then
.Modify xlCellValue, xlLess, "10"
End If
End With
适用于
FormatCondition 对象，Validation 对象
描述
返回与条件格式或有效数据第二部分相联系的表达式或数值。仅用于条件格式或有效数据的 Operator 属性为 xlBetween 或 xlNotBetween 的情况。可为常量、字符串、单元格引用或公式。String 类型，只读。
另见
Add 方法（FormatConditions 集合）， Formula1 属性， Modify 方法（FormatCondition 对象）， Operator 属性
示例
如果单元格区域“E1:E10”的第一个条件格式的公式指定的是“介于 5 和 10 之间”，本示例将修改之。
With Worksheets(1).Range("e1:e10").FormatConditions(1)
If .Operator = xlBetween And _
.Formula1 = "5" And _
.Formula2 = "10" Then
.Modify xlCellValue, xlLess, "10"
End If
End With
适用于
Range 对象
描述
返回或设置区域的数组公式。返回（或可设置为）单个公式或 Visual Basic 数组。如果指定区域不包含数组公式，本属性返回 Null。Variant 类型，可读写。
说明
如果用本属性输入数组公式，那么该公式必须使用 R1C1 引用样式，而不能使用 A1 引用样式（另见第二个示例）。
另见
示例
本示例在工作表“图表1”上的单元格区域“A1:A5”中输入数组常量 3。
Worksheets("Sheet1").Range("A1:C5").FormulaArray = "=3"
本示例在工作表“sheet1”上的单元格区域“E1:E3”中输入数组公式“=SUM(R1C1:R3C3)”。
Worksheets("Sheet1").Range("E1:E3").FormulaArray = _
"=Sum(R1C1:R3C3)"
适用于
Range 对象，Style 对象
描述
如果工作簿或工作表处于保护状态时隐藏公式，本属性为 True。Boolean 类型，可读写。说明
切勿将该属性与 Hidden 属性混淆。
另见
Locked 属性， Protect 方法， Unprotect 方法
示例
本示例使工作表“sheet1”处于保护状态时，隐藏“A”列中的公式。
Worksheets("Sheet1").Columns("A").FormulaHidden = True
适用于
Range 对象
描述
返回或设置指定区域的公式标志类型。可为 xlNone 表明该区域无标志，或者可为下列 XlFormulaLabel 常量之一：xlRowLabels，xlColumnLabels或 xlMixedLabels。
Variant 类型，可读写。
另见
示例
本示例对活动工作簿设置 AcceptLabelsInFormulas 属性，然后将单元格“B1:D1”设置为列标志。
ActiveWorkbook.AcceptLabelsInFormulas = True
Worksheets(1).Range("b1:d1").FormulaLabel = xlColumnLabels
适用于
Range 对象，Series 对象
描述
对于 Range 对象为 Variant 类型，对于 Series 对象为 String 类型，返回或者设置指定对象的公式，用用户语言中 A1-样式引用表示。可读写。
说明
如果指定单元格包含常量，本属性返回的就是该常量。如果该单元格为空，本属性将返回一个空字符串。如果该单元格包含公式，本属性将把该公式作为字符串返回，格式与该公式在编辑栏中的显示格式相同（包括等号）。如果将单元格格式的值或公式设为日期类型， Microsoft Excel 将检查该单元格的格式是否符合某个日期或时间数组格式，如果不符合，将采用默认的短日期数字格式。
如果指定区域是一维或二维区域，则可将公式指定为 Visual Basic 中相同维数的数组。同样，也可在 Visual Basic 数组中使用公式。
对多重单元格区域设置公式，则该区域中所有单元格都用此公式填充。
另见
Formula 属性， FormulaArray 属性， FormulaR1C1 属性， FormulaR1C1Local 属性
示例
假设在工作表1的A11单元格中输入公式=SUM(A1:A10)，使用MicrosoftExcel的美国英语版本。如果随后在一个运行德语版的电脑中打开此工作表，然后运行下面的示例，示例将会在一个消息框中显示公式为=SUMME(A1:A10)。
MsgBox Worksheets(1).Range(A11).FormulaLocal
适用于
Range 对象，Series 对象
描述
对于 Range 对象为 Variant 类型，对于 Series 对象为 String 类型，返回或者设置指定对象的公式，用宏语言的 R1C1-样式符号表示。可读写。
说明
如果指定单元格包含常量，本属性返回的就是该常量。如果该单元格为空，本属性将返回一个空字符串。如果该单元格包含公式，本属性将把该公式作为字符串返回，格式与该公式在编辑栏中的显示格式相同（包括等号）。如果将单元格格式的值或公式设为日期类型， Microsoft Excel 将检查该单元格的格式是否符合某个日期或时间数值格式，如果不符合，将采用默认的短日期数字格式。
如果指定区域是一维或二维区域，则可将公式指定为 Visual Basic 中相同维数的数组。同样，也可在 Visual Basic 数组中使用此公式。
对多重单元格区域设置公式，则该区域中所有单元格都用此公式填充。
另见
Formula 属性， FormulaArray 属性， FormulaLocal 属性， FormulaR1C1Local 属性
示例
本示例为 Sheet1 的 B1 单元格设置公式。
Worksheets("Sheet1").Range("B1").FormulaR1C1 = "=SQRT(R1C1)"
适用于
Range 对象，Series 对象
描述
对于 Range 对象为 Variant 类型，对于 Series 对象为 String 类型，返回或者设置指定对象的公式，用用户语言的 R1C1-样式符号表示。可读写。
说明
如果指定单元格包含常量，本属性返回的就是该常量。如果该单元格为空，本属性将返回一个空字符串。如果该单元格包含公式，本属性将把该公式作为字符串返回，格式与该公式在编辑栏中的显示格式相同（包括等号）。如果将单元格格式的值或公式设为日期类型， Microsoft Excel 将检查该单元格的格式是否符合某个日期或时间数组格式，如果不符合，将采用默认的短日期数字格式。
如果指定区域是一维或二维区域，则可将公式指定为 Visual Basic 中相同维数的数组。同样，也可在 Visual Basic 数组中使用此公式。
对多重单元格区域设置公式，则该区域中所有单元格都用此公式填充。
另见
Formula 属性， FormulaArray 属性， FormulaLocal 属性， FormulaR1C1 属性
示例
假定使用的是美国英语版的 Microsoft Excel，并往第一张工作表的 A11 单元格中输入了公式 =SUM(A1:A10) 。如果在一台运行德文版 MicrosoftExcel 的计算机上打开该工作表，并运行下列示例，该示例将在消息框中显示公式 =SUMME(Z1S1:Z10S1) 。
MsgBox Worksheets(1).Range("A11").FormulaR1C1Local
适用于
Trendline 对象
描述
返回或者设置趋势线向前延伸的周期数目（或者散点图的单位数）。Long 类型，可读写。
另见
示例
本示例设置“图表1”中趋势线向前和向后延伸的单位数。本示例应在仅包含一个带趋势线系列的二位柱形图上运行。
Wth Charts("Chart1").SeriesCollection(1).Trendlines(1)
.Forward = 5
.Backward = .5
End With
描述
代表任意多边形创建时的几何属性。
使用FreeformBuilder 对象
可用 BuildFreeform 方法返回 FreeformBuilder对象；可用 AddNodes 方法向任意多边形添加节点；可用 ConvertToShape 方法创建FreeformBuilder 对象所定义的形状并将其添加到 Shapes 集合中。下例向myDocument 中添加了带有四个线段的任意多边形。
Set myDocument = Worksheets(1)
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200)
.AddNodes msoSegmentCurve, msoEditingCorner, 380, 230, 400, 250, 450, 300
.AddNodes msoSegmentCurve, msoEditingAuto, 480, 200
.AddNodes msoSegmentLine, msoEditingAuto, 480, 400
.AddNodes msoSegmentLine, msoEditingAuto, 360, 200
.ConvertToShape
End With
属性
Application 属性，Creator 属性，Parent 属性
方法
AddNodes 方法，ConvertToShape 方法
适用于
Window 对象
描述
如果拆分窗格被冻结则为 True，Boolean 类型，可读写。
说明
可以将 FreezePanes 设为 True，同时将Split 设为 False,反之亦然。该属性仅应用于工作表和宏表。
示例
本示例冻结 Book1.xls 当前窗口的拆分窗格。
Workbooks("BOOK1.XLS").Worksheets("Sheet1")
.ActivateActiveWindow.FreezePanes = True
适用于
AddIn 对象，Workbook 对象
描述
String 类型，返回对象的名称，包括其磁盘路径的字符串。只读。
说明
此属性等价于在 Path 属性后加上当前文件系统的分隔符，然后加上 Name
属性。
示例
本示例显示每一个可用加载宏的路径及文件名。
For Each a In AddIns
MsgBox a.FullName
Next a
本示例显示当前工作簿的路径及文件名（假定尚未保存此工作簿）。
MsgBox ActiveWorkbook.FullName
适用于
PivotField 对象
描述
返回或者solidationFunction 常量之一： xlAverage，xlCount，xlCountNums，xlMax，xl设置对数据透视表字段汇总时所使用的函数（仅用于数据字段）。可为下列 XlConMin，xlProduct，xlStDev，xlStDevP，xlSum，xlUnknown，xlVar或xlVarP。Long 类型，可读写。
说明
对OLAP 数据源，本属性为只读，并总返回xlUnknown。对其他数据源，本属性不能设为xlUnknown。
示例
本示例设置位于活动工作表上的“数据透视表1”的“Sum of 1994”字段的汇总，使用 SUM 函数完成此项汇总。
ActiveSheet.PivotTables("PivotTable1") _.
PivotFields("Sum of 1994").Function = xlSum
适用于
Range 对象
描述
对指定区域左上角单元格启动函数向导。
句法
expression.FunctionWizard
expression
必选。该表达式返回一个 Range 对象。
示例
本示例对 Sheet1 中活动单元格启动函数向导。
Worksheets("Sheet1").Activate
ActiveCell.FunctionWizard
适用于
CalloutFormat 对象
描述
以磅为单位，返回或设置标注线终点与标注文本框边框之间的水平距离。
Single 类型，可读写。
示例
本示例将 myDocument 上第一个形状的标注线与标注文本框边框之间的水平距离设置为 3 磅。为使本示例正常运行，第一个形状必须是标注。
Set myDocument = Worksheets(1)
myDocument.Shapes(1).Callout.Gap = 3
适用于
Chart 对象
描述
以数据标记宽度的百分比形式返回或者设置三维图表中数据系列之间的距离，本属性的值必须在 0 和 500 之间。
Long 类型，可读写。
示例
本示例将“Chart1”的数据系列之间的距离设为数据标记宽度的 200%。
本示例应在三维图表上运行（GapDepth 属性在 二维图表上无效）。Charts("Chart1").GapDepth = 200
适用于
ChartGroup 对象
描述
对于条形图和柱形图：以条形或柱形宽度百分数的形式返回或者设置条形簇或柱形簇之间的间距。本属性值必须在 0 和 500 之间。Long 类型，可读写。
对于饼图中的扇形和饼图中的条形：返回或者设置指定图表的第一部分和第二部分之间的间距。本属性值必须在 5 和 200 之间。Long 类型，可读写。
另见
示例
本示例将“Chart1”的列簇间距设为列宽的 50%。
Charts("Chart1").ChartGroups(1).GapWidth = 50
适用于
Chart 对象
描述
返回指定的 X 坐标和 Y 坐标位置上的图表元素的信息。本方法稍有与众不同之处：调用时只须指定前两个参数，在本方法执行期间，由 MicrosoftExcel 为其余参数赋值，本方法返回后代码应检验这些参数的值。
句法
expression.GetChartElement(X, Y, ElementID, Arg1, Arg2)
expression
必选。该表达式返回 Chart 对象。
X
Long 类型，必选。图表元素的 X 坐标。
Y
Long 类型，必选。图表元素的 Y 坐标。
ElementID
Long 类型，必选。本方法返回后，本参数包含指定坐标处的图表元素的XLChartItem 值。详细内容另见“说明”部分。
Arg1
Long 类型，必选。本方法返回后，本参数包含与图表元素相关的信息。详细内容另见“说明”部分。
Arg2
Long 类型，必选。本方法返回后，本参数包含与图表元素相关的信息。详细内容另见“说明”部分。
说明
本方法返回后， ElementID 的值决定了 Arg1 和 Arg2 包含的信息，如下表所示。
| ElementID | Arg1 | Arg2 |
| XlChartArea | 无 | 无 |
| XlChartTitle | 无 | 无 |
| XlCorners | 无 | 无 |
| XlDataTable | 无 | 无 |
| XlFloor | 无 | 无 |
| XlLegend | 无 | 无 |
| XlNothing | 无 | 无 |
| XlPlotArea | 无 | 无 |
| XlWalls | 无 | 无 |
| XlAxis | 坐标轴编号 | 坐标轴类型 |
| xlAxisTitle | 坐标轴编号 | 坐标轴类型 |
| xlDisplayunitLabel | 坐标轴编号 | 坐标轴类型 |
| xlMajorGridlines | 坐标轴编号 | 坐标轴类型 |
| xlMinorGridlines | 坐标轴编号 | 坐标轴类型 |
| xlDownBars | 组编号 | 无 |
| xlUpBars | 组编号 | 无 |
| xlDropLines | 组编号 | 无 |
| xlHiLoLines | 组编号 | 无 |
| xlSeriesLines | 组编号 | 无 |
| xlRadarAxisLabels | 组编号 | 无 |
| xlDataLabel | 系列号 | 数据点编号 |
| xlErrorBars | 系列号 | 无 |
| xlLegendEntry | 系列号 | 无 |
| xlLegendKey | 系列号 | 无 |
| xlSeries | 系列号 | 数据点编号 |
| xlTrendline | 系列号 | 趋势线编号 |
| xlXErrorBars | 系列号 | 无 |
| xlYErrorBars | 系列号 | 无 |
| xlShape | 形状编号 | 无 |
| xlPivotChartDropZone | 拖动区类型 | 无 |
| xlPivotChartFieldButton | 拖动区类型 | 数据透视字段编号 |
下表说明了本方法返回后 Arg1 和 Arg2 参数的含义。
| 参数 | 说明 |
| 系列号 | 指定特定的系列在 Series 集合内的偏移量。 |
| 数据点编号 | 指定系列中特定的点在 Points 集合内的偏移量。“-1”表示选定了所有数据点。 |
| 趋势线编号 | 指定系列中特定的趋势线在 Trendlines 集合内的偏移量。 |
| 坐标轴编号 | 指定坐标轴是主坐标轴还是次坐标轴。可为以下xlAxisGroup常量之一：xlPrimary或xlSecondary。 |
| 坐标轴类型 | 指定坐标轴类型。可为以下xlAxisType常量之一：xlCategory，xlSeriesAxis或xlValue。 |
| 组编号 | 指定特定的图表组在 ChartGroups 集合内的偏移量。 |
| 形状编号 | 指定特定的形状在 Shapes 集合内的偏移量。 |
| 拖动区类型 | 指定拖动区的类型：列、数据、页或行字段。可以是下列XlPivotFieldOrientation 常量之一：xlColumnField，xlDataField，xlPageField 或 xlRowField。列和行字段常量分别指定系列和分类字段。 |
| 数据透视字段编号 | 指定特定列（系列）、数据、页或行（分类）字段在 PivotFields 集合中的偏移量。 |
示例
当鼠标移动到图表图例上时，本示例发出警告。
Private Sub Chart_MouseMove(ByVal Button As Long, _
ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
Dim IDNum As Long
Dim a As Long
Dim b As Long
ActiveChart.GetChartElement X, Y, IDNum, a, b
If IDNum = xlLegendEntry Then _
MsgBox "WARNING: Move away from the legend"
End Sub
适用于
Application 对象
描述
返回一个自定义序列（一个字符串数组）。
句法
expression.GetCustomListContents(ListNum)
expression
必选。该表达式返回一个 Application 对象。
ListNum
Long 类型，必选。序列号。
另见
AddCustomList 方法， CustomListCount 属性， DeleteCustomList 方法， GetCustomListNum 方法
示例
本示例将第一个自定义序列的元素写到 Sheet1 的第一列中。
listArray = Application.GetCustomListContents(1)
For i = LBound(listArray, 1) To UBound(listArray, 1)
Worksheets("Sheet1").Cells(i, 1).Value = listArray(i)
Next I
适用于
Application 对象
描述
返回字符串数组的自定义序列号。使用本方法既可对内置式序列进行匹配，也可对自定义序列进行匹配。
句法
expression.GetCustomListNum(ListArray)
expression
必选。该表达式返回一个 Application 对象。
ListArray
Variant 类型，必选。 字符串数组。
说明
如果没有对应序列则使用本方法将出错。
另见
AddCustomList 方法， CustomListCount 属性， DeleteCustomlist 方法， GetCustomListContents 方法
示例
本示例删除一个自定义序列。
n=Application.GetCustomListNum(Array("cogs","sprockets",_
"widgets", "gizmos"))
Application.DeleteCustomList n
适用于
PivotTable 对象
句法
expression.GetData(Name)
expression
必选。该表达式返回一个 PivotTable 对象。
Name
String 类型，必选。描述数据透视表中的单个单元格，使用的句法类似于PivotSelect 方法或者已计算数据项公式中的数据透视表报表引用。
示例
本示例显示一月的苹果收入合计（Data field = Revenue, Product = Apples,Month = January）。
Msgbox ActiveSheet.PivotTables(1) _.
GetData("'Sum of Revenue' Apples January")
适用于
Application 对象
描述
显示标准的“打开”对话框，获取用户文件名，而不必真正打开任何文件。
句法
expression.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonTextMultiSelect)
expression
必选。该表达式返回一个 Application 对象。
FileFilter
Variant 类型，可选。是指定文件筛选条件的字符串。
在 Windows 中，该字符串由一文件筛选字符串对与 MS-DOS 通配符表达的文件筛选规则说明组成，中间以逗号分隔。每对分割开的字符串都在“文件类型”下拉列表框中列出。例如，下列字符串指定两个文件筛选串，文本文件和加载宏：“Text Files(*.txt),*.txt,Add-In 文件 (*.xla),*.xla”。
可使用多个 MS-DOS 通配符表达的文件筛选串组成一个文件筛选类型，各通配符之间用分号分割，例如，“Visual Basic 文件 (*.bas;*.txt),*.bas;*.txt”。
如果在 Windows 中省略本参数，则默认参数值为“所有文件 (*.*),*.*”。
FilterIndex
Variant 类型，可选。指定默认文件筛选条件的索引号，取值范围为 1 到FileFilter 指定的筛选条件数目之间。如果省略本参数，或者取值大于可用筛选数目，则采用第一个文件筛选条件。
Title
Variant 类型，可选。指定对话框的标题。如果省略本参数，则使用“打开”作为标题。
ButtonText
Variant类型，可选。只适用于Macintosh中。
MultiSelect
Variant 类型，可选。如果为 True 则允许选定多个文件名，如果为 False 则只允许选定单个文件名。默认值为 False。
说明
本方法返回的是选定的文件名或用户输入的文件名。返回的名称可能包含路径的说明。如果 MultiSelect 设为 True，返回值将是一个包含所有选定文件名的数组（即使仅选定了一个文件名）。如果用户取消了对话框则返回False。
本方法可能更改当前驱动器或文件夹。
另见
GetSaveFilename 方法, Open 方法
示例
本示例显示文本文件的“打开”对话框。如果用户选择了一个文件名，将在消息框中显示所选的文件名。
fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
适用于
Application 对象
描述
返回指定文本字符串的日文拼音文本。本方法只有在安装了Microsoft Office日语系统后才能使用。
句法
expression.GetPhonetic(Text)
expression
返回Application 对象的表达式。
Text
可选，Variant类型。指定要转换为音标的文本。如果忽略此参数，则返回上一次指定的文本（如果有的话），如果没有要转换的文本字符串，则返回一个空字符串。
示例
本示例显示指定的字符串中的所有可能的音标。
strPhoText = Application.GetPhonetic(""纯子)
While strPhoText <> ""
MsgBox strPhoText
strPhoText = Application.GetPhonetic()
Wend
适用于
Application 对象
描述
显示标准的“另存为”对话框，获取用户文件名，而无须真正保存任何文件。
句法
expression.GetSaveAsFilename(InitialFilename,FileFilter,FilterIndex,
Title,ButtonText)
expression
必选。该表达式返回一个 Application 对象。
InitialFilename
Variant 类型，可选。指定建议的文件名。如果省略本参数， Microsoft Excel将使用活动工作簿的名称作为建议的文件名。
FileFilter
Variant 类型，可选。指定文件筛选条件的字符串。
在 Windows 中，该字符串由一文件筛选字符串与 MS-DOS 通配符表达的文件筛选规则说明组成，中间以逗号分隔。每个字符串都在“文件类型”下拉列表框中列出。例如，下列字符串指定两个文件筛选串，文本文件和加载宏：敂extFiles(*.txt),*.txt,Add-In 文件 (*.xla),*xla。
可使用多个MS-DOS 通配符表达的文件筛选串组成一个文件筛选类型，各通配符之间用分号分割，例如，“Visual Basic 文件 (*.bas;*.txt),*.bas;*.txt”。
如果在 Windows 中省略本参数，则默认参数值为“所有文件 (*.*),*.*”。
FilterIndex
Variant 类型，可选。指定默认文件筛选条件的索引号，取值范围为 1 到FileFilter 指定的筛选条件数目之间。如果省略本参数，或者取值大于可用筛选数目，则采用第一个文件筛选条件。
Title
Variant 类型，可选。指定对话框的标题。如果省略本参数，则使用默认标题。
ButtonTextVariant类型，可选。只适用于Macintosh。
说明
本方法返回选定的文件名或用户输入的名称。返回的文件名可能包含路径说明。如果用户取消了对话框则返回 False。
本方法可能更改当前驱动器或文件夹。
另见
GetOpenFilename 方法， Save 方法， SaveAs 方法
示例
本示例显示文本文件的“另存为”对话框。如果用户选择了一个文件名，将在消息框中显示所选的文件名。
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Text Files (*.txt), *.txt")
If fileSaveName <> False Then
MsgBox "Savs As" & fileSaveName
End If
适用于
Range 对象
描述
为得出特定结果而进行单变量求解。如果此特定结果是由某公式返回的量，本方法将求出该公式中未知数的值，当用该值代换公式中的未知数时，该公式将得出所需的特定结果。如果单变量求解成功，本方法返回 True。
句法
expression.GoalSeek(Goal, ChangingCell)
expression
必选。该表达式返回 Range 对象。必须为单个单元格。
Goal
Variant 类型，必选。希望在该单元格中得出的结果。
ChangingCell
Range 类型，必选。指定将放置未知数的解的单元格。
示例
本示例假定工作表“Sheet1”中包含单元格“Polynomial”，该单元格的公式为“ =(X^3)+(3*X^2)+6 ”，另有空单元格“X”。本示例将求得一解，当 X 取值为该解时，单元格“Polynomial”的值为 15。
Worksheets("Sheet1").Range("Polynomial").GoalSeek _
Goal:=15, _
ChangingCell:=Worksheets("Sheet1").Range("X")
适用于
OLEObject 对象
描述
当 ActiveX 控件获得输入焦点时，产生本事件。
句法
Private Sub object_GotFocus()
Object
ActiveX 控件的名称。
示例
当“ListBox1”获得输入焦点时，将运行本示例。
Private Sub ListBox1_GotFocus()
' runs when list box gets the focus
End Sub
适用于
Application 对象
描述
选定任意工作簿中的任意区域或任意 Visual Basic 过程，并且如果该工作簿未处于活动状态，就激活该工作簿。
句法
expression.Goto(Reference, Scroll)
expression
必选。该表达式返回 Application 对象。
Reference
Variant 类型，可选。指定目标。可为 Range 对象、包含 R1C1-样式符号的单元格引用的字符串或包含 Visual Basic 过程名的字符串。如果省略本参数，目标将是最后一次用 Goto 方法选定的区域。
Scroll
Variant 类型，可选。若指定为 True，则滚动窗口直至目标区域的左上角单元格出现在窗口的左上角。若指定为 False，则不滚动窗口。默认值为False。
说明
本方法与 Select 方法不同，表现在下列方面：
l 如果指定的区域不在位于最前面屏幕的工作表中， Microsoft Excel 将在选定该区域之前切换至该工作表。（如果对不在屏幕的最前面的工作表中的区域使用 Select 方法，则选定该区域时并不激活该工作表。）
l 本方法有 Scroll 参数，允许在目标窗口内滚动。
l 使用 Goto 方法时，原有的（运行 Goto 方法之前的）选定区域将加到先前选定区域数组中（详细内容另见 PreviousSelections 属性）。利用这一性能，可在最多四个选定区域之间迅速跳转。
l Select 方法有 Replace 参数；而 Goto 方法没有。
另见
示例
本示例选定工作表“Sheet1”中的单元格“A154”，并滚动工作表以显示该单元格。
Application.Goto Reference:=Worksheets("Sheet1").Range("A154"), _
scroll:=True
适用于
ChartFillFormat 对象，FillFormat 对象
描述
返回指定填充的渐进颜色类型。可为下列 MsoGradientColorType 常量之一：msoGradientColorMixed，msoGradientOneColor，msoGradientPresetColors 或 msoGradientTwoColors。Long 类型，只读。
示例
本示例以第一张图表中使用的填充格式对第二张图表的填充格式进行设置。
Set c1f = Charts(1).ChartArea.Fill
If c1f.Type = msoFillGradient And _
c1f.GradientColorType = msoGradientOneColor Then
With Charts(2).ChartArea.Fill
.Visible = True
.OneColorGradient c1f.GradientStyle, _
c1f.GradientVariant, c1f.GradientDegree
End With
End If
适用于
ChartFillFormat 对象，FillFormat 对象
描述
以浮点数值的方式返回单色阴影填充的灰度，数值大小在 0.0（暗）和 1.0（亮）之间。
Single 类型，只读。
本属性只读。使用 OneColorGradient 方法可对填充的灰度进行设置。
示例
本示例以第一张图表中使用的填充格式对第二张图表的填充格式进行设置。
Set c1f = Charts(1).ChartArea.Fill
If c1f.Type = msoFillGradient And _
c1f.GradientColorType = msoGradientOneColor Then
With Charts(2).ChartArea.Fill
.Visible = True
.OneColorGradient c1f.GradientStyle, _
c1f.GradientVariant, c1f.GradientDegree
End With
End If
适用于
ChartFillFormat 对象，FillFormat 对象
描述
返回指定填充的渐进(gradient)样式。可为下列 MsoGradientStyle 常量之一： msoGradientDiagonalDown，msoGradientDiagonalUp，msoGradientFromCenter，msoGradientFromCorner，msoGradientFromTitle，msoGradientHorizontal，msoGradientMixed 或msoGradientVertical。msoGradientFromTitle 常量在 Microsoft Excel 中不用。Long 类型，只读。本属性只读。使用 OneColorGradient 或TwoColorGradient 方法可对填充的渐进样式进行设置。
示例
Set c1f = Charts(1).ChartArea.Fill
If c1f.Type = msoFillGradient And _
c1f.GradientColorType = msoGradientOneColor Then
With Charts(2).ChartArea.Fill
.Visible = True
. OneColorGradient c1f.GradientStyle, _
c1f.GradientVariant, c1f.GradientDegree
End With
End If
适用于
ChartFillFormat 对象，FillFormat 对象
描述
以整数形式返回指定填充的底纹变量值，取值范围在 1 到 4 之间。本属性值与“填充效果”对话框中“渐进”选项卡的渐进变量值相对应（从左到右，从上到下编号）。
Long 类型，只读。
本属性只读。使用 OneColorGradient 方法或 TwoColorGradient 方法可对填充的渐进变量进行设置。
示例
本示例以第一张图表中使用的填充格式对第二张图表的填充格式进行设置。
Set c1f = Charts(1).ChartArea.Fill
If c1f.Type = msoFillGradient And _
c1f.GradientColorType = msoGradientOneColor Then
With Charts(2).ChartArea.Fill
.Visible = True
.OneColorGradient c1f.GradientStyle, _
c1f.GradientVariant, c1f.GradientDegree
End With
End If
适用于
PivotTable 对象
描述
返回或设置显示在指定数据透视表报表的总计列或行标题中的文本串标志。默认值为字符串“Grand Total敗？啥列矗琒tring 类型。
示例
本示例将活动工作表第二个数据透视表报表中总计标题的标志设置为“Regional Total
ActiveSheet.PivotTables("PivotTable2").GrandTotalName = "Regional Total"
适用于
Window 对象
描述
以 RGB 值返回或者设置网格线颜色。Long 类型，可读写。
另见
DisplayGridlines 属性， Gridline ColorIndex 属性
示例
本示例将 Book1.xls 当前窗口中网格线的颜色设为红色。
Workbooks("BOOK1.XLS").Worksheets("Sheet1").Activate
ActiveWindow.GridlineColor = RGB(255,0,0)
适用于
Window 对象
描述
返回或设置网格线颜色，其值为当前调色板中的索引，或下列 XlColorIndex常量之一： xlColorIndexAutomatic 或 xlColorIndexNone。Variant 类型，可读写。
说明
将此属性设置为 xlColorIndexAutomatic，颜色可自动设定。
另见
Colors 属性， DisplayGridlines 属性， GridlineColor 属性
示例
本示例将当前窗口中的网格线颜色设为蓝色。
ActiveWindow.GridlineColorIndex = 5
描述
代表图表坐标轴上的主要和次要网格线。网格线延伸图表坐标轴上的刻度线，以便更容易地分辨与数据标记相关联的数值。本对象并非集合，同时也没有代表单个网格线的对象，要么打开坐标轴上所有的网格线，要么将其全部关闭。
使用Gridlines 对象
可用 MajorGridlines 属性返回代表坐标轴的主要网格线的 GridLines 对象；用 MinorGridlines 属性返回代表坐标轴的次要网格线的 GridLines 对象。可以同时返回主要及次要网格线。
下例打开图表工作表“Chart1”上分类轴的主要网格线，并将网格线设置为兰色虚线。
With Charts("Chart1").Axes(xlCategory)
.HasMajorGridlines = True.
MajorGridlines.Border.Color = RGB(0, 0, 255)
. MajorGridlines.Border.LineStyle = xlDash
End With
属性
Application 属性，Border 属性，Creator 属性，Name 属性，Parent 属性
方法
Delete 方法，Select 方法
适用于
Range 对象
描述
当指定 Range 对象在一个分级显示中时， Group 方法（句法 1）将对指定区域降级（也就是说，增加其分级显示的层次）。该区域应为一个整行或整列，或者一个行区域或列区域。
当指定 Range 对象为数据透视表中的非连续区域时， Group 方法（句法1）将此区域分组。
当指定 Range 对象代表的是数据透视表字段的数据区域中的一个单元格时， Group 方法（句法 2）将对数据透视表字段进行数字的或基于日期的分组。
句法 1
expression.Group
句法 2
expression.Group(Start, End, By, Periods)
expression
必选。该表达式返回一个 Range 对象。对于句法 2， Range 对象必须是数据透视表字段的数据区域中的一个单元格。如果要对多个单元格使用本方法，本方法将失效（不显示错误信息）。要了解在这种情况下如何使用Group 方法，另见附带示例主题中的第二个示例。
Start
Variant 类型，可选。要分组的第一个值。如果省略该参数或者该参数设为True，则使用字段的第一个值。
End
Variant 类型，可选。要分组的最后一个值。如果省略该参数或者该参数设为 True，则使用字段的最后一个值。
By
1. Variant 类型，可选。如果字段为数字类型，则该参数指定分组的大小。如果该字段为日期类型，并且 Periods 数组的第 4 个元素为 True，而其他所有元素为 False，则该参数指定每一组的天数。否则，忽略该参数。
如果省略本参数， Microsoft Excel 将自动选择默认的组大小。
Periods
Variant 类型，可选。用于指定组的时间段的 Boolean 值数组。如下表所示。
| 数组元素 | 时间间隔 |
| 1 | 秒 |
| 2 | 分 |
| 3 | 小时 |
| 4 | 天 |
| 5 | 月 |
| 6 | 季度 |
| 7 | 年 |
如果该数组中的某个元素为 True，将以对应的时间段创建组。如果所有元素为 False，则不创建组。如果该字段不是日期类型，则忽略该参数。
示例
本示例以10天为周期将字段 “ORDER_DATE”分组。
Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable
Set groupRange = pvtTable.PivotFields("ORDER_DATE").DataRange
groupRange.Cells(1).Group by:=10, _
periods:=Array(False, False, False, _
True, False, False, False)
适用于
ShapeRange 集合对象
描述
组合指定的形状子集中的形状。将成组的形状作为单个 Shape 对象返回。
句法
expression.Group
expression
必选。该表达式返回 ShapeRange 对象。
说明
因为成组的形状当作单个形状对待，将形状进行组合或取消成组形状的组合将修改 Shapes 集合中的成员数目，并改变集合中受影响的形状的各成员的编号
适用于
Shape 对象，ShapeRange 集合对象
描述
返回 GroupShapes 对象，该对象代表指定的成组形状中的各单独形状。可用 GroupShapes 对象的 Item 方法返回形状组中的单个形状。应用于代表成组形状的 Shape 对象或 ShapeRange 对象。只读。
示例
本示例向 myDocument 中添加了三个三角形，并组合这些三角形，为整个形状组设置颜色，然后又独立地修改第二个三角形的颜色。
Set myDocument = Worksheets(1)
With myDocument.Shapes
.AddShape(msoShapeIsoscelesTriangle, 10, 10, 100, 100).Name = "shpOne"
.AddShape(msoShapeIsoscelesTriangle, 150, 10, 100, 100).Name = "shpTwo"
.AddShape(msoShapeIsoscelesTriangle, 300, 10, 100, 100).Name = "shpThree"
With .Range(Array("shpOne", "shpTwo", "shpThree")).Group
.Fill.PresetTextured msoTextureBlueTissuePaper
.GroupItems(2).Fill.PresetTextured msoTextureGreenMarble
End With
End With
适用于
PivotField 对象
描述
返回一组字段中指定字段的位置（如果该字段是分组字段集合中的成员）。只读。
说明
处于最高级的父字段（即最左侧的父字段）为第一级，其子字段为第二级，如此类推。
示例
本示例检查包含活动单元格的字段是否为最高一级的父字段，如果是则显示一个消息框。
Worksheets("Sheet1").Activate
If ActiveCell.PivotField.GroupLevel = 1 Then
MsgBox "This is the highest-level parent field."
End If
描述
代表成组的形状中的各个单独的形状。每个形状由一个 Shape 对象代表。使用本对象的 Item 方法，可不必取消形状的分组就能对组内的单个形状进行操作。
使用GroupShapes 集合
可用 GroupItems 属性返回 GroupShapes 集合，可用 GroupItems(index)（其中 index 为各形状在组内的编号）返回 GroupShapes 集合中的单个形状。下例向 myDocument 添加了三个三角形，并组合这些三角形，设置整个组的颜色，然后又只对第二个三角形的颜色进行了修改。
Set myDocument = Worksheets(1)
With myDocument.Shapes
.AddShape(msoShapeIsoscelesTriangle, 10, 10, 100, 100).Name = "shpOne"
.AddShape(msoShapeIsoscelesTriangle, 150, 10, 100, 100).Name = "shpTwo"
.AddShape(msoShapeIsoscelesTriangle, 300, 10, 100, 100).Name = "shpThree"
With .Range(Array("shpOne", "shpTwo", "shpThree")).Group
.Fill.PresetTextured msoTextureBlueTissuePaper
.GroupItems(2).Fill.PresetTextured msoTextureGreenMarble
End With
End With
属性
Application 属性，Count 属性，Creator 属性，Parent 属性
方法
Item 方法(GroupShapes 集合)