Excel VBA速查宝典 02-对象速查.pdf

第 2 章 对象速查 第2 章 对象速查 对象代表应用程序中的元素，比如，工作表、单元格、图表、 窗体，或是一份报告。在VBA 的代码中，可在使用对象的任一方 法之前，必须去识别对象。 对象集合是一个包含几个其他对象的对象，而这些对象通常但 并不总是相同的类型。例如，在Excel 中的Workbooks 对象包含 了所有已打开的Workbook 对象。而VBA 中的Forms 集合则包含 了所有在它所属应用程序中的Form 对象。 A AddIn AddIn 代表已调入或尚未调入的单个加载宏，它对应的集合为 Addlns。AddIns 集合包含Excel 的所有可用加载宏的列表，无论 这些加载宏是否已经调入。此列表相当于“工具”菜单中的“加载宏” 对话框内显示的加载宏列表。 【示例】：下列代码列出了系统可用宏的属性。 With Worksheets(sheet1) .Rows(1).Font.Bold = True .Range(a1:d1).Value = _ Array(Name, Full Name, Title, Installed) For i = 1 To AddIns.Count .Cells(i + 1, 1) = AddIns(i).Name .Cells(i + 1, 2) = AddIns(i).FullName .Cells(i + 1, 3) = AddIns(i).Title .Cells(i + 1, 4) = AddIns(i).Installed Next .Range(a1).CurrentRegion.Columns.AutoFit End With 运行的效果如图2-1 所示。 图2-1 运行效果 45 非常掌上宝 Excel VBA 速查宝典 Adjustments 该对象包含指定的自选图形对象、艺术字对象或连接符的调整 值的集合。每个调整值代表调整柄可调整的一个方向。 【示例】：下列代码添加了右箭头标注，并设置了该标注的调 整值。 Set myDocument = Worksheets(1) Set rac = myDocument.Shapes.AddShape (msoShapeRightArrowCallout, _ 10, 10, 250, 190) With rac.Adjustments .Item(1) = 0.5 .Item(2) = 0.15 .Item(3) = 0.8 .Item(4) = 0.4 End With 运行效果如图2-2 所示。 图2-2 运行效果 Application 该对象代表Excel 应用程序本身。表示Excel 自身的运行环境。 【示例】：下列代码启动了Excel，并且创建了包括2 个工作 表的工作薄。 Sub test() Dim mybook As Excel.Application Set mybook = New Excel.Application mybook.Visible = True mybook.SheetsInNewWorkbook = 2 Set zsbworkbook = mybook.Workbooks.Add 46