Excel VBA属性、方法、事件大全——Part10（Complete List of Excel VBA attribute/method and event）

对象/属性/方法/事件 （Object/Attribute/ Method/Event）	描述 （Description）
Object	获取或设置一个对象引用。可读/写。
Object	返回与此 OLE 对象相联系的 OLE 自动化对象。Object 型，只读。
Obscured	如果指定形状的阴影是填充的，并且阴影被形状所遮盖（即便该形状没有填充），那么该值为 True。如果阴影没有填充，并且当形状没有填充时，可透过形状看到阴影的轮廓，那么该值为 False。MsoTriState 类型，可读写。
Oct	返回 Variant (String)，代表一数值的八进制值。 语法 Oct(number) 必要的 number 参数为任何有效的数值表达式或字符串表达式。
Oct2Bin	将八进制数转换为二进制数。
Oct2Dec	将八进制数转换为十进制数。
Oct2Hex	将八进制数转换为十六进制数。
ODBCError	ODBCError 对象是 ODBCErrors 集合的成员。代表一个由最近的 ODBC 查询生成的 ODBC 错误。如果指定的 ODBC 查询运行时没有出现错误，则 ODBCErrors 集合为空。集合中错误的索引次序与 ODBC 数据源生成它们时的次序相同
ODBCErrors	返回一个 ODBCErrors 集合，该集合包含由最近的查询表或数据透视表操作产生的所有 ODBC 错误
ODBCErrors	每一个 ODBCError 对象都代表一个由最近的 ODBC 查询返回的错误。如果指定的 ODBC 查询运行时没有出现错误，则 ODBCErrors 集合为空。集合中错误的索引次序与 ODBC 数据源生成它们时的次序相同。您不能给该集合添加成员。
ODBCTimeout	以秒为单位返回或设置 ODBC 查询的时间限制
Odd	返回数字向上舍入到的最接近的奇数。
OddAndEvenPagesHeaderFooter	如果指定的 PageSetup 对象的奇数页和偶数页具有不同的页眉和页脚，则为 True。可读/写 Boolean 类型。
OddFPrice	返回首期付息日不固定（长期或短期）的面值 ￥100 的债券价格。
OddFYield	返回首期付息日不固定（长期或短期）的债券的收益率。
OddLPrice	返回末期付息日不固定（长期或短期）的面值 ￥100 的债券的价格。
OddLYield	返回末期付息日不固定（长期或短期）的债券的收益率。
Offset	返回一个 Range 对象，该对象代表某个指定区域以外的区域 本示例激活Sheet1上活动单元格向右偏移三列、向下偏移三行处的单元格。 Worksheets("Sheet1").Activate ActiveCell.Offset(rowOffset:=3, columnOffset:=3).Activate
Offset	返回或设置一个 Long 值，它代表各级别标签之间的距离以及第一级标签与坐标轴之间的距离。
OffsetX	以磅为单位返回或设置指定形状的阴影的水平偏移量。正偏移值将阴影向右偏移，负偏移值将阴影向左偏移。可读写。Single 类型。
OffsetY	以磅为单位返回或设置指定形状阴影的垂直偏移。正偏移值将阴影向下偏移，负偏移值将阴影向上偏移。可读写。Single 类型。
OLAP	如果数据透视表缓存与联机分析处理 (OLAP) 服务器相连，则返回 True。只读 Boolean 类型。
OLEDBErrors	返回 OLEDBErrors 集合，该集合代表最近一次 OLE DB 查询所返回的错误信息
OLEDBErrors	每一个 OLEDBError 对象都代表最近的 OLE DB 查询返回的一个错误。如果指定的 OLE DB 查询运行时没有出现错误，则 OLEDBErrors 集合为空。集合中错误的索引次序与 OLE DB 提供程序生成它们时的次序相同。您不能给该集合添加成员。
OLEFormat	返回一个 OLEFormat 对象，该对象包含 OLE 对象属性。只读。 语法 表达式.OLEFormat 表达式   一个代表 Shape 对象的变量。
OLEObjects	返回代表图表或工作表上单个 OLE 对象（OLEObject）或所有 OLE 对象的集合（OLEObjects 集合）的对象 本示例创建工作表Sheet1上OLE对象的链接类型列表。该列表将出现在本示例新建的工作表中。 Set newSheet = Worksheets.Add i = 2 newSheet.Range("A1").Value = "Name" newSheet.Range("B1").Value = "Link Type" For Each obj In Worksheets("Sheet1").OLEObjects     newSheet.Cells(i, 1).Value = obj.Name     If obj.OLEType = xlOLELink Then         newSheet.Cells(i, 2) = "Linked"     Else         newSheet.Cells(i, 2) = "Embedded"     End If     i = i + 1 Next
OLEObjects	返回代表图表或工作表上单个 OLE 对象或所有 OLE 对象的集合的对象。 本示例创建工作表 Sheet1 上 OLE 对象的链接类型列表。该列表将出现在本示例新建的工作表中 Set newSheet = Worksheets.Add i = 2 newSheet.Range("A1").Value = "Name" newSheet.Range("B1").Value = "Link Type" For Each obj In Worksheets("Sheet1").OLEObjects     newSheet.Cells(i, 1).Value = obj.Name     If obj.OLEType = xlOLELink Then         newSheet.Cells(i, 2) = "Linked"     Else         newSheet.Cells(i, 2) = "Embedded"     End If     i = i + 1 Next
OLEType	返回 OLE 对象类型。可为以下 XlOLEType 常量之一：xlOLELink 或 xlOLEEmbed。如果对象是链接的（对象存储于文件之外），则本属性返回 xlOLELink，如果对象是内嵌的（对象完全包含于文件之内），则返回 xlOLEEmbed。Long 类型，只读。
OmittedCells	如果该值为 True（默认值），则 Microsoft Excel 将用“自动更正选项”按钮识别包含公式的选定单元格，其中该公式引用的区域应包括相邻单元格，但这些单元格却被遗漏掉了。如果该值为 False，则禁用对被遗漏单元格的错误检查。Boolean 类型，可读写。
On	如果启用了“Office 助手”，则为 True。可读/写。
On	如果打开指定的筛选，则该属性值为 True。Boolean 类型，只读。
On Error	启动一个错误处理程序并指定该子程序在一个过程中的位置；也可用来禁止一个错误处理程序。 语法 On Error GoTo line On Error Resume Next On Error GoTo 0 On Error GoTo line  启动错误处理程序，且该例程从必要的 line 参数中指定的 line 开始。line 参数可以是任何行标签或行号。如果发生一个运行时错误，则控件会跳到 line，激活错误处理程序。指定的 line 必须在一个过程中，这个过程与 On Error 语句相同； 否则会发生编译时间错误。 On Error Resume Next 说明当一个运行时错误发生时，控件转到紧接着发生错误的语句之后的语句，并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。 On Error GoTo 0 禁止当前过程中任何已启动的错误处理程序。
On...GoSub、On...GoTo	根据表达式的值，转到特定行执行。 语法 On expression GoSub destinationlist On expression GoTo destinationlist expression 必要参数。数值表达式，其运算结果应该是一个界于 0 到 255 之间的整数，包含 0 和 255。如果 expression 的计算结果不是一个整数，则它会先四舍五入为一个整数。 destinationlist 必要参数。行号或行标签的列表，之间要以逗号隔开。
OnAction	返回或设置单击指定对象时运行的宏的名称。String 类型，可读写。 语法 表达式.OnAction 表达式   一个代表 Shape 对象的变量。
OneColorGradient	将指定填充设为单色渐变。
OnKey	当按特定键或特定的组合键时运行指定的过程 本示例为 Ctrl+ 加号分配“InsertProc”过程，并为 Shift+Ctrl+ 向右键分配“SpecialPrintProc”过程。 Application.OnKey "^{+}", "InsertProc" Application.OnKey "+^{RIGHT}", "SpecialPrintProc" 本示例将 Shift+Ctrl+ 向右键重新设为正常的含义。 Application.OnKey "+^{RIGHT}" 本示例将 Shift+Ctrl+ 向右键设为不发生任何操作。 Application.OnKey "+^{RIGHT}", ""
OnRepeat	对“重复”菜单项和执行的过程名进行设置 本示例对重复和撤消过程进行设置。 Application.OnRepeat "Repeat VB Procedure", _     "Book1.xls!My_Repeat_Sub" Application.OnUndo "Undo VB Procedure", _     "Book1.xls!My_Undo_Sub"
OnTime	安排一个过程在将来的特定时间运行（既可以是具体指定的某个时间，也可以是指定的一段时间之后）。 本示例设置 15 秒后运行my_Procedure过程，从现在开始计时。 Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"   本示例设置 my_Procedure 在下午 5 点开始运行。 Application.OnTime TimeValue("17:00:00"), "my_Procedure"
OnUndo	对“撤消”菜单项和执行的过程名进行设置 本示例对重复和撤消过程进行设置。 Application.OnRepeat "Repeat VB Procedure", _     "Book1.xls!My_Repeat_Sub" Application.OnUndo "Undo VB Procedure", _     "Book1.xls!My_Undo_Sub"
OnUpdate	该事件发生于命令栏改变时。 语法 表达式.OnUpdate 表达式   一个代表 CommandBars 对象的变量。
OnWindow	返回或设置每当激活一个窗口时要运行的过程的名称 每当激活窗口一时,本示例就运行 WindowActivate 过程。 ThisWorkbook.Windows(1).OnWindow = "WindowActivate"
OnWindow	返回或设置每当激活一个窗口时要运行的过程的名称。 每当激活窗口一时,本示例就运行 WindowActivate 过程。 ThisWorkbook.Windows(1).OnWindow = "WindowActivate"
OnWindow	返回或设置每当激活一个窗口时要运行的过程的名称。String 型，可读写。 语法 表达式.OnWindow 表达式   一个代表 Window 对象的变量。
Open	打开一个工作簿。 本示例打开 Analysis.xls 工作簿，然后运行 Auto_Open 宏。 Workbooks.Open "ANALYSIS.XLS" ActiveWorkbook.RunAutoMacros xlAutoOpen
Open	打开工作簿时，将产生本事件。 每次打开工作簿时，本示例都最大化 Microsoft Excel 窗口。 Private Sub Workbook_Open()     Application.WindowState = xlMaximized End Sub
Open	能够对文件输入/输出 (I/O)。 语法 Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength] pathname 必要。字符串表达式，指定文件名，该文件名可能还包括目录、文件夹及驱动器。 mode 必要。关键字，指定文件方式，有 Append、Binary、Input、Output、或 Random 方式。如果未指定方式，则以 Random 访问方式打开文件。 access 可选。关键字，说明打开的文件可以进行的操作，有 Read、Write、或 Read Write 操作。 lock 可选。关键字，说明限定于其它进程打开的文件的操作，有 Shared、Lock Read、Lock Write、和 Lock Read Write 操作。 filenumber 必要。一个有效的文件号，范围在 1 到 511 之间。使用 FreeFile 函数可得到下一个可用的文件号。 reclength 可选。小于或等于 32，767（字节）的一个数。对于用随机访问方式打开的文件，该值就是记录长度。对于顺序文件，该值就是缓冲字符数。
Open	打开一个最近使用的工作簿。
OpenDatabase	返回一个 Workbook 对象，该对象代表一个数据库 本示例中，Microsoft Excel 打开了“northwind.mdb”文件。本示例假定“northwind.mdb file”存在于 C 盘上。 Sub UseOpenDatabase()     ' Open the Northwind database.     Workbooks.OpenDatabase _         FileName:="C:\northwind.mdb" End Sub
OpenLinks	打开链接的支持文档。 本示例打开当前活动工作簿的所有 Microsoft Excel 支持文档。 Sub OpenAllLinks()     Dim arLinks As Variant     Dim intIndex As Integer     arLinks = ActiveWorkbook.LinkSources(xlExcelLinks)     If Not IsEmpty(arLinks) Then         For intIndex = LBound(arLinks) To UBound(arLinks)             ActiveWorkbook.OpenLinks arLinks(intIndex)         Next intIndex     Else         MsgBox "The active workbook contains no external links."     End If End Sub
OpenText	载入一个文本文件，并将其作为包含单个工作表的工作簿进行分列处理，然后在此工作表中放入经过分列处理的文本文件数据。 本示例打开 Data.txt 文件并将制表符作为分隔符对此文件进行分列处理，转换成为工作表。 Workbooks.OpenText filename:="DATA.TXT", _    dataType:=xlDelimited, tab:=True
OpenXML	打开 XML 数据文件。返回一个 Workbook 对象。 下面的代码打开了 XML 数据文件“customers.xml”并在 XML 列表中显示了此文件的内容。 Sub UseOpenXML()     Application.Workbooks.OpenXML _         Filename:="customers.xml", _         LoadOption:=xlXmlLoadImportToList End Sub
OperatingSystem	返回当前操作系统的名称和版本号 本示例显示操作系统的名称。 MsgBox "Microsoft Excel is using " & Application.OperatingSystem
Operator	返回一个 Long 值，它代表条件格式的操作符。
Operator	返回一个 Long 值，它代表数据有效性的运算符。
Operator	返回一个 XlAutoFilterOperator 值，它代表与指定筛选所应用的两个条件相关的操作符。
OptimizeCache	如果构造数据透视表的高速缓存时，需要对其进行优化，则该值为 True。默认值为 False。Boolean 类型，可读写。
Option Base	在模块级别中使用，用来声明数组下标的缺省下界。 语法 Option Base {0 | 1} 说明 由于下界的缺省设置是 0，因此无需使用 Option Base 语句。如果使用该语句，则必须写在模块的所有过程之前。一个模块中只能出现一次 Option Base，且必须位于带维数的数组声明之前。
Option Compare	在模块级别中使用，用于声明字符串比较时所用的缺省比较方法。 语法 Option Compare {Binary | Text | Database} 说明 如果使用，则 Option Compare 语句必须写在模块的所有过程之前。
Option Explicit	在模块级别中使用，强制显式声明模块中的所有变量。 语法 Option Explicit 说明 如果使用，Option Explicit 语句必须写在模块的所有过程之前。
Option Private	在允许引用跨越多个工程的主机应用程序中使用 Option Private Module，可以防止在模块所属的工程外引用该模块的内容。在不允许这种引用的主机应用程序中，例如，Visual Basic 的独立方式版本，Option Private 就不起作用。 语法 Option Private Module 说明 如果使用 Option Private 语句，则必须是写在模块级别中的任何过程之前。
Or	在其参数组中，如果任一参数的逻辑值为 TRUE，即返回 TRUE；如果所有参数的逻辑值为 FALSE，即返回 FALSE。
Order	返回或设置一个 XlOrder 值，它代表 Microsoft Excel 打印一张大工作表时所使用的页编号的次序。
Order	返回或设置一个 Long 值，它代表趋势线类型为 xlPolynomial 时趋势线的顺序号（大于 1 的整数）。
OrganizationName	返回注册组织名称 本示例显示注册组织名称。 MsgBox "The registered organization is " & _     Application.OrganizationName
OrganizeInFolder	如果为 True，则在将指定的文档保存为网页时，所有的支持文件（如背景纹理和图形）将组织在一个单独的文件夹中；如果为 False，则支持文件和网页将保存在同一文件夹中。默认值是 True。Boolean 类型，可读写。
Orientation	文本方向。可为 –90 到 90 度之间的整数值 expression.Orientation expression必需。该表达式返回上面的对象之一。
Orientation	返回或设置一个 Variant 值，它代表文本方向。 语法 表达式.Orientation 表达式   一个代表 CellFormat 对象的变量。
Orientation	返回或设置一个 XlOrientation 值，它代表文本方向。 语法 表达式.Orientation 表达式   一个代表 Style 对象的变量。
Orientation	返回或设置一个 Long 值，它代表文本框的方向。
Orientation	返回或设置一个 XlPageOrientation 值，它代表纵向或横向打印模式。
Orientation	返回或设置一个 XlPivotFieldOrientation 值，它代表字段在指定的数据透视表中的位置。
Orientation	返回或设置一个 Variant 值，它代表文本方向。
Orientation	返回或设置一个 Long 值，它代表文本方向。
Orientation	返回或设置一个 XlOrientation 值，它代表文本方向。
Outline	返回一个 Outline 对象，该对象代表指定工作表的分级显示 本示例将 Sheet1 的分级显示设置为使用自动样式。 Worksheets("Sheet1").Outline.AutomaticStyles = True
OutlineFont	如果指定的字体是空心字体，则该值为 True 本示例对 Sheet1 的 A1 单元格的字体进行设置。 Worksheets("Sheet1").Range("A1").Font.OutlineFont = True
OutlineLevel	返回或设置指定行或列的当前分级显示级别 本示例设置 sheet1 上第二行的分级显示级别。 Worksheets("Sheet1").Rows(2).OutlineLevel = 1
Overlap	指定放置条形和柱形的方式。取值范围在 -100 到 100 之间。仅应用于二维条形图和二维柱形图。Long 类型，可读写。