适用于
Font 对象
描述
返回或者设置字体下划线类型。可为以下 XlUnderlineStyle 常数之一：
xlUnderlineStyleNone,xlUnderlineStyleSingle,xlUnderlineStyleDouble,xlUnderlineStyleSingleAccounting 或者 xlUnderlineStyleDoubleAccounting。
Long 类型，可读写。
示例
本示例将 Sheet1 中活动单元格的字体设为单下划线。
Worksheets("Sheet1").Activate
ActiveCell.Font.Underline = xlUnderlineStyleSingle
适用于
Application 对象
描述
撤消最近的用户界面操作。
句法
expression.Undo
expression
必选。该表达式返回一个 Application 对象。
说明
本方法仅撤消运行该宏之前的最近一个用户操作，并且必须将其放到宏的第一行。本方法不能用于撤消 Visual Basic 命令。
示例
本示例撤消最近的用户界面操作。本示例必须放在宏的第一行。
Application.Undo
适用于
Range 对象
描述
在分级显示中对一个区域进行升级（即降低其分级显示的级别）。指定对象必须是行或列，或者行区域或列区域。如果指定区域在数据透视表中，本方法将对该区域内的项解除分组。
句法
expression.Ungroup
expression
必选。该表达式返回一个 Range 对象。
说明
如果当前单元格在父字段的字段标题中，则该字段中的所有组将被取消分组，并且该字段从数据透视表中删除掉。当父字段中的最后一个组被解除分组后，整个字段将从数据透视表中删除掉。
另见
ApplyOutlinesStyles方法， AutoOutline方法， ClearOutline方法 ， DisplayOutline属性， Outline对象， OutlineLevel属性， ShowDetail属性
Ungroup 方法（Shape 或 ShapeRange 对象）
适用于
Shape 对象，ShapeRange 集合对象
描述
将组合到指定的形状或形状子集中的形状取消组合。在指定的形状或形状子集内分解图片和 OLE 对象。将取消组合的形状当作单个 ShapeRange 对象返回。
句法
expression.Ungroup
expression
必选。该表达式返回 ShapeRange 对象。
说明
因为把形状组当作单个形状对待，所以对形状进行组合或取消组合操作，
将会改变 Shapes 集合中的成员数目，并改变集合中受影响的成员之后的成员的编号。
示例
本示例取消 myDocument 中所有形状组的组合，并分解所有的图片和 OLE对象。
Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
s.Ungroup
Next
本示例取消 myDocument 中所有形状组的组合，但不分解文档中的图片和OLE 对象。
Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
If s.Type = msoGroup Then s.Ungroup
Next
适用于
Application 对象
描述
返回两个或多个区域的合并区域。
句法
expression.Union(Arg1, Arg2, ...)
expression
可选。该表达式返回一个 Application 对象。
Arg1, Arg2, ...
Range 类型，必选。必须至少指定两个 Range 对象。
另见
示例
本示例以公式 =RAND( ) 填充两个命名区域，Range1 和 Range2 的合并区域。
Worksheets("Sheet1").Activate
Set bigRange = Application.Union(Range("Range1"), Range("Range2"))
bigRange.Formula = "=RAND( )"
适用于
Range 对象
描述
将合并区域分解为独立的单元格。
句法
expression.UnMerge
expression
必选。该表达式返回 Range 对象。
另见
示例
本示例将包含单元格“A3”的合并区域分解。
Set ma = Range("a3")
.If ·MergeCells Then
·MergeArea.UnMerge
Else
MsgBox "not merged"
Else
End If
End With
适用于
Chart 对象、Workbook 对象或 Worksheet 对象
描述
取消工作表或工作簿的保护。如果工作表或工作簿不是受保护的则此方法不起作用。
句法
expression.Unprotect(Password)
expression
必选。该表达式返回一个 Chart 对象、Workbook 对象或 Worksheet 对象。
Password
Variant 类型，可选。指定用于解除工作表或工作簿的保护的密码，此密码是区分大小写的。如果工作表或工作簿不设密码保护则忽略本参数。如果对工作表省略此参数，而该工作表又设有密码保护，Microsoft Excel 将提示你要输入密码。如果对工作簿省略此参数，而该工作簿又设有密码保护，本方法将失败。
说明
如果你忘记了密码，你将不能取消工作表或工作簿的保护。建议将密码和对应文档名妥善保存。
另见
Locked 属性， Protect 方法， ProtectContents 属性， ProtectDrawingObjects 属性
示例
本示例取消活动工作簿的保护。
ActiveWorkbook.Unprotect
适用于
Workbook 对象
描述
关闭共享保护功能并保存工作簿。
句法
expression.UnprotectSharing(SharingPassword)
expression
必选。该表达式返回一个 Workbook 对象。
SharingPassword
Variant 类型，可选。指定工作簿密码。
示例
本示例关闭共享保护，并保存活动工作簿。
ActiveWorkbook.UnprotectSharing Password:="drowssap"
描述
代表图表组中的涨柱线。涨柱线将图表组中第一个系列的数据点与最后一个系列中相应的有较大值的数据点连接起来（从第一个系列向上生长）。只有至少包含两个系列的二维折线图才能有涨柱线。本对象并非集合。没有代表单个涨柱线的对象；要么打开图表组中所有数据点的涨柱线，要么将其全部关闭。
使用UpBars 对象
可用 UpBars 属性返回 UpBars 对象。下例打开工作表“Sheet5”上第一张内嵌图表中的第一个图表组的涨跌柱线。然后，本示例将涨柱线的颜色设置为兰色，而将跌柱线设置为红色。
With Worksheets("sheet5").ChartObjects(1).Chart.ChartGroups(1)
.HasUpDownBars = True
.UpBars.Interior.Color = RGB(0, 0, 255)
.DownBars.Interior.Color = RGB(255, 0, 0)
End With
说明
如果 HasUpDownBars 属性为 False，UpBars 对象的绝大部分属性将禁用。
属性
Application 属性，Border属性，Creator属性，Fill属性，Interior属性，
Name属性，Parent属性
方法
Delete 方法，Select方法
另见
适用于
ChartGroup 对象
描述
返回一个 UpBars 对象，此对象代表折线图中的涨柱线。仅应用于折线图。
只读。
另见
示例
本示例显示“Chart1”中图表组一的涨跌柱线，并对其颜色进行设置。本示例应在二维折线图中运行，该二维折线图包含两组有一个或多个交叉点的数据系列。
With Charts("Chart1").ChartGroups(1)
.HasUpDownBars = True
.DownBars.Interior.ColorIndex = 3
.UpBars.Interior.ColorIndex = 5
End With
适用于
LinkFormat对象，OLEObject对象，PivotTable 对象
描述
更新链接或数据透视表。
句法
expression.Update
expression
必选。该表达式返回一个 OLEObject 或 PivotTable 对象。
示例
本示例更新工作表“Sheet1”中第一个 OLE 对象的链接。
Worksheets("Sheet1").OLEObjects(1).Update
适用于
Workbook 对象
描述
如果盘上工作簿版本比内存中的当前工作簿副本新，则用盘上保存的工作簿文件更新只读工作簿。如果载入工作簿之后，盘上的副本无改变，则不更新内存中的副本。
句法
expression.UpdateFromFile
expression
必选。该表达式返回一个 Workbook 对象。
说明
本方法适用于于用户 A 以只读方式打开工作簿，同时用户 B 以可读写方式打开该工作簿。如果用户 B 将工作簿新版存盘而用户 A 仍在使用原工作簿，那么用户 A 必须先关闭该工作簿再打开才能获得更新版本的工作簿， UpdateFromFile 方法使用磁盘文件更新内存中的工作簿副本。
另见
示例
本示例从磁盘文件版中更新活动工作簿。
ActiveWorkbook.UpdateFromfile
适用于
Workbook 对象
描述
更新 Microsoft Excel 链接、 DDE 链接或 OLE 链接。
句法
expression.UpdateLink(Name, Type)
expression
必选。该表达式返回一个 Workbook 对象。
Name
String 类型，必选。要更新的 Microsoft Excel 链接或 DDE/OLE 链接的名称，就像 LinkSources 方法返回的一样。
Type
Variant 类型，可选。链接类型。可为下列XlLinkType常量：
xlLinkTypeExcelLinks 或 xlLinkTypeOLELinks（也处理 DDE 链接）。默认值为 xlLinkTypeExcelLinks。
示例
本示例更新活动工作簿中的所有链接。
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
适用于
DefaultWebOptions 对象
描述
在以 Web 页保存文档之前，如果自动更新指向所有支持文件的超级链接和路径，则其值为 True，但是要确保在保存文档时这些链接都是最新的。如果不更新这些链接，则其值为 False。默认值为 True。可读写。Boolean 类型。
说明
如果保存文档的位置与 Web 服务器上的最终位置不同且支持文件并不位于保存文档的位置中，则应该将本属性设置为 False。
示例
本示例指定在保存文档之前不刷新链接。
Application.DefaultWebOptions.UpdateLinksOnSave =False
适用于
Workbook 对象
描述
如果 Microsoft Excel 对指定工作簿中导入的远程引用进行更新则为True，Boolean 类型，可读写。
示例
ActiveWorkbook.UpdateRemoteReferences = True
适用于
Application 对象，Window对象
描述
返回在应用程序窗口中能开窗口的最大高度，以磅为单位。Double 类型，
只读。
另见
示例
本示例将活动窗口大小扩展为允许的最大值（假定指定窗口尚未最大化）。
With ActiveWindow
.WindowState = xlNormal
.Top = 1
.Left = 1
.Height = Application.UsableHeight
.Width = Application.UsableWidth
End With
适用于
Application 对象，Window对象
描述
返回在应用程序窗口中能开窗口的最大宽度，以磅为单位。Double 类型，
只读。
另见
示例
本示例将活动窗口大小扩展为允许的最大值（假定指定窗口尚未最大化）。
With ActiveWindow
.WindowState = xlNormal
.Top = 1
.Left = 1
.Height = Application.UsableHeight
.Width = Application.UsableWidth
End With
适用于
WebOptions 对象
描述
将指定文档的文件夹后缀设置为与用户选定或安装的语言支持相对应的默认后缀。
句法
expression.UseDefaultFolderSuffix
expression
一个返回 WebOptions 对象的表达式。
说明
当以 Web 页保存文档时，Microsoft Excel 将使用文件夹后缀，同时还会使用长文件名，并选择是否将支持文件保存在单独的文件夹中（即：是否将UseLongFileNames 和 OrganizeInFolder 属性设置为 True）。
文件夹名称是由文档名以及后缀名组成的。例如，如果文档名为揃ook1敚镅允怯⒂铮蚋梦募忻獡Book1_files敗？捎玫奈募泻笞涸贔
olderSuffix 属性主题中列出。
示例
本示例将第一个工作簿的文件夹后缀设置为默认后缀。
Workbooks(1).WebOptions.UseDefaultFolderSuffix
适用于
Worksheet对象
描述
返回一个 Range 对象，此对象代表指定工作表中的已用区域。只读。
本示例选定 Sheet1 中的已用区域。
Worksheets("Sheet1").Activate
ActiveSheet.UsedRange.Select
适用于
PivotCache 对象
描述
如果使用 LocalConnection 属性指定 Microsoft Excel 用于连接到数据源的字符串，则其值为 True。如果使用 Connection 属性指定连接串，则其值为 False。可读写。Boolean 类型。
示例
本例为第一个数据透视表高速缓存设置连接字符串以访问一个离线方块图文件。
With ActiveWorkbook.PivotCaches.(1)
.LocalConnection = "OLEDB;Provider=MSOLAP; Data Source=C:\DataDataCube.cub"
.UseLocalConnection = True
End With
适用于
DefaultWebOptions 对象，WebOptions 对象
描述
当以 Web 页保存文档时使用了长文件名，则其值为 True。如果不使用长文件名，而使用了 DOS 文件名格式 (8.3)，则其值为 False。默认值为True。可读写。Boolean 类型。
说明
如果不使用长文件名且文档还具有支持文件，则 Microsoft Excel 会自动将那些文件组织到单独的文件夹中。另外，使用 OrganizeInFolder 属性可确定支持文件是否组织在单独的文件夹中。
示例
本示例不允许将长文件名作为应用程序的全局默认设置使用。
Application.DefaultWebOptions.UseLongFileNames =False
适用于
Application对象
描述
如果应用程序由用户启动，本属性为 True。如果应用程序的启动是以编程方式由 CreateObject 函数或 GetObject 函数完成的，本属性则为 False。
Boolean 类型，可读写。
说明
对于对象，如果 UserControl 属性为 False，则最后一个以编程方式对该对象的引用释放以后，该对象也将释放。如果本属性为 False，工作期中最后一个对象释放后 Microsoft Excel 将退出。
示例
本示例设置 UserControl 属性的状态。
If Application.UserControl Then
MsgBox "This workbook was created by the user"
Else
MsgBox "This workbook was created programmatically"
End If
适用于
Application 对象
描述
返回用户计算机上 COM 加载宏安装位置的路径。只读。String 类型。
示例
本示例确定用户计算机上 COM 加载宏的安装路径，并为变量 strLibPath
赋一个字符串值。
strLibPath = Application.UserLibraryPath
适用于
Application 对象
描述
返回或者设置当前用户的名称。String 类型，可读写。
示例
本示例显示当前用户的名称。
MsgBox "Current user is " & Application.UserName
适用于
ChartFillformat 对象，FillFormat 对象
描述
用图象填充指定形状。
句法
expression.UserPicture(PictureFile,PictureFormat,PictureStackUnit,
PicturePlacement)
expression该表达式返回一个 FillFormat 对象。
PictureFile
String 类型，必选。图片文件名。
PictureFormat
Long 类型，必选。图片格式。可为下列 XlChartPictureType 常量之一：
xlStack、 xlStackScale 或 xlStretch。PictureStackUnit
Long 类型，必选。图片层叠或缩放单位（取决于 PictureFormat 参数）。
PicturePlacement
Long 类型，必选。图片的放置位置。可为下列 XlChartPicturePlacement 常量之一： xlAllFaces, xlEnd, xlEndSides, xlFront, xlFrontEnd, xlFrontSides或 xlSides。
示例
本示例为第二张图表设置填充格式。
Charts(2).ChartArea.Fill.UserPicture "brick.bmp
适用于
Workbook 对象
描述
返回一个以 1 为基的二维数组，该数组存放每个以共享模式打开此工作簿的用户的信息。数组第二维的第一个元素是用户名；第二个元素是用户打开工作簿的日期和时间；第三个元素是一个表示数据清单类型的数字（1 表示独占，2 表示共享）。Variant 类型，只读。
说明
UserStatus 属性返回信息中不包括以只读方式打开该工作簿的用户的信息。
另见
MultiUserEditing 属性， SaveAs 方法
示例
本示例新建一个工作簿，并将所有以共享清单模式打开活动工作簿的用户的信息插入新工作簿。
users = ActiveWorkbook.UserStatus
With Workbooks.Add.Sheets(1)
For row = 1 To UBound(users, 1)
.Cells(row, 1) = users(row, 1)
.Cells(row, 2) = users(row, 2)
Select Case users(row, 3)
Case 1
.Cells(row, 3).Value = "Exclusive"
Case 2
.Cells(row, 3).Value = "Shared"
End SelectNext
End With
适用于
ChartFillFormat对象，FillFormat 对象
描述
以小图象平铺填充指定形状。如果要用大图象对形状进行填充可使用UserPicture 方法。
句法
expression.UserTextured(TextureFile)
expression
必选。该表达式返回一个 FillFormat 对象。
TextureFile
String 类型，必选。图片文件名。
示例
本示例为第二张图表设置填充格式。
Charts(2).ChartArea.Fill.UserTextured "brick.bmp"
适用于
Range 对象
描述
如果指定 Range 对象中的行高等于工作表的标准行高，本属性为 True。
如果该区域包含若干行，而这些行不等高，本属性返回 Null。Variant 类型，可读写。
另见
RowHeight属性， StandardHeight属性， UseStandardWidth 属性
示例
本示例将工作表“Sheet1”中的第一行的行高设置为标准行高。
Worksheets("Sheet1").Rows(1).UseStandardHeight = True
适用于
Range 对象
描述
如果指定 Range 对象中的列宽等于工作表的标准列宽，本属性为 True。
如果该区域包含若干列，而这些列不等宽，本属性返回 Null。Variant 类型，可读写。
另见
ColumnWidth 属性， StandardWidth 属性， UseStandardHeight 属性
示例
本示例将工作表“Sheet1”中的“A”列的列宽设置为标准列宽。
Worksheets("Sheet1").Columns("A").UseStandardWidth = True
适用于
PivotTable 对象
描述
返回或设置刷新数据透视表时移出的单元格的样式。默认值为 null 字符串（默认时无样式）。String类型，可读写。
示例
本示例将数据透视表中移出的单元格设为 BlackAndBlue 样式。
Worksheets(1).PivotTables("Pivot1").VacatedStyle = "BlackAndBlue"
描述
代表工作表区域的数据有效性规则。
使用 Validation 对象
使用 Validation 属性可返回 Validation 对象。下列示例对 E5 单元格的数据有效性规则进行更改。
Range("e5").Validation _
.Modify xlValidateList, xlValidAlertStop, "=$A$1:$A$10"
使用 Add 方法可为一个区域添加数据有效性规则，并新建一个 Validation对象。下列示例为 E5单元格添加数据有效性规则。
With Range("e5").Validation
.Add Type:=xlValidateWholeNumber, _
AlertStyle:=xlValidAlertInformation, Minimum:="5", Maximum:="10"
.InputTitle = "Integers".
ErrorTitle = "Integers".
InputMessage = "Enter an integer from five to ten"
.ErrorMessage = "You must enter a number from five to ten"
End With
属性
AlertStyle 属性，Application 属性，Creator 属性，ErrorMessage 属性，ErrorTitle 属性，Formula 属性，Formula2 属性，IgnoreBlank 属性，IMEMode 属性，InCellDropdown 属性，InputMessage属性，InputTitle 属性，Operator 属性，Parent 属性，ShowError 属性，ShowInput 属性，Type 属性，Value 属性
方法
Add 方法 (Validation对象)，Delete方法，Modify 方法 (Validation 对象)
适用于
Range对象
描述
返回 Validation 对象，该对象代表指定区域内的数据有效性检验。只读。
另见
示例
本示例设置单元格“E5”允许空值。
Range("e5").Validation.IgnoreBlank = True
适用于
Application对象，Borders集合对象，ControlFormat对象，CubeField对象，Name对象，Parameter 对象，PivotField对象，PivotFormula对象，PivotItem对象，PivotTable对象，Range对象，Style对象，Validation对象
描述
Value 属性的意义取决于其应用的对象，如下表所示。
| 对象 | 取值 |
| Application | 总是返回"Microsoft Excel"。只读。 |
| BordersBorders.LineStyle | 的同义词。 |
| Name | 一个包含公式的字符串，该名称为此公式的引用。在宏语言中使用 A1 样式引用的字符串，并以等号开头。只读。 |
| Parameter | 参数值。有关详细内容，另见 Parameter 对象。 |
| PivotField | 数据透视表中指定字段的名称。 |
| PivotItem | 数据透视表字段中指定数据项的名称。 |
| PivotTable | 数据透视表的名称。 |
| Range | 指定单元格的值。如果单元格为空，Value返回Empty值（本处使用IsEmpty函数测试）。如果Range对象包含不仅一个单元格，返回值数组（本处使用IsArray测试）。 |
| Style | 指定样式的名称。 |
| Validation | 如果符合所有的有效性规则则为 True（也就是说，该区域包含合法数据）。 |
下表显示了Value 属性及其相关属性的例值，OLAP数据源被唯一命名为"[Europe].[France].[Paris]"；非OLAP数据源的项目名为“Paris”。
| 属性 | 取值 (OLAP 数据源) | 取值（非OLAP 数据源) |
| Caption | Paris | Paris |
| Name | [Europe].[France][Paris](只读) | Paris |
| SourceName | [Europe].[France].[Paris](只读) | (与 SQL 属性值相同,只读) |
| Value | [Europe].[France].[Paris] | (只读) |
当为PivotItems 集合指定索引时，可用下表所示的句法。
| 句法(OLAP 数据源) | 句法 (非OLAP 数据源) |
| expression.PivotItems("[Europe].[France].[Paris]") | expression.PivotItems("Paris") |
用Item 属性访问特定的集合成员时，可用下面的文本索引名 。
| 名称(OLAP数据源) | 名称(非OLAP 数据源) |
| [Europe].[France].[Paris] | Paris |
另见
示例
本示例将 Sheet1 中 A1 单元格的值设为 3.14159。
Worksheets("Sheet1").Range("A1").Value = 3.14159
本示例对 Sheet1 中 A1:D10 单元格进行循环。如果这些单元格中的某个值小于 0.001，则将其值替换为 0（零）。
For Each c in Worksheets("Sheet1").Range("A1:D10")
If c.Value < .001 Then
c.Value = 0
End If
Next c
适用于
Range 对象
描述
返回或者设置单元格值。Variant 类型，可读写。
说明
本属性与 Value 属性的唯一差别在于， Value2 属性不可使用 Currency和 Date 数据类型。可以使用 Double 数据类型对这些数据的格式进行设置，以浮点类型数据返回。
示例
本示例使用 Value2 属性对两个单元格的值进行相加。
Range("a1").Value2 = Range("b1").Value2 + Range("c1").Value2Values 属性
适用于
Scenario对象，Series对象
描述
Scenario 对象：返回数组，该数组中包含方案的可变单元格的当前值。
Variant 类型，只读。
Series 对象：返回或设置系列中所有数值的集合。可为工作表中的某一区域或常量数组，但不能是两者的组合。详细内容另见示例。Variant 类型可读写。
对于数据透视图表报表（PivotChart reports），此属性只读。
示例
本示例用区域内容设置系列的值。本示例使用 Set 语句的原因是该表达式右边是一个对象，而非数值。
Set Charts("Chart1").SeriesCollection(1).Values = Worksheets("Sheet1").Range("C5:T5")
必须用数组对每个单独的数据点赋以常量值。本示例不需要使用 Set 语句。
Charts("Chart1").SeriesCollection(1).Values = Array(1, 3, 5, 7, 11, 13, 17, 19)
适用于
ChartGroup 对象
描述
如果 Microsoft Excel 对每个数据标记指定不同的颜色或模式则为 True。
图中必须只包含一个数据系列。Boolean 类型，可读写。
本示例对图表组一中每个数据标记指定一种不同的颜色或模式。本示例应在系列上有数据标记的二维折线图上运行。
Charts("Chart1").ChartGroups(1).VaryByCategories = True
适用于
Workbook对象
描述
如果对指定工作簿的应用项目的Visual Basic 程序以被数字化标识，值为True。只读，Boolean类型。
示例
本例载入一个名为“mybook.wbk”的工作簿，然后测试其 Visual Basic 程序是否有数字化的标识符。如果没有数字化的标识符，本例显示出警告信息。
Workbooks.Open FileName="C:\My Document\mybooks.wbk, "_
ReadOnly:=False
If Workbook.VBASigned = False Then
MsgBox "Warning! The project " _
"has not been digitally signed." _
, vbCritical, "Digital Signature Warning"
End If
适用于
Application对象
描述
返回一个 VBE 对象，该对象代表 Visual Basic 编辑器。只读。
另见
VBE对象(Microsoft Visual Basic Applications Extensibility Language Reference)
示例
本示例更改 Visual Basic 活动项目的名称。Application.VBE.ActiveVBProject.Name = "TestProject"
适用于
Application对象
描述
返回一个 VBProject 对象，该对象代表指定工作簿中的 Visual Basic 项
目。只读。.
另见
VBProject对象(Microsoft Visual Basic Applications Extensibility Language Reference)
示例
本示例更改 Visual Basic 活动项目的名称。
ThisWorkbook.VBProject.Name = "TestProject"
适用于
OLEFormat对象， OLEObject 对象
描述
向指定的 OLE 对象服务器发送动词。
句法
expression.Verb(Verb)
expression
必选。该表达式返回一个 OLEObject 对象。
Verb
Variant 类型，可选。OLE 对象服务器将执行其操作的动词。如果省略本参数，将发送默认动词。哪些动词有效由该对象的源应用程序决定。OLE 对象的典型动词为 Open 和 Primary（用 XlOLEVerb 常量 xlOpen 和xlPrimary 表示）。
示例
本示例向工作表“Sheet1”中的第一个 OLE 对象服务器发送默认动词。
Worksheets("Sheet1").OLEObjects(1).Verb
适用于
Application对象
描述
返回 Microsoft Excel 的版本号。String 类型，只读。
另见
示例
本示例在信息框中显示 Microsoft Excel 版本号和操作系统名称。
MsgBox "Welcome to Microsoft Excel version " & _
Application.Version & "running on " & _Application.OperatingSystem & "!"
适用于
AxisTitle对象，ChartTitle对象，DataLabel 对象，DataLabels集合对象，DisplayUnitLabel对象，Range对象，Style对象，TextFrame对象
描述
返回或设置对象的垂直对齐方式。可为下列 XlVAlign 常量之一：
xlVAlignBottom, xlVAlignCenter, xlVAlignDistributed, xlVAlignJustify 或xlVAlignTop。Long 类型，可读写。
说明
其中一些常量可能无效，取决于已安装的语言支持（如，U.S.英语等）
另见
AddIndent 属性， HorizontalAlignment属性
示例
本示例将工作表“Sheet1”上第二行的行高设置为标准行高的两倍，然后使该行的内容垂直居中。
Worksheets("Sheet1").Rows(2).RowHeight = _
2 * Worksheets("Sheet1").StandardHeight
Worksheets("Sheet1").Rows(2).VerticalAlignment = xlVAlignCenter
适用于
Shape 对象，ShapeRange 集合对象
描述
如果指定的形状曾绕垂直对称轴翻转过，本属性为 True。Long 类型，只读。
示例
本示例使 myDocument 中曾绕水平对称轴或垂直对称轴翻转过的形状都恢复原状。
Set myDocument = Worksheets(1)
For Each s In myDocument.Shapes
If s.HorizontalFlip Then s.Flip msoFlipHorizontal
If s.VerticalFlip Then s.Flip msoFlipVertical
Next
适用于
Shape 对象，ShapeRange 集合对象
描述
以一组坐标对的形式返回指定任意多边形的顶点（以及贝塞尔曲线的控制点）的坐标。可用本属性所返回的数组作为 AddCurve 方法或 AddPolyLine方法的参数。Variant 类型，只读。
下表列出了 Vertices 属性如何将 vertArray() 数组中的值与三角形的顶点坐标联系起来。
| vertArray 元素 | 包含 |
| vertArray(1, 1) | 第一个顶点与文档的左边界之间的水平距离 |
| vertArray(1, 2) | 第一个顶点与文档的顶端之间的垂直距离 |
| vertArray(2, 1) | 第二个顶点与文档的左边界之间的水平距离 |
| vertArray(2, 2) | 第二个顶点与文档的顶端之间的垂直距离 |
| vertArray(3, 1) | 第三个顶点与文档的左边界之间的水平距离 |
| vertArray(3, 2) | 第三个顶点与文档的顶端之间的垂直距离 |
示例
本示例将 myDocument 中第一个形状的顶点坐标赋给数组变量vertArray()，并显示第一个顶点的坐标。
Set myDocument = Worksheets(1)
With myDocument.Shapes(1)
vertArray = .Vertices
x1 = vertArray(1, 1)
y1 = vertArray(1, 2)
MsgBox "First vertex coordinates: " & x1 & ", " & y1
End With
本示例创建与 myDocument 中的第一个形状有着相同的几何描述的曲线。
为使本示例正常运行，第一个形状必须包含 3n+1 个顶点。
Set myDocument = Worksheets(1)
With myDocument.Shapes
.AddCurve .Item(1).Vertices
End With
适用于
Window对象
描述
返回或者设置在窗口中显示的视图。可为下列两个 XlWindowView 常量之一： xlNormalView 或 xlPageBreakPreview。Long 类型，可读写。
示例
本示例将活动窗口的视图切换为分页符预览。
ActiveWindow.View = xlPageBreakPreview
适用于
Application对象，Chart对象，ChartFillFormat对象，ChartObject对象，ChartObjects 集合对象，Charts 集合对象，Comment对象，FillFormat对象，LineFormat对象，Name 对象，OLEObject对象，OLEObjects集合对象，Phonetic对象，Phonetics集合对象，PivotItem对象，ShadowFormat对象，Shape对象，ShapeRange集合对象，Sheets集合对象，ThreeDFormat对象，Window对象，Worksheet对象，Worksheets集合对象
描述
如果指定对象可见则为 True。对于图表或工作表，本属性可设为xlVeryHidden。这样设置可隐藏该对象，要使该对象重新可见的唯一方法是将此属性设为 True（用户无法使该对象可见）。Boolean 类型或者 Long类型，可读写。
说明
如果一个数据项在当前数据透视表中可见，则其 Visible 属性为 True。
如果将一个名称的 Visible 属性设为 False，则该名称将不在Define Name对话框中出现。
示例
本示例隐藏 Sheet1。
Worksheets("Sheet1").Visible = False
本示例设置 Sheet1 可见。
Worksheets("Sheet1").Visible = True
本示例使当前工作簿中每一工作表可见。
For Each sh In Sheets
sh.Visible = True
Next sh
本示例新建一张工作表，然后将其 Visible 属性设为 xlVeryHidden。要引用该工作表，可使用其对象变量 newSheet，如本示例最后一行所示。要在另一过程中使用 newSheet 对象变量，必须在模块中先于所有 Sub 过程或Function 函数将其定义为公用变量（使用语句 Public newSheet As Object）。
Set newSheet = Worksheets.Add
newSheet.Visible = xlVeryHidden
newSheet.Range("A1:D4").Formula = "=RAND()"
适用于
PivotLayout 对象，PivotTable对象
描述
返回代表单个可见字段（PivotField 对象，句法 1）或所有可见字段的集合（PivotFields 对象，句法 2）的对象。可见字段显示为行、列、页或数据字段。只读。
句法 1
expression.VisibleFields(Index)
句法 2
expression.VisibleFields
expression
必选。该表达式返回 PivotTable 对象。
Index
Variant 类型，可选。要返回的数据透视表字段的名称或编号（本参数可为数组，以指定若干字段）。
说明
对于OLAP数据源，由于无隐藏字段，故本属性返回数据透视表高速缓存中所有字段。
另见
ColumnFields 属性， DataFields 属性， HiddenFields 属性， PageFields 属性， PivotFields方法， RowFields 属性
示例
本示例向新工作表中添加数据透视表可见字段名称的列表。
Set nwSheet = Worksheets.Add
nwSheet.Activate
Set pvtTable = Worksheets("Sheet2").Range("A1").PivotTable
rw = 0
For Each pvtField In pvtTable.VisibleFields
rw = rw + 1
nwSheet.Cells(rw, 1).Value = pvtField.Name
Next pvtField
适用于
PivotField 对象
描述
返回一个对象。该对象代表指定字段中单个可见数据项（PivotItem 对象，句法 1）或所有可见数据项的集合（PivotItems 对象，句法 2）。只读。
句法 1
expression.VisibleItems(Index)
句法 2
expression.VisibleItems
expression
必选。该表达式返回 PivotField 对象。
Index
Variant 类型，可选。要返回的数据项的名称或编号（本参数可为数组，以指定若干数据项）。
说明
对于OLAP数据源，本属性只读并且总返回True。无隐藏字段。
另见
ChildItems属性， HiddenItems属性， ParentItems属性， PivotItems方法
示例
本示例向新工作表中添加“Product”字段中所有可见数据项名称的列表。
Set nwSheet = Worksheets.Add
nwSheet.Activate
Set pvtTable = Worksheets("Sheet2").Range("A1").PivotTable
rw = 0
For Each pvtItem In pvtTable.PivotFields("Product").VisibleItems
rw = rw + 1
nwSheet.Cells(rw, 1).Value = pvtItem.NameNext
适用于
Pane 对象，Window对象
描述
返回 Range 对象，该对象代表在窗口或窗格中可见的单元格区域。如果行或列一部分可见，该行或列就包括在可见区域中。只读。
适用于
Application 对象
描述
用于将用户自定义函数标记为易失性函数，无论何时在工作表的任意单元格中进行计算，易失性函数都必须重新进行计算。非易失性函数只在输入变量改变时才重新计算，若不用于计算工作表单元格的用户自定义函数中，则此方法无效。
句法
expression.Volatile(Volatile)
expression
必选。该表达式返回一个 Application 对象。
Volatile
Variant 类型，可选。如果为 True 则将该函数标记为易失性的；如果为False 则将该函数标记为非易失性的。默认值为 True。
示例
本示例将用户自定义函数“My_Func”标记为易失性的。只要包含此函数的工作表上任何单元格中出现计算过程，此函数都将重新进行计算。
Function My_Func()
Application.Volatile'
'Remainder of the function
'
End Function
描述
代表一个垂直分页符。VPageBreak 对象是 VPageBreaks 集合的成员。
使用 VPageBreak 对象
用 VPageBreaks(index)（其中 index 为该分页符的分页符索引号）可返回一个 VPageBreak 对象。下列示例更改第一个垂直分页符的位置。
Worksheets(1).VPageBreaks(1).Location = Worksheets(1).Range("e5")
属性
Application属性，Creator属性，Extent属性，Location属性，Parent属性，Type属性
方法
Delete方法，DragOff方法
打印区内垂直分页符集合。每一垂直分页符由一个 VPageBreak 对象表
示。
使用VPageBreaks 集合
使用 VPageBreaks 属性可返回 VPageBreaks 集合。使用 Add 方法可添加垂直分页符。下列示例在活动单元格的左侧添加垂直分页符。
ActiveSheet.VPageBreaks.Add Before:=ActiveCell
如果添加的分页符不和打印区域交叠，则新添加的 VPageBreak 对象将不会出现在打印区域的 VPageBreaks 集合中。重新调整打印区域或重新定义打印区域将改变集合的内容。
属性
Application 属性，Count属性，Creator属性，Item属性，(VPageBreaks集合)，Parent 属性
方法
Add 方法(VPageBreaks 集合)
适用于
Charts 集合对象，Sheets集合对象，Worksheet 对象，Worksheets集合对象
描述
返回 VPageBreaks 集合，该集合代表工作表上的垂直分页符。只读。
另见
示例
本示例显示全屏幕垂直分页符和打印区垂直分页符的总数。
For Each pb in Worksheets(1).VPageBreaks
If pb.Extent = xlPageBreakFull Then
cFull = cFull + 1
Else
cPartial = cPartial + 1
End If
Next
MsgBox cFull & " full-screen page breaks, " & cPartial & _
" print-area page breaks"
适用于
Application 对象
描述
暂停执行宏，到一特定时间可继续执行。
重点：Wait 方法暂停 Microsoft Excel 的所有操作，并且， Wait 起作用时可能禁止你对计算机做其它操作。不过，后台操作如打印和重新计算将继续进行。
句法
expression.Wait(Time)
expression
必选。该表达式返回一个 Application 对象。
Time
Variant 类型，必选。想要宏重新继续执行的时间点，以 Microsoft Excel 日
期格式表示。
示例
本示例暂停一个正在执行的宏，到今天下午 6:23 时又可继续执行 。
Application.Wait "18:23:00"
本示例暂停一个正在执行的宏约 10 秒钟。
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
本例显示是否已过10秒的消息指示。
If Application.Wait(Now + TimeValue(?:00:10?) Then
MsgBox 揟ime expired
擡nd If
描述
代表三维图表的背景墙。本对象并非集合。没有代表单个背景墙的对象；只能将所有的背景墙作为一个单位同时返回。
使用Walls 对象
可用 Walls 属性返回 Walls 对象。下例设置工作表“Sheet1”上第一张内嵌图表中背景墙的图案。如果该图表不是三维图表，本示例将失败。
Worksheets("Sheet1").ChartObjects(1).Chart _
.Walls.Interior.Pattern = xlGray75
属性
Application 属性，Border属性，Creator属性，Fill属性，Interior属性，Name属性，Parent属性，PictureType属性，PictureUnit属性
方法
ClearFormats方法，Paste方法(Floor或Walls方法)，Select方法
适用于
Chart 对象
描述
返回一个 Walls 对象，该对象代表三维图表的背景墙。只读。
说明
本属性不能应用于三维饼图。
示例
本示例将“Chart1”的背景墙边框颜色设为红色。本示例应在三维图表上运行。
Charts("Chart1").Walls.Border.ColorIndex = 3
适用于
Chart 对象
描述
如果在三维图表中绘制二维网格线，本属性为 True。Boolean 类型，可读写。
示例
本示例使 Microsoft Excel 在图表“Chart1”中绘制二维网格线。
Charts("Chart1").WallsAndGridlines2D = True
WebConsecutiveDelimitersAsOne 属性
适用于
QueryTable 对象
描述
当从 Web 页的 HTML 标记中向查询表导入数据时，如果将连续多个分隔符看作是一个分隔符，并且数据将被分列，则其值为 True。如果将连续多个分隔符看作多个分隔符，则其值为 False。默认值为 True。可读写。Boolean 类型。
说明
只有当查询表的 QueryType 属性设置为 xlWebQuery，且该查询返回一个HTML 文档，同时 WebPreFormattedTextToColumns 属性设置为 True时，才使用本属性。
示例
本示例将第一张工作表（第一个工作簿中）上查询表中的分隔符设置为空格字符，然后刷新该查询表。连续多个空格作为单个空格处理。
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "URL;http://datasvr/98q1/19980331.htm", _
Destination := shFirstQtr.Cells(1,1))
With qtQtrResults
.WebConsecutiveDelimitersAsOne = True
.Refresh
End With
适用于
QueryTable 对象
描述
向查询表中导入 Web 页时，如果将类似日期的数据看作文本进行处理，则其值为 True。如果使用了日期识别，则其值为 False。默认值为 False。
可读写。Boolean 类型。
说明
只有当查询表的 QueryType 属性设置为 xlWebQuery，且该查询返回一个HTML 文档时，才使用本属性。
示例
本示例关闭日期识别，这样类似于日期的 Web 页数据将作为文本导入。然后刷新该查询表。
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "URL;http://datasvr/98q1/19980331.htm", _
Destination := shFirstQtr.Cells(1,1))
With qtQtrResults
.WebDisableDateRecognition = True
.Refresh
End With
适用于
QueryTable 对象
描述
返回或设置一个值，用于确定向查询表中导入 Web 页时，Web 页中有多少格式被应用。可以为下列 xlWebFormatting 常量之一：xlAll，xlNone 或xlRTF。默认常量为 xlNone。可读写。xlWebFormatting 类型。
说明
只有当查询表的 QueryType 属性设置为 xlWebQuery 且该查询返回一个HTML 文档时，才使用本属性。
示例
本示例为第一张工作表（第一个工作簿上）添加一个新的 Web 查询表，并导入所有数据的 Web 页格式，然后刷新该查询表。
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "URL;http://datasvr/98q1/19980331.htm", _
Destination := shFirstQtr.Cells(1,1))
With qtQtrResults
.WebFormatting = xlAll
.Refresh
End With
描述
包含工作簿级的属性，当以 Web 页保存文档或打开 Web 页时，MicrosoftExcel 将使用这些属性。可以在应用程序级（全局）或工作簿级返回或设置属性（注意，由于保存工作簿时的属性值可能不同，所以不同工作簿的属性值也可能不同）。工作簿级的属性设置会覆盖应用程序级的属性设置。应用程序级的属性包含在 DefaultWebOptions 对象中。
使用 WebOptions 对象
使用 WebOptions 属性可返回 WebOptions 对象。下例查看是否允许将PNG（便携式网络图形）格式作为图像格式使用，然后设置相应的strImageFileType 变量值。
Set objAppWebOptions = Workbooks(1).WebOptions
With objAppWebOptions
If .AllowPNG = True Then
strImageFileType = "PNG"
Else
strImageFileType = "JPG"
End If
End With
属性
AllowPNG 属性，Application 属性，Creator 属性，DownloadComponents属性，Encoding 属性，FolderSuffix 属性，LocationOfComponents 属性，OrganizeInFolder 属性，Parent 属性，PixelsPerInch 属性，RelyOnCSS 属性，RelyOnVML 属性，ScreenSize 属性，UseLongFileNames 属性方法
UseDefaultFolderSuffix 方法
适用于
Workbook 对象
描述
返回 WebOptions 集合，该集合中包含以 Web 页保存文档时 Microsoft Excel 所使用的工作簿级的属性。只读。
示例
本示例指定向 Web 页中保存第一个工作簿中的项目时使用级联样式表和Western 文档编码。
Set objWO = Workbooks(1).WebOptions
objWO.RelyOnCSS = True
objWO.Encoding = msoEncodingWestern
适用于
Workbook 对象
描述
显示对指定工作簿（如果要将其保存为 Web 页）的预览。
句法
expression.WebPagePreview
expression
一个返回 Workbook 对象的表达式。
示例
本示例以 Web 页的形式显示对第一个工作簿的预览。
Workbooks(1).WebPagePreview
WebPreFormattedTextToColumns 属性
适用于
QueryTable 对象
描述
返回或设置向查询表中导入 Web 页时，是否对 Web 页 HTML < PRE > 标记内的数据进行分列。默认值为 True。可读写。Boolean 类型。
说明
只有当查询表的 QueryType 属性为 xlWebQuery，并且该查询返回一个HTML 文档时，才使用本属性。
示例
本示例为第一张工作表（第一个工作簿上）添加一个新的 Web 查询表。注意，本示例并未对 HTML < PRE > 标记之间的数据进行分列。
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "URL;http://datasvr/98q1/19980331.htm", _
Destination := shFirstQtr.Cells(1,1))
With qtQtrResults
.WebFormatting = xlNone
.WebPreFormattedTextToColumns = False
.Refresh
End With
适用于
QueryTable 对象
描述
返回或设置一个值，用于确定是否向查询表中导入了整个 Web 页、Web 页上的所有表格或 Web 页上的特定表格。可以是下列 xlWebSelectionType常量之一：xlAllTables，xlEntirePage 或 xlSpecifiedTables。默认常量为xlAllTables。可读写。xlWebSelectionType 类型。
说明
只有当查询表的 QueryType 属性设置为 xlWebQuery，并且该查询返回一个 HTML 文档时，才使用本属性。
如果本属性的值为 xlSpecifiedTables，则可以使用 WebTables 属性指定要导入的表格。
示例
本示例为第一张工作表（第一个工作簿上）添加一个新的 Web 查询表，然后导入 Web 页中第一个和第二个表格中的数据。
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "URL;http://datasvr/98q1/19980331.htm", _
Destination := shFirstQtr.Cells(1,1))
With qtQtrResults
.WebFormatting = xlNone
.WebSelectionType = xlSpecifiedTables
.WebTables = "1,2"
.Refresh
End With
适用于
QueryTable 对象
描述
向查询表中导入 Web 页时，如果位于指定 Web 页的 HTML < PRE > 标记中的数据是一次性进行处理的，则其值为 True。如果数据是以连续行的数据块方式导入的，这样能识别标题行，则其值为 False。默认值为 False。
可读写。Boolean 类型。
说明
只有当查询表的 QueryType 属性设置为 xlWebQuery 且该查询返回一个HTML 文档时，才使用本属性。
示例
本示例为第一张工作表（第一个工作簿上）添加一个新的 Web 查询表，然后一次性导入 HTML < PRE > 标记中的所有数据。
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "URL;http://datasvr/98q1/19980331.htm", _
Destination := shFirstQtr.Cells(1,1))With qtQtrResults
.WebSingleBlockTextImport = True
.Refresh
End With
适用于
QueryTable 对象
描述
向查询表中导入 Web 页时，返回或设置由逗号分隔的表格名称或表格索引号的列表。可读写。String 类型。
说明
只有当查询表的 QueryType 属性设置为 xlWebQuery，该查询返回一个HTML 文档，同时 WebSelectionType 属性值为 xlSpecifiedTables 时，才使用本属性。
示例
本示例为第一张工作表（第一个工作簿上）添加一个新的 Web 查询表，然后向 Web 页中导入第一个和第二个表格中的数据。
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "URL;http://datasvr/98q1/19980331.htm", _
Destination := shFirstQtr.Cells(1,1))
With qtQtrResults
.WebFormatting = xlNone
.WebSelectionType = xlSpecifiedTables
.WebTables = "1,2"
.Refresh
End With
适用于
Border 对象，Borders 集合对象，LineFormat 对象
描述
返回或者设置边框的粗细。可为下列 XlBorderWeight 常量： xlHairline，xlThin，xlMedium 或 xlThick。Long 类型，可读写。
示例
本示例对 Sheet1 第一个椭圆的边框粗细进行设置。
Worksheets("Sheet1").Ovals(1).Border.Weight = xlMedium
适用于
Application 对象，Axis 对象，ChartArea 对象，ChartObject 对象，
ChartObjects
集合对象，Legend 对象，LegendEntry 对象，LegendKey 对象，OLEObject对象，OLEObjects 集合对象，PlotArea 对象，Range 对象，Shape对象，ShapeRange 集合对象，Window 对象
描述
以磅为单位返回或设置对象宽度。Long 类型，可读写，除非有下表所示的例外。
说明
Width 属性的含义依赖于所指定的对象。
| 对象 | 说明 |
| Application | 从应用程序窗口左边界至右边界的距离。 |
| Axis ,LegendEntry ,LegendKey | 对象宽度，只读。 |
| Range | 区域宽度。 |
| Window | 窗口宽度。可用 UsableWidth 属性获知窗口的最大尺寸。如果窗口处于最大化或最小化状态，就不能设置本属性。可用WindowState 属性判断窗口的状态。 |
| ChartArea,ChartObject,Legend,OLEObject,PlotArea,Shape ,ShapeRange,Window | 对象宽度。对于ChartArea只读。 |
另见
示例
本示例设置内嵌图表的宽度。
Worksheets("Sheet1").ChartObjects(1).Width = 360
本示例将活动窗口的尺寸扩大为最大有效尺寸（假定该窗口还未最大化）。
With ActiveWindow
.WindowState = xlNormal
.Top = 1
.Left = 1
.Height = Application.UsableHeight
.Width = Application.UsableWidth
End With
描述
代表某一窗口。许多工作表特性，例如滚动条和网格线，实际上是窗口的属性。Window 对象是 Windows 集合的成员。Application 对象的Windows 集合包含应用程序中的所有窗口，而 Workbook 对象的Windows 集合则只包含指定工作簿中的窗口。
使用Window 对象
可用 Windows(index) （其中 index 为窗口名称或编号）返回单个 Window对象。下例最大化活动窗口。
Windows(1).WindowState = xlMaximized
注意，活动窗口总是 Windows(1) 。
窗口的标题是窗口未处于最大化状态时，出现在窗口顶部标题栏中的文字。
标题也出现在 Windows 菜单底部的已打开文件的列表中。可用 Caption 属性设置或返回窗口标题。修改窗口的标题并不改变工作簿的名称。下例关闭显示在窗口“Book1.xls:1”中的工作表的单元格网格线。
Windows("book1.xls":1).DisplayGridlines = False
属性
ActiveCell 属性，ActiveChart 属性，ActivePane 属性，ActiveSheet 属性，Application 属性，Caption 属性，Creator 属性，DisplayFormulas 属性，DisplayGridlines 属性，DisplayHeadings 属性，DisplayHorizontalScrollBar属性，DisplayOutline属性，DisplayRightToLeft属性，DisplayVerticalScrollBar属性，DisplayWorkbookTabs 属性，DisplayZeros属性，EnableResize 属性，FreezePanes 属性，GridlineColor 属性，GridlineColorIndex 属性，Height 属性，Index 属性，Left 属性，OnWindow属性，Panes 属性，Parent 属性，RangeSelection 属性，ScrollColumn属性，ScrollRow属性，SelectedSheets属性，Selection属性，Split 属性，SplitColumn 属性，SplitHorizontal 属性，SplitRow 属性，SplitVertical 属性，TabRatio 属性，Top 属性，Type 属性，UsableHeight 属性，UsableWidth 属性，View 属性，Visible 属性，VisibleRange 属性，Width属性，WindowNumber 属性，WindowState 属性，Zoom 属性
方法
Activate 方法，ActivateNext 方法，ActivatePrevious 方法，Close 方法，LargeScroll 方法，NewWindow 方法，PointsToScreenPixelsX 方法，PointsToScreenPixelsY 方法，PrintOut 方法，PrintPreview 方法，RangeFromPoint 方法，ScrollIntoView 方法，ScrollWorkbookTabs 方法，SmallScroll 方法
适用于
Application 对象 ，Workbook 对象
描述
工作簿的窗口激活时，将产生本事件。
句法
Private Sub object_WindowActivate(ByVal Wb As Excel.Workbook, ByVal Wn As Excel.Window)
object
Application 对象或 Workbook 对象。
Wb
仅用于 Application 对象。显示在活动窗口中的工作簿。
Wn
激活的窗口。
另见
Activate 事件， Deactivate 事件， SheetActivate 事件， SheetDeactivate 事件， WindowDeactivate 事件， WorkbookActivate 事件， WorkbookDeactivate 事件
示例
本示例使工作簿窗口激活时最大化。
Private Sub Workbook_WindowActivate(ByVal Wn As Excel.Window)
Wn.WindowState = xlMaximized
End Sub
适用于
Application 对象，Workbook 对象
描述
工作簿的窗口变为不活动状态时，将产生本事件。
句法
Private Sub object_WindowDeactivate(ByVal Wb As Excel.Workbook, ByVal Wn As Excel.Window)
object
Application 对象或 Workbook 对象。
Wb
仅用于 Application 对象。变为不活动状态的窗口中的工作簿。
Wn变为不活动状态的窗口。
另见
Activate 事件， Deactivate 事件， SheetActive 事件， SheetDeactivate 事件， WindowDeactivate 事件， WorkbookActivate 事件， WorkbookDeactivate 事件
示例
本示例使工作簿窗口变为不活动状态时最小化。
Private Sub Workbook_WindowDeactivate(ByVal Wn As Excel.Window)
Wn.WindowState = xlMinimized
End Sub
适用于
Window 对象
描述
返回窗口号。例如，标题为“Book1.xls:2”的窗口，其窗口号为 2。大多数窗口的窗口号为 1。Long 类型，只读。
说明
窗口号与窗口的索引（Index 属性的返回值）不同，窗口索引值为该窗口在Windows 集合中的位置。
另见
示例
本示例为活动窗口新建一个窗口，然后显示新窗口的窗口号。
ActiveWindow.NewWindow
MsgBox ActiveWindow.WindowNumber
适用于
Application 对象，Workbook 对象
描述
工作簿窗口调整大小时，将产生本事件。
句法
Private Sub object_WindowResize(ByVal Wb As Excel.Workbook, ByVal Wn As Excel.Window)
objec
tApplication 对象或 Workbook 对象。
Wb
仅用于 Application 对象。显示在调整大小的窗口中的工作簿。
Wn
调整大小的窗口。
示例
工作簿窗口调整大小时，将运行本示例。
Private Sub Workbook_WindowResize(ByVal Wn As Excel.Window)
Application.StatusBar = Wn.Caption & " resized"
End Sub
描述
Microsoft Excel 中所有 Window 对象的集合。Application 对象的
Windows 集合包含应用程序中的所有窗口，而 Workbook 对象的
Windows 集合则只包含指定工作簿中的窗口。
使用Windows 集合对象
可用 Windows 属性返回 Windows 集合。下例层叠当前显示在 Microsoft Excel 中的所有窗口。
Windows.Arrange arrangeStyle:=xlCascade
可用 NewWindow 方法创建新窗口并将其添加到集合中。下例创建活动工作簿的新窗口。
ActiveWorkbook.NewWindow
可用 Windows(index) （其中 index 为窗口名称或编号）返回单个 Window对象。下例最大化活动窗口。
Windows(1).WindowState = xlMaximized注意，活动窗口总是 Windows(1) 。
属性
Application 属性，Count 属性，Creator 属性，Item 属性，(Window 集合)，Parent 属性
方法
Arrange 方法
适用于
Application 对象，Workbook 对象
描述
Application 对象：返回一个 Windows 集合，此集合代表所有工作簿中的所有窗口。只读。
Workbook 对象：返回一个 Windows 集合，此集合代表指定工作簿中的所有窗口。只读。
有关返回一个集合中单个成员的详细内容，另见返回集合中的对象。
说明
在不用对象识别符的情况下使用此属性等价于 Application.Windows。
此属性返回的集合中既包括可见窗口，也包括隐藏窗口。
示例
本示例关闭 Microsoft Excel 第一个窗口，无论此窗口是打开的或是隐藏的。
Application.Windows(1).Close
本示例将活动工作簿的第一个窗口命名为“Consolidated Balance Sheet”。此名称将被用作 Windows 集合中的索引。
ActiveWorkbook.Windows(1).Caption = "Consolidated Balance Sheet"
ActiveWorkbook.Windows("Consolidated Balance Sheet") _
.ActiveSheet.Calculate
适用于
Application 对象
描述
如果此计算机正在运行的是 Microsoft Windows for Pen Computing 则为
True。Boolean 类型，只读。
示例
本示例演示当计算机运行在 Microsoft Windows for Pen Computing 下如何
限制其仅识别手写数字和标点符号。
If Application.WindowsForPens Then
Application.ConstrainNumeric = TrueEnd If
适用于
Application 对象，Window 对象
描述
返回或者设置指定窗口的状态。可为下列 XlWindowState 常量之一：
xlMaximized，xlMinimized 或 xlNormal。Long 类型，可读写。
示例
本示例将 Microsoft Excel for Windows 应用程序窗口最大化。
Application.WindowState = xlMaximized
本示例将活动窗口大小扩展为有效的最大值（假定指定窗口尚未最大化）。
With ActiveWindow
.WindowState = xlNormal
.Top = 1
.Left = 1
.Height = Application.UsableHeight
.Width = Application.UsableWidth
End With
描述
代表 Microsoft Excel 工作簿。Workbook 对象是 Workbooks 集合的成员。Workbooks 集合包含 Microsoft Excel 中所有当前打开 Workbook 对象。
使用Workbook 对象
本部分将说明下列返回 Workbook 对象的属性和方法：
可用 Workbooks(index)，（其中 index 为工作簿名称或编号）返回单个Workbook 对象。下例激活第一个工作簿。
Workbooks(1).Activate
工作簿编号表明创建或打开工作簿的顺序。Workbooks(1) 为创建的第一个工作簿，而 Workbooks(Workbooks.Count) 为最后一个。激活某工作簿并不改变其编号。所有工作簿均包括在编号序列中，即便是隐藏工作簿也是如此。
Name 属性返回工作簿名称。不能用该属性设置工作簿的名称；如果需要改名，应当用 SaveAs方法以其它名称保存工作簿。下例激活工作簿“Cogs.xls”中的工作表“Sheet1”（该工作簿必须已在 Microsoft Excel 中打开）。
Workbooks("cogs.xls").Worksheets("sheet1").Activate
ActiveWorkbook 属性
ActiveWorkbook 属性返回当前处于活动状态的工作簿。下例设置活动工作簿的作者名称。
ActiveWorkbook.Author = "Jean Selva"
ThisWorkbook 属性
ThisWorkbook 属性返回 Visual Basic 代码正在其中运行的工作簿。在绝大多数情况下，这也就是活动工作簿。然而，如果 Visual Basic 代码是加载宏的一部分，那么 ThisWorkbook 属性就不会返回活动工作簿。在这种情况下，活动工作簿是调用加载宏的工作簿，而 ThisWorkbook 属性将返回该加载宏工作簿。
如果用 Visual Basic 代码创建加载宏，那么对于那些编译到加载宏中的工作簿，在其中运行的语句应当用 ThisWorkbook 属性加以限定。
属性
AcceptLabelsInFormulas 属性，ActiveChart 属性，ActiveSheet 属性，Application 属性，AutoUpdateFrequency属性，AutoUpdateSaveChanges 属性，BuiltinDocumentProperties属性，CalculationVersion属性，ChangeHistoryDuration 属性，Charts 属性，CodeName 属性，Colors 属性，CommandBars 属性，ConflictResolution 属性，Container 属性，CreateBackup 属性，Creator 属性，CustomDocumentProperties 属性，CustomViews 属性，Date1904 属性，DisplayDrawingObjects 属性，EnvelopeVisible 属性，Excel4IntlMacroSheets 属性，Excel4MacroSheets 属性，FileFormat 属性，FullName 属性，HasPassword 属性，HasRoutingSlip属性，HighlightChangesOnScreen属性，HTMLProject属性，IsAddin属性，IsInPlace属性，KeepChangeHistory属性，ListChangesOnNewSheet 属性，MultiUserEditing 属性，Name 属性，Names属性，Parent属性，Path属性，PersonalViewListSettings属性，PersonalViewPrintSettings属性，PrecisionAsDisplayed属性，ProtectStructure属性，ProtectWindows属性，PublishObjects属性，ReadOnly属性，ReadOnlyRecommended属性，RevisionNumber属性，Routed属性，RoutingSlip属性，Saved属性，SaveLinkValues属性，Sheets属性，ShowConfictHistory属性，Styles属性，TemplateRemoveExtData 属性，UpdateRemoteReferences属性，UserStatus属性，VBASigned 属性，VBProject 属性，WebOptions 属性，Windows 属性，Worksheets 属性，WriteReserved 属性，WriteReservedBy 属性
方法
AcceptAllChanges 方法，Activate 方法，AddToFavorites 方法，ChangeFileAccess 方法，ChangeLink 方法，Close 方法，DeleteNumberFormat 方法，ExclusiveAccess 方法，FollowHyperlink 方法，HighlightChangesOptions 方法，LinkInfo 方法，LinkSources 方法，MergeWorkbook 方法，NewWindow 方法，OpenLinks 方法，PivotCaches方法，Post 方法，PrintOut 方法，PrintPreview 方法，Protect 方法，ProtectSharing 方法，PurgeChangeHistoryNow 方法，RefreshAll 方法，RejectAllChanges 方法，ReloadAs 方法，RemoveUser 方法，ResetColors方法Routo方法，RunAutoMacros方法，Save方法，SaveAs 方法，SaveCopyAs 方法，SendMail 方法，SetLinkOnData 方法，Unprotect 方法，UnprotectSharing 方法，UpdateFromFile 方法，UpdateLink 方法，WebPagePreview 方法
事件
Activate 事件，AddinInstall 事件，AddinUninstall 事件，BeforeClose 事件，BeforePrint 事件，BeforeSave 事件，Deactivate 事件，NewSheet 事件，Open 事件，SheetActivate 事件，SheetBeforeDoubleClick 事件，SheetBeforeRightClick 事件，SheetCalculate 事件，SheetChange 事件，SheetDeactive事件，SheetFollowHyperlink事件，SheetSelectionChange事件，WindowActivate 事件，WindowDeactivate 事件，WindowResize 事件
适用于
Application 对象
描述
当激活任一工作簿时产生此事件。
句法
Private Sub app_WorkbookActivate(ByVal Wb As Workbook)
app
在类模块中带有事件声明的 Application 类型对象。
Wb
激活的工作簿。
另见
Activate 事件， Deactivate 事件， SheetActivate 事件， SheetDeactivate 事件， WindowActivate 事件， WindowDeactivate 事件， WorkbookDeactivate 事件
示例
本示例当激活一个工作簿时对所有打开的窗口进行排列。
Private Sub App_WorkbookActivate(ByVal Wb As Workbook)
Application.Windows.Arrange xlArrangeStyleTiled
End Sub
适用于
Application 对象
描述
当工作簿作为加载宏载入时产生此事件。
句法
Private Sub object_WorkbookAddinInstall(ByVal Wb As Workbook)
object
在类模块中带有事件声明的 Application 类型对象。
Wb
载入的工作簿。
另见
AddinInstall 事件， AddinUninstall 事件， WorkbookAddinUninstall 事件
示例
本示例当指定工作簿作为加载宏载入时将 Microsoft Excel 最大化。
Private Sub App_WorkbookAddinInstall(ByVal Wb As Workbook)
Application.WindowState = xlMaximized
End Sub
适用于
Application 对象
描述
当任一作为加载宏的工作簿卸载时产生此事件。
句法
Private Sub object_WorkbookAddinUninstall(ByVal Wb As Workbook)
object
在类模块中带有事件声明的 Application 类型对象。
Wb
卸载的工作簿。
另见
AddinInstall 事件， AddinUninstall 事件， WorkbookAddinInstall 事件
示例
本示例当指定工作簿作为加载宏卸载时将 Microsoft Excel 最小化。
Private Sub App_WorkbookAddinUninstall(ByVal Wb As Workbook)
Application.WindowState = xlMinimized
End Sub
适用于
Application 对象
描述
当任一打开的工作簿要关闭时立即产生此事件。
句法
Private Sub object_WorkbookBeforeClose(ByVal Wb As Workbook, ByVal
Cancel As Boolean)
object
在类模块中带有事件声明的 Application 类型对象。
Wb
要关闭的工作簿。
Cancel当事件产生时为 False。如果该事件过程将本参数设为 True，则该过程执行结束之后不关闭工作簿。
另见
示例
本示例在关闭工作簿之前询问用户是否关闭。
Private Sub App_WorkbookBeforeClose(ByVal Wb as Workbook, _
Cancel as Boolean)
a = MsgBox("Do you really want to close the workbook?", vbYesNo)
If a = vbNo Then Cancel = True
End Sub
适用于
Application 对象
描述
在打印任一打开的工作簿之前产生此事件。
句法
Private Sub object_WorkbookBeforePrint(ByVal Wb As Workbook, ByVal Cancel As Boolean)
object
在类模块中带有事件声明的 Application 类型对象。
Wb
工作簿。
Cancel
当事件产生时为 False。如果该事件过程将本参数设为 True，则该过程执行结束之后不打印工作簿。
示例
本示例在打印工作簿之前对所有工作表进行重新计算。
Private Sub App_WorkbookBeforePrint(ByVal Wb As Workbook, _
Cancel As Boolean)
For Each wk in Wb.Worksheets
wk.Calculate
Next
End Sub
适用于
Application 对象
描述
在保存任一打开工作簿之前产生此事件。
句法
Private Sub object_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal
SaveAsUi As Boolean, ByVal Cancel As Boolean)
object
在类模块中带有事件声明的 Application 类型对象。
Wb
工作簿。
SaveAsUi
如果显示Save As对话框则为 True。
Cancel
当事件产生时为 False。如果该事件过程将本参数设为 True，则该过程执行结束之后不保存工作簿。
另见
示例
本示例在保存工作簿之前询问用户是否保存。
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, _
ByVal SaveAsUI As Boolean, Cancel as Boolean)
a = MsgBox("Do you really want to save the workbook?", vbYesNo)
If a = vbNo Then Cancel = True
End Sub
适用于
Application 对象
描述
当打开的工作簿由活动转为非活动状态时产生此事件。
句法
Private Sub object_WorkbookDeactivate(ByVal Wb As Workbook)
object
在类模块中带有事件声明的 Application 类型对象。
Wb
工作簿。
另见
Activate 事件， Deactivate 事件， SheetActivate 事件， SheetDeactivate 事件， WindowActivate 事件， WindowDeactivate 事件， WorkbookActivate 事件
示例
本示例当工作簿转为非活动状态时对所有打开的窗口进行排列。
Private Sub App_WorkbookDeactivate(ByVal Wb As Workbook)
Application.Windows.Arrange xlArrangeStyleTiled
End Sub
适用于
Application 对象
描述
当任一工作簿中新建工作表时产生此事件。
句法
Private Sub object_WorkbookNewSheet(ByVal Wb As Workbook, ByVal Sh As Object)
object
在类模块中带有事件声明的 Application 类型对象。
Wb
工作簿。
Sh
新建工作表。
另见
示例
本示例对 WorkbookNewSheet 事件响应进行设置，将新建工作表移到工作簿的末尾。
Private Sub App_WorkbookNewSheet(ByVal Wb As Workbook, _
ByVal Sh As Object)
Sh.Move After:=Wb.Sheets(Wb.Sheets.Count)
End Sub
适用于
Application 对象
描述
当打开一个工作簿时产生此事件。
句法
Private Sub object_WorkbookOpen(ByVal Wb As Workbook)
object
在类模块中带有事件声明的 Application 类型对象。
Wb
工作簿。
示例
本示例当打开一个工作簿时对所有打开的窗口进行排列。
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
Application.Windows.Arrange xlArrangeStyleTiled
End Sub
描述
Microsoft Excel 应用程序中当前所有打开的 Workbook 对象的集合。
使用Workbooks 集合对象
可用 Workbooks 属性返回 Workbooks 集合。下例关闭所有打开的工作簿。
Workbooks.Close可用 Add 方法创建新的空白工作簿，并将其添加到集合中。下例向Microsoft Excel 添加新的空白工作簿。
Workbooks.Add
可用 Open 方法打开文件。这将为所打开的文件创建新工作簿。下例将文件“Array.xls”作为只读工作簿打开。
Workbooks.Open fileName:="array.xls", readOnly:=True
关于使用单个 Workbook 对象的详细内容，另见 Workbook 对象。
属性
Application 属性，Count 属性，Creator 属性，Item 属性(Workbooks 集合)，Parent 属性
方法Add 方法(Workbooks 集合)，Close 方法，Open 方法，OpenText 方法
适用于
Application 对象
描述
返回一个 Workbooks 集合，此集合代表所有打开的工作簿。只读。
说明
在不使用对象识别符的情况下使用此属性等价于 Application.Workbooks。
Workbooks 属性返回的集合中并不包含打开的加载宏，加载宏是一类特殊的隐藏工作簿。当然，如果您知道文件名，也可返回一个打开的加载宏。 例如， Workbooks("Oscar.xla") 将名为“Oscar.xla”的加载宏作为 Workbook 对象返回。
示例
本示例激活 Book1.xls 工作簿。
Workbooks("BOOK1").Activate
本示例打开 Large.xls 工作簿。
Workbooks.Open filename:="LARGE.XLS"
这个示例关闭除了运行本示例的工作簿以外的其它工作簿，并保存其更改内容。
For Each w In Workbooks
If w.Name <> ThisWorkbook.Name Then
w.Close savechanges:=True
End If
Next w
描述
代表工作表。Worksheet 对象是 Worksheets 集合的成员。Worksheets 集合包含工作簿中所有的 Worksheet 对象。
使用Worksheet 对象
本部分将说明下列返回 Worksheet 对象的属性和方法：
可用 Worksheets(index) （其中 index 为工作表编号或名称）返回单个Worksheet 对象。下例隐藏活动工作簿中的第一张工作表。
Worksheets(1).Visible = False
工作表编号表明该工作表在工作簿的选项卡栏中的位置。Worksheets(1) 为工作簿中第一个（最左边的）工作表，而 Worksheets(Worksheets.Count) 为最后一个。所有工作表均包括在编号序列中，即便是隐藏工作表也是如此。
工作表的名称显示在工作表的选项卡上。可用 Name 属性设置或返回工作表的名称。下例保护工作表“Sheet1”上的方案。
Worksheets("sheet1").Protect password:="drowssap", scenarios:=True
Worksheet 对象也是 Sheets 集合的成员。Sheets 集合包含工作簿中所有的表（包括图表和工作表）。
ActiveSheet 属性
当工作表处于活动状态时，可用 ActiveSheet 属性引用之。下例使用Activate 方法激活工作表“Sheet1”，将页打印方向设置为横向，然后打印该工作表。
Worksheets("sheet1").Activate
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintOut
属性
Application 属性，AutoFilter 属性，AutoFilterMode 属性，Cells 属性，CircularReference 属性，CodeName 属性，Columns 属性，Comments 属性，ConsolidationFunction 属性，ConsolidationOptions 属性，ConsolidationSources 属性，Creator 属性，DisplayPageBreaks 属性，DisplayRightToLeft 属性，EnableAutoFilter 属性，EnableCalculation 属性，EnableOutlining 属性，EnablePivotTable 属性，EnableSelection 属性，FilterMode 属性，HPageBreaks 属性，Hyperlinks 属性，Index 属性，Name 属性，Names 属性，Next 属性，Outline 属性，PageSetup 属性，Parent 属性，Previous 属性，ProtectContents 属性，ProtectDrawingObjects 属性，ProtectionMode 属性，ProtectScenarios 属性，QueryTables 属性，Range 属性(Application，Range或者 Worksheet 对象)，Rows 属性，Scripts 属性，ScrollArea 属性，Shapes 属性，StandardHeight 属性，StandardWidth 属性，TransitionExpEval 属性，TransitionFormEntry 属性，Type 属性，UseRange 属性，Visible 属性，VPageBreaks 属性
方法
Activate 方法，Calculate 方法，ChartObjects 方法，CheckSpelling 方法，CircleInvalid 方法，ClearArrows 方法，ClearCircles 方法，Copy 方法，Delete 方法，Evaluate 方法，Move 方法，OLEObjects 方法，Paste 方法(Worksheet 对象)，PasteSpecial 方法(Worksheet 对象)，PivotTables 方法，PivotTableWizard 方法，PrintOut 方法，PrintPreview 方法，Protect方法，ResetAllPageBreaks 方法，SaveAs 方法，Scenarios 方法，Select 方法，SetBackgroundPicture 方法，ShowAllData 方法，ShowDataForm 方法，Unprotect 方法
事件
Activate 事件，BeforeDoubleClick 事件，BeforeRightClick 事件，Calculate事件，Change 事件，Deactivate 事件，FollowHyperlink 事件，
SelectionChange 事件
适用于
Range 对象
描述
返回 Worksheet 对象，该对象代表包含指定区域的工作表。只读。
示例
本示例显示包含活动单元格的工作表的名称。本示例必须在工作表上运行。
MsgBox ActiveCell.Worksheet.Name
本示例显示包含活动单元格区域“testRange”的工作表的名称。
MsgBox Range("testRange").Worksheet.Name
描述
用作可从 Visual Basic 中调用的 Microsoft Excel 工作表函数的容器。
使用WorksheetFunction 对象
可用 WorksheetFunction 属性返回 WorksheetFunction 对象。下例显示了对单元格区域“A1:A10”应用工作表函数 Min 的结果。
Set myRange = Worksheets("Sheet1").Range("A1:C10")
answer = Application.WorksheetFunction.Min(myRange)
MsgBox answer
属性
Application 属性，Creator 属性，Parent 属性
方法
Find 方法，Replace 方法，Subtotal 方法，Text 方法
适用于
Application 对象
描述
返回 WorksheetFunction 对象。只读。
示例
本示例对单元格区域“A1:A10”使用 Min 工作表函数，并显示结果。
Set myRange = Worksheets("Sheet1").Range("A1:C10")
answer = Application.WorksheetFunction.Min(myRange)
MsgBox answer
描述
指定工作簿或活动工作簿中所有 Worksheet 对象的集合。每个 Worksheet对象代表一个工作表。
使用Worksheets 集合对象
可用 Worksheets 属性返回 Worksheets 集合。下例将所有工作表移到工作簿尾部。
Worksheets.Move after:=Sheets(Sheets.Count)
可用 Add 方法创建新工作表并将其添加到集合中。下例将两个新工作表添加到活动工作簿的第一个工作表之前。
Worksheets.Add count:=2, before:=Sheets(1)
可用 Worksheets(index) （其中 index 为工作表编号或名称）返回单个Worksheet 对象。下例隐藏活动工作簿中的第一张工作表。
Worksheets(1).Visible = False
Worksheet 对象也是 Sheets 集合的成员。Sheets 集合包含工作簿中所有的表（包括图表和工作表）。
属性
Application 属性，Count 属性，Creator 属性，HPageBreaks 属性，Item 属性(Worksheets 集合)，Parent 属性，Visible 属性，VPageBreaks 属性
方法
Add 方法(Worksheets 集合)，Copy 方法，Delete 方法，FillAcrossSheets 方法，Move 方法，PrintOut 方法，PrintPreview 方法，Select 方法
适用于
Application 对象，Workbook 对象
描述
Application 对象：返回 Sheets 集合，该集合代表活动工作簿中的所有工作表。只读。
Workbook 对象：返回 Sheets 集合，该集合代表指定工作簿中的所有工作表。只读。
关于返回某集合中单个成员的详细内容，另见返回集合中的对象。
说明
若未指定对象识别符，本属性将返回活动工作簿中的所有工作表。
本属性不返回宏表；可用 Excel4MacroSheets 属性或Excel4IntlMacroSheets 属性返回宏表。
示例
本示例显示活动工作簿中工作表“Sheet1”上单元格“A1”中的值。
MsgBox Worksheets("Sheet1").Range("A1").Value
本示例活动工作簿中每个工作表的名称。
For Each ws In Worksheets
MsgBox ws.Name
Next ws
本示例向活动工作簿添加新工作表，并设置该工作表的名称。
Set newSheet = Worksheets.Add
newSheet.Name = "Current Budget"
适用于
Range 对象，Style 对象
描述
如果 Microsoft Excel 将对象中的文字自动换行，本属性为 True。如果指定区域中有的单元格自动换行，有的不自动换行，本属性返回 Null。对于Range 对象，本属性为 Variant 类型，可读写。对于 Style 对象，本属性
为 Boolean 类型，可读写。
说明
Microsoft Excel 将在必要情况下修改区域中的行高，以适应区域中的文字。
示例
本示例将工作表“Sheet1”中单元格“B2”的格式，使其中的文字自动换行。
Worksheets("Sheet1").Range("B2").Value = _
"This text should wrap in a cell."
Worksheets("Sheet1").Range("B2").WrapText = True
适用于
Workbook 对象
描述
如果指定工作簿是写保护的则为 True。Boolean 类型，只读。
说明
使用 SaveAs 方法可对属性进行设置。
示例
如果当前工作簿是写保护的，本示例将显示一条信息，其中包含了将该工作簿以写保护方式保存的用户的名称。
With ActiveWorkbook
If .WriteReserved = True Then
MsgBox "Please contact " & .WriteReservedBy & Chr(13) & _"
if you need to insert data in this workbook."
End If
End With
适用于
Workbook 对象
描述
返回当前对指定工作簿有写入权的用户的名称。String 类型，只读。
如果当前工作簿是写保护的，本示例将显示一条信息，其中包含了将该工作簿以只读方式保存的用户的名称。
With ActiveWorkbook
If .WriteReserved = True Then
MsgBox "Please contact " & .WriteReservedBy & Chr(13) & _
" if you need to insert data in this workbook."
End If
End With
适用于
Series 对象
描述
返回或者设置图表系列中 x 值的数组。XValues 属性可设置为工作表区域或数值数组，但不能为二者的组合。Variant 类型，可读写。
对于数据透视图表报表（PivotChart reports），本属性只读。
示例
本示例将“Chart1”中第一个系列的 x 值设为 Sheet1 的 B1:B5 单元格的值。
Charts("Chart1").SeriesCollection(1).XValues = _
Worksheets("Sheet1").Range("B1:B5")
本示例使用数组为“Chart1”中第一个系列的各点逐一赋值。
Charts("Chart1").SeriesCollection(1).XValues = _
Array(5.0, 6.3, 12.6, 28, 50)
适用于
Chart 对象
描述
在一个二维图表中返回一个对象，该对象既可代表单个散点图组（一个ChartGroup 对象，句法 1），也可代表一个散点图组集合（一个ChartGroups 集合，句法 2）。
句法
1expression.XYGroups(Index)
句法 2
expression.XYGroups
expression
必选，该表达式返回一个 Chart 对象。
Index
Variant 类型，可选。指定图表组。
示例
本示例设置第一个 X-Y 组（散点图），使其中的每一数据标记都使用不同的颜色。本示例应在二维图表上运行。
Charts("Chart1").XYGroups(1).VaryByCategories = True
适用于
PageSetup 对象，Window 对象
描述
PageSetup 对象：
返回或者设置一个百分比（数值在 10% 和 400% 之间），该百分比为Microsoft Excel 打印指定工作表时的缩放比例。Variant 类型，可读写。
如果本属性设为 False，则由 FitToPagesWide 属性和 FitToPagesTall 属性的设定值对工作表的缩放进行控制。
Window 对象：
以百分数的形式（100 表示正常大小， 200 表示双倍大小，如此类推）返回或者设置窗口的显示大小。Variant 类型，可读写。
将本属性设为 True 可将窗口大小设置成与当前选定区域相适应的大小。
说明
PageSetup 对象：
所有缩放均保持原文档的长度宽度比例。
Window 对象：
本功能仅对窗口中当前活动工作表起作用。要对其它工作表使用本属性，
必须先激活工作表。
示例
本示例设置打印 Sheet1 时的缩放比例为 150%。
Worksheets("Sheet1").PageSetup.Zoom = 150
适用于
Shape 对象，ShapeRange 集合对象
描述
将指定的形状移到集合中其它形状的前面或后面（即改变该形状在 z-次序中的位置）。
句法
expression.ZOrder(ZOrderCmd)
expression
必选。该表达式返回 Shape 或 ShapeRange 对象。
ZOrderCmd
Long 类型，必选。表示将指定的形状移到相对于其它形状的哪一位置。可为下列 MsoZOrderCmd 常量之一：msoBringForward，
msoBringToFront，msoSendBackward 或 msoSendToBack。常量msoBringInFrontOfText 和 msoSendBehindText 只能用于 MicrosoftWord。
说明
可用 ZOrderPosition 属性判断形状在 z-次序中的当前位置。
示例
本示例向 myDocument 中添加椭圆，并且当文档中另外还至少包含一个形状时，将该椭圆置于 z-次序中倒数第二的位置上。
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeOval, 100, 100, 100, 300)
While .ZOrderPosition > 2
.ZOrder msoSendBackward
Wend
End With
适用于
ChartObject 对象，OLEObject 对象，OLEObjects 集合对象
描述
返回指定对象的 Z-次序位置。Long 类型，只读。
说明
在任何对象集合中，Z-次序尾端的对象为collection(1)，Z-次序前端的对象为 collection(collection.Count) 。例如，如果活动工作表中有嵌入式图表，Z-次序尾端的图表为ActiveSheet.ChartObjects(1)，Z-次序前端的图表为ActiveSheet.ChartObjects (ActiveSheet.ChartObjects.Count)。
另见
示例
本示例显示 Sheet1 第一个嵌入式图表的 Z-次序位置。
MsgBox " Z-次序位置为 " & _
Worksheets("Sheet1").ChartObjects(1).ZOrder
适用于
Shape 对象，ShapeRange 集合对象
描述
返回指定的形状在 z-次序中的位置。Long 类型，只读。
本属性为只读属性。如果要设置指定形状在 z-次序中的位置，可用 ZOrder方法。
说明
形状在 z-次序中的位置相应于该形状在 Shapes 集合中的编号。例如，如果在 myDocument 中有四个形状，那么表达式 myDocument.Shapes(1) 将返回位于 z-次序最后部的形状，而表达式 myDocument.Shapes(4) 将返回位于 z-次序最前部的形状。
向集合中添加新形状时，默认情况下该形状将添加到 z-次序的最前部。
示例
本示例向 myDocument 中添加椭圆，并且当文档中另外还至少包含一个形状时，将该椭圆置于 z-次序中倒数第二的位置上。
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeOval, 100, 100, 100, 300)
While .ZOrderPosition > 2
.ZOrder msoSendBackward
Wend
End With