EXCEL2007VBA控件属性大全
VBA中常用的Excel对象和其属性方法解析
VBA中常用的Excel对象和其属性方法解析在VBA中，Excel对象是我们在编写Excel宏时经常使用的重要元素之一。
通过使用Excel对象，我们可以操作Excel工作簿、工作表、单元格等，实现对Excel数据的读取、写入、操作等功能。
本文将详细解析VBA中常用的Excel对象以及它们的属性和方法。
首先，我们先介绍Excel对象的层级结构。
在VBA中，Excel对象的层级结构分为四个层次：Excel应用程序对象、工作簿对象、工作表对象和单元格对象，由上至下，依次代表了Excel的整体、工作簿、工作表和单元格。
1. Excel应用程序对象(Application对象)：Excel应用程序对象是最顶层的对象，它代表了整个Excel应用程序的实例。
在VBA中，我们可以通过创建Application对象来访问Excel应用程序的各项功能和操作。
我们可以通过下面的代码来创建一个Excel应用程序对象：```vbaDim app As Excel.ApplicationSet app = New Excel.Application```2. 工作簿对象(Workbook对象)：工作簿对象是Excel文件的最高级别对象，一个Excel应用程序可以包含多个工作簿对象。
在VBA中，我们可以通过创建Workbook对象来打开、创建、保存和关闭Excel工作簿。
下面是创建一个Workbook对象的例子：```vbaDim wb As Excel.WorkbookSet wb = app.Workbooks.Add '创建一个新的工作簿对象```在工作簿对象中，我们可以访问以下一些常用的属性和方法：- Name：表示工作簿的名称。
- Worksheets：表示该工作簿中所有工作表的集合。
可以通过索引或名称来访问特定的工作表。
- Save：保存对工作簿的修改。
- Close：关闭工作簿。
3. 工作表对象(Worksheet对象)：工作表对象是Excel文件中的一个表格，每一个Excel工作簿可以包含多个工作表对象。
各种VBAexcel命令、属性、方法
各种VBAexcel命令、属性、方法本示例为设置密码窗口 (1)If Application.InputBox('请输入密码：') = 1234 Then[A1] = 1 '密码正确时执行ElseMsgBox '密码错误，即将退出！' '此行与第2行共同设置密码End If'本示例为设置密码窗口 (1)X = MsgBox('是否真的要结帐？', vbYesNo)If X = vbYes Then Close'本示例为设置工作表密码ActiveSheet.Protect Password:=641112 ' 保护工作表并设置密码ActiveSheet.Unprotect Password:=641112 '撤消工作表保护并取消密码'本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容For Each w In WorkbooksIf Thenw.Close SaveChanges:=TrueEnd IfNext w'每次打开工作簿时，本示例都最大化 Microsoft Excel 窗口。
Application.WindowState = xlMaximized'本示例显示活动工作表的名称。
MsgBox 'The name of the active sheet is ' & '本示例保存当前活动工作簿的副本。
ActiveWorkbook.SaveCopyAs 'C:'TEMP'XXXX.XLS''下述过程激活工作簿中的第四张工作表。
Sheets(4).Activate'下述过程激活工作簿中的第1张工作表。
Worksheets(1).Activate'本示例通过将 Saved 属性设为 True 来关闭包含本段代码的工作簿，并放弃对该工作簿的任何更改。
excel vba chartobject 详解
在Excel VBA 中，ChartObject 是一个代表嵌入在工作表中的图表的对象。
使用ChartObject，你可以创建、修改和删除工作表中的图表。
下面是一些关于ChartObject 的常用属性和方法的详解：属性：返回或设置图表对象的名称。
2.Parent：返回图表对象的父对象。
3.Chart：返回与ChartObject 关联的Chart 对象，该对象代表图表本身，你可以使用它来访问和修改图表的各个部分。
4.Top, Left, Width, Height：分别返回或设置图表对象在工作表上的位置和大小。
5.ShapeRange：返回代表图表对象的形状范围的对象，你可以使用它来修改图表对象的形状属性，如填充颜色、边框等。
6.LockAspectRatio：返回或设置一个值，该值指示在调整图表对象的大小时是否保持其纵横比。
方法1.Delete：删除图表对象。
2.Copy：将图表对象复制到剪贴板。
3.Cut：将图表对象剪切到剪贴板。
4.Select：选择图表对象。
5.Activate：激活图表对象，使其成为当前选中的对象。
6.Move：将图表对象移动到工作表上的新位置。
7.Resize：改变图表对象的大小。
示例下面是一个简单的示例，演示如何使用ChartObject 创建一个新的嵌入式图表：vba复制代码Sub CreateChart()Dim chartObj As ChartObjectDim rng As RangeDim chart As Chart' 定义数据范围Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:B5")' 创建一个新的嵌入式图表Set chartObj = ThisWorkbook.Sheets("Sheet1").ChartObjects.Add( _Left:=100, Width:=375, Top:=75, Height:=225)Set chart = chartObj.Chart' 使用定义的数据范围创建图表chart.SetSourceData Source:=rngchart.ChartType = xlColumnClustered ' 设置图表类型为簇状柱形图End Sub在这个示例中，我们首先定义了一个数据范围，然后使用ChartObjects.Add方法创建了一个新的嵌入式图表，并设置了其位置和大小。
VBA控件一些属性的解释
VBA每个控件都有很多属性，虽然可以按照分类排序，但由于没有中文解释，有些属性也不了解如何使用，下面是一些控件属性的解释，不全，可供参考：常规AutoLoad (Excel)打开工作簿时是否加载控件。
（如果是ActiveX 控件，则忽略。
）Enabled（表单）控件是否可以接收焦点并响应用户生成的事件。
Locked（表单）控件是否可编辑。
Name（表单）控件的名称。
Placement (Excel)控件附加到其下方单元格的方式（自由浮动、移动但不调整大小，或者移动并调整大小）。
PrintObject (Excel)控件是否可打印。
Visible（表单）控件是可见还是隐藏。
大小和位置AutoSize（表单）控件的大小是否可以自动调整以显示所有内容。
Height、Width（表单）高度或宽度（以磅为单位）。
Left、Top（表单）控件与工作表的左边缘或上边缘之间的距离。
Orientation（表单）方向为垂直还是水平。
格式设置BackColor（表单）背景色。
BackStyle（表单）背景样式（透明或不透明）。
BorderColor（表单）边框的颜色。
BorderStyle（表单）边框的类型（无或单线）。
ForeColor（表单）前景色。
Shadow (Excel)控件是否有阴影。
SpecialEffect（表单）边框的可视外观（平面、凸起、凹陷、蚀刻或凸块）。
键盘和鼠标Accelerator（表单）控件的快捷键。
MouseIcon（表单）自定义鼠标图标。
MousePointer（表单）用户将鼠标放在特定对象上时显示的指针类型（例如，标准指针、箭头、I 型）。
TakeFocusOnClick（表单）单击时控件是否获得焦点。
数据和绑定LinkedCell (Excel)链接至控件值的区域。
Value（表单）控件的内容或状态。
特定于滚动条Delay（表单）单击一次滚动条后的延迟（以毫秒为单位）。
LargeChange（表单）用户单击滚动框与任一滚动箭头之间的区域时所发生的移动量。
Excel中VBA listview、imagelist控件
Excel中VBA listview、imagelist控件1、在Listview控件中，用ColumnHeaders对象来操作列，而添加新的列可以用ColumnHeaders对象的ADD方法。
具体如下：ListView1.ColumnHeaders.Add序号，唯一的字符串标识，列标显示文字，列宽，列的内容对齐方式，所使用的图标序号。
对齐方式有：lvwColumnLeft 、lvwColumnCenter、lvwColumnRight其中第1列只能左对齐，而不能采取其他对齐方式2、Listview控件的View属性决定着它的显示的方式，具体如下：ListView1.View = lvwIcon '图标显示ListView1.View = lvwSmallIcon '小图标显示ListView1.View = lvwList '列表显示ListView1.View = lvwReport '报表显示3、SelectedItem属性即是指当前选取的记录4、清空listview控件中的内容：ListView1.ListItems.Clear显示数据表内容：Private Sub UserForm_Initialize()With ListView1 '初始化listview.ColumnHeaders.Add , , "学号", 60, lvwColumnLeft.ColumnHeaders.Add , , "姓名", 60, lvwColumnCenter.ColumnHeaders.Add , , "班级", 70, lvwColumnCenter.View = lvwReport '以报表的格式显示.LabelEdit = lvwManual '使内容不可编辑End WithDim cn As ADODB.ConnectionDim rs As ADODB.RecordsetSet cn = New ADODB.Connection '连接数据库Set rs = New ADODB.Recordsetcn.Open "provider=microsoft.jet.oledb.4.0;data source=D:/db1.mdb"rs.Open "student", cn, adOpenKeyset, adLockBatchOptimistic '数据表student Do While Not rs.EOFWith ListView1.ListItems.Add() '添加记录.Text = rs.Fields("stu_num") '添加第一列内容.SubItems(1) = rs.Fields("stu_name") '添加第二列内容.SubItems(2) = rs.Fields("stu_class") '添加第三列内容End Withrs.MoveNextLooprs.CloseSet rs = Nothingcn.CloseEnd Sub读取listview选择的内容：将选中的内容分别显示在UserForm1的文本框中With UserForm1.stu_num.Value = ListView1.SelectedItem.Text '学号.stu_name.Text = ListView1.SelectedItem.SubItems(1) '姓名.stu_class.Text = ListView1.SelectedItem.SubItems(2) '班级End With--------------------------------------------------------------------------------------------------------------------Private Sub UserForm_Initialize()'定义变量数据类型Dim ITM As ListItemListView1.ColumnHeaders.Add 1, , "QQ号", ListView1.Width / 3 '添加QQ号列ListView1.ColumnHeaders.Add 2, , "呢称", ListView1.Width / 3, lvwColumnCenter '添加呢称列ListView1.ColumnHeaders.Add 3, , "来自何处", ListView1.Width / 3 '添加来自何处列ListView1.View = lvwReport '设置显示格式为报表格式ListView1.Gridlines = True '显示网格线ListView1.SmallIcons = ImageList1 '建立控件和ImageList1关联For i = 1 To 5'添加记录Set ITM = ListView1.ListItems.Add()ITM.Text = Cells(i, 1) '添加第1列内容ITM.SubItems(1) = Cells(i, 2)ITM.SubItems(2) = Cells(i, 3)ITM.SmallIcon = i '设置添加的记录图标为ImageList1中序号为i的图标. Next iSet ITM = NothingEnd Sub--------------------------------------------------------------------------------Private Sub UserForm_Initialize()ListView1.View = lvwIcon '设置控件显示方式为图标显示ImageList1 ListView1.Icons = ImageList1 '建立和ImageList1控件的关联ListView1.ListItems.Add , , "操作员001", 2ListView1.ListItems.Add , , "操作员002", 2ListView1.ListItems.Add , , "操作员003", 2ListView1.ListItems.Add , , "主管", 1ListView1.ListItems.Add , , "开发", 1End Sub----------------------------------------------------------------------listview的应用：ListView1.FullRowSelect = True'获得选中全行TextBox1.Text = ListView1.SelectedItems(i).SubItems(1).Text总行数ListView1.ListItems.Count总列数ListView1.SelectedItems.Count - 1-------------------------------------------------------------------------Private Sub Command1_Click()当前选择行插入行赋值Dim lListItemCount As LongWith Me.ListView1' lListItemCount = .ListItems.CountWith .ListItems.Add(.SelectedItem.Index + 1, , "11").ListSubItems.Add , , "22"End WithEnd WithEnd Sub--------------------------------------------------------------------------------------- Private Sub Command2_Click()当前选择行删除行Me.ListView1.ListItems.Remove Me.ListView1.SelectedItem.Index End Sub--------------------------------------------------------------------------------------- Private Sub Form_Load()Dim lLoop As LongWith Me.ListView1.View = lvwReportWith .ColumnHeaders.Add(, , "列1").Width = 1260End WithWith .ColumnHeaders.Add(, , "列2").Width = 2500End With.FullRowSelect = TrueFor lLoop = 1 To 20With .ListItems.Add(, , lLoop).ListSubItems.Add , , lLoop * 10End WithNext lLoopEnd WithEnd Sub-------------------------------------------------------------------------- 清空数据Me.ListView1.ListItems.Clear删除数据Me.ListView1.ListItems.Remove (i)当前是否选择if Me.ListView1.ListItems(i).Selected then添加数据在选中行上ListView1.ListItems.Add(ListView1.SelectedItem.Index)listview1中导出数据For i = 1 To ListView1.ListItems.Count.Cells(i + 1, 1) = ListView1.ListItems(i)For j = 1 To 6.Cells(i + 1, j + 1) = ListView1.ListItems(i).SubItems(j)Next jNext i表标题输入For i = 2 To .ColumnHeaders.Countsh.Cells(1, i - 1) = .ColumnHeaders(i).TextNext i'添加列，列宽，左对齐lvwColumnLeft居中对齐lvwColumnCenterListView1.ColumnHeaders.Add , , "序号", ListView1.Width / 10, lvwColumnLeft'设置显示方式为报表格式ListView1.View = lvwReport'显示表格线ListView1.Gridlines = True添加记录For i = 1 To Sheets(1).[A65536].End(xlUp).RowDim ITM As ListItemSet ITM = ListView1.ListItems.Add()ITM.Text = Sheets(1).Cells(i + 1, 1)ITM.SubItems(1) = Sheets(1).Cells(i + 1, 2) 。
ExcelVBA-类代码实例集锦
1, 类动态数组控件‘2007VBA技巧‘快盘\Mytb\更新\类\‘2013-6-16类模块代码：Public Index As IntegerPrivate Sub myText_Change()Index = Mid(, 8)If frm.Controls("Textbox" & Index) <> "" Thenbel1.Caption = "控件事件：Change" & vbCrLf & _"控件名称：" & frm.Controls("Textbox" & Index).Name & vbCrLf & _"Text属性：" & frm.Controls("Textbox" & Index).TextEnd IfEnd SubPrivate Sub myText_DblClick(ByVal Cancel As MSForms.ReturnBoolean)Index = Mid(, 8)If frm.Controls("Textbox" & Index) <> "" Thenbel1.Caption = "控件事件：DblClick" & vbCrLf & _"控件名称：" & frm.Controls("Textbox" & Index).Name & vbCrLf & _"Cancel属性：" & CancelEnd IfEnd SubKeyUp事件与Change事件重迭，二者取其一Private Sub myText_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)Index = Mid(, 8)If frm.Controls("Textbox" & Index) <> "" Thenbel1.Caption = "控件事件：KeyUp" & vbCrLf & _"控件名称：" & frm.Controls("Textbox" & Index).Name & vbCrLf & _"按键值：&H" & Hex$(KeyCode)End IfEnd SubPrivate Sub myText_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)Select Case IndexCase 3bel2.Caption = "3"Case 8bel2.Caption = "8"Case 4bel2.Caption = "4"Case 9bel2.Caption = "9"Case Elsebel2.Caption = " "End SelectEnd Sub模块1代码：Public a(1 To 14) As myTextSub formshow()End Sub窗体代码：Private Sub CommandButton1_Click()Dim i&, t$For i = 1 To 14If a(i).myText.Text <> "" Thent = t & "控件名称：" & a(i) & vbTab & "Text属性：" & a(i).myText.Text & vbCrLfEnd IfNext iMsgBox tEnd SubPrivate Sub UserForm_Initialize()Dim i&For i = 1 To 14Set a(i) = New myTextSet a(i).myText = Me.Controls("Textbox" & i)Set a(i).frm = MeNext iEnd Sub工作表代码：Private Sub CommandButton1_Click()End Sub2, 复选框选择‘快盘\Mytb\更新\类\类0928..xls‘当复选框选择到7个时，其它的复选框不能再选择。
VBA之单元格选择方法及可用属性
VBA之单元格选择方法及可用属性在VBA中，我们可以使用Range对象来选择和操作单元格。
Range对象代表一个或多个相邻的单元格、行、列或是一个单独的单元格。
在下面，我将介绍一些常用的单元格选择方法和可用的属性。
1.选择单个单元格要选择一个单独的单元格，可以使用Cells或Range对象的Item属性。
例如，下面的代码选择工作表Sheet1中的A1单元格：```Dim rng As RangeSet rng = Sheet1.Cells(1, 1)```或者可以使用Range对象的字符串表示法：```Dim rng As RangeSet rng = Sheet1.Range("A1")```2.选择一片区域要选择一个连续的单元格区域，可以使用Range对象的Resize方法。
例如，下面的代码选择工作表Sheet1中的A1到C3区域：```Dim rng As RangeSet rng = Sheet1.Range("A1").Resize(3, 3)```3.选择整行或整列要选择一整行或一整列，可以使用Range对象的EntireRow或EntireColumn属性。
例如，下面的代码选择工作表Sheet1中的第1行和第2列：```Dim rng As RangeSet rng = Sheet1.Rows(1)Set rng = Sheet1.Columns(2)```4.选择多个区域要选择多个不相邻的区域，可以使用Union函数。
例如，下面的代码选择工作表Sheet1中的A1到C3区域和E1到E3区域：```Dim rng1 As RangeDim rng2 As RangeSet rng1 = Sheet1.Range("A1").Resize(3, 3)Set rng2 = Sheet1.Range("E1").Resize(3, 1)Set rng = Union(rng1, rng2)```在选择了单元格或区域后，可以使用以下属性来操作这些对象：1. Value属性Value属性用于获取或设置单元格或区域的值。
Excel2007VBA参考大全ver0.0 读书笔记
目录第一章：Excel VBA基础 (4)1录制宏： (4)2用户自定义函数 (4)3 Excel对象模型 (4)集合 (5)属性 (5)方法 (5)事件 (5)4 VBA语言 (5)基本的输入输出 (5)调用函数和子过程 (5)括号和参数列表 (6)变量声明 (6)变量的作用域和生存期 (7)变量类型 (7)对象变量 (7)做出判断 (7)循环 (9)数组 (9)运行时错误处理 (10)第二章：Application对象 (10)1全局： (10)2 Active属性： (10)3 显示警告： (10)4 屏幕刷新： (10)5 Application的Evaluate方法: (10)6 InputBox: (11)7 状态栏： (11)8 SendKeys： (11)9 OnTime： (12)10 OnKey： (12)11 工作表函数： (12)12 Caller： (12)第三章：工作薄和工作表 (12)1 Workbooks集合： (12)添加Workbook对象 (13)从路径中获取文件名 (13)在相同目录中的文件 (13)覆盖现有的工作薄 (13)保存改变 (14)2 Sheets集合: (14)工作表（Worksheet） (14)工作表的复制和移动 (14)组合工作表 (14)3 Windows对象： (15)第四章：使用单元格区域 (15)1 Range对象的Activate方法和Select方法： (15)2 Range属性： (15)活动工作表中的单元格区域 (16)非活动工作表中的单元格区域 (16)Range对象的Range属性 (16)Cells属性 (17)Range对象的Item属性 (17)在Range中使用Cells (17)关于Range对象的Cells属性 (18)单个参数的单元格区域引用 (18)3 Offset 属性： (18)4 Resize属性： (18)5 SpecialCells方法： (18)确定最后一个单元格 (19)删除数字 (19)6 CurrentRegion属性 (19)7 End属性： (19)8 单元格区域求和： (19)9 Columns属性和Rows属性： (19)10 Count属性 (19)11 Areas属性 (20)12 Areas集合 (21)13 Union方法和Intersect方法： (21)14 空单元格： (21)第五章：使用名称 (21)1 Name对象 (21)2 Names属性 (21)s 属性 (22)s属性 (22)s属性 (22)3 Name对象的Name属性： (23)4 命名单元格区域 (23)创建全局名称 (23)创建局部名称： (23)5 在名称中存储值 (23)6 存储数组 (24)7 隐藏名字： (24)8 处理命名的单元格区域： (24)9 搜索名称： (24)第六章：数据列表 (25)1 结构化数据： (25)2 排序单元格区域 (25)3 创建表 (25)4 排序表 (25)5 自动筛选 (25)第七章：数据透视表 (25)第八章：图表 (25)第九章：事件过程 (25)VBA是一种面向对象的程序设计语言，与Visual Basic程序设计语言在结构化和处理对象方面相同。
VBA之单元格选择方法及其可用属性
VBA之单元格选择方法及其可用属性VBA是Microsoft Visual Basic for Applications的缩写，用于编写Excel中的宏代码。
在VBA中，可以使用一些方法和属性来选择单元格，进行数据操作和处理。
下面是一些常用的单元格选择方法及其可用属性：1. Range方法：- Range方法用于选择单个单元格或一组单元格，语法为Range("A1")或Range("A1:B10")。
该方法返回一个Range对象，可以对返回的Range对象进行操作。
-例子：```vbaRange("A1").Value = "Hello World"```2. Cells方法：- Cells方法用于选择一个指定行和列的单元格，语法为Cells(row, column)，其中row和column是单元格的行号和列号。
该方法返回一个Range对象。
-例子：```vbaCells(1, 1).Value = "Hello World"```3. EntireRow和EntireColumn属性：- EntireRow属性用于选择一个单元格所在的整行，语法为Range.EntireRow。
该属性返回一个Range对象。
- EntireColumn属性用于选择一个单元格所在的整列，语法为Range.EntireColumn。
该属性返回一个Range对象。
-例子：```vbaRange("A1").EntireRow.Interior.Color = RGB(255, 0, 0) ' 将A1单元格所在行的背景色设置为红色Range("A1").EntireColumn.Font.Bold = True ' 将A1单元格所在列的字体设置为粗体```4. Offset属性：- Offset属性用于选择相对于指定单元格的偏移单元格，语法为Range.Offset(rowOffset, columnOffset)，其中rowOffset和columnOffset是行偏移和列偏移量。
VBA窗体控件属性全释
目录11.01、窗体(FORM)的常用属性1点击链接查看21.02、标签控件(Lable)的常用属性2点击链接查看31.03、文本框控件(TextBox)的常用属性点击链接查看41.04、框架控件(Frame)的常用属性点击链接查看51.05、命令按钮控件(CommandButton)的常用属性点击链接查看61.06、复选框控件(CheckBox)的常用属性点击链接查看71.07、单选钮控件(OptionButton)的常用属性点击链接查看81.08、组合框控件(ComboBox)常用属性点击链接查看91.09、列表框控件(ListBox)的常用属性点击链接查看101.10水平滚动(HscrollBar)和垂直滚动(VSc属性点击链接查看111.11、定时器控件的常用属性点击链接查看121.12、文件系统控件的常用属性点击链接查看131.13、形状控件(Shape)常用属性点击链接查看141.14、直线控件(Ling)的常用属性点击链接查看151.15、图像控件(Image)的常用属性点击链接查看161.16、图片框控件(PictureBox)的常用属性点击链接查看171.17、数据控件(Data)的常用属性点击链接查看181.18、OLE容器控件(OLE)的常用属性点击链接查看191.19、菜单控件的常用属性点击链接查看202.01、Adodc控件的常用属性点击链接查看212.02、电影(ActiveMovie)控件的常用属性点击链接查看222.03、动画(Animation)控件的常用属性点击链接查看232.04、公用对话框控件(CommonDialog)控件属性点击链接查看242.05、数据组合框(DataCombo)控件的常用属性点击链接查看252.06、数据型电子表格控件(DataGrid)的常用属性点击链接查看262.07、数据列表(DataList) 控件的常用属性点击链接查看272.08、DTPicker控件的常用属性点击链接查看282.09、平面滚动条控件(FlatScrollBar)点击链接查看292.10、图像组合框(ImageCombo)控件的常用属性点击链接查看302.11、图像列表控件(ImageList)的常用属性点击链接查看312.12、Inet控件的常用属性点击链接查看322.13、列表视图控件(ListView)的常用属性点击链接查看332.14、MAPIMessages控件的常用属性点击链接查看342.15、MAPISession控件的常用属性点击链接查看352.16、MaskEdBox控件的常用属性点击链接查看362.17、多媒体(MMControl)控件点击链接查看372.18、月视图(MonthView)控件的常用属性点击链接查看382.19、图表控件(MSChard)的常用属性点击链接查看392.20、MSComm的常用属性点击链接查看402.21、电子表格控件(MSFlexGrid)的常用属性点击链接查看412.22、层次型电子表格控件(MSHFlexGrid)点击链接查看422.23、MSRDC控件的常用属性点击链接查看432.24、PictureClip控件的常用属性点击链接查看442.25、进度栏(ProgressBar)控件的常用属性点击链接查看452.26、RichTextBox控件的常用属性点击链接查看462.27、滑动块(Slider)控件的常用属性点击链接查看472.28、选项卡(SSTab)的常用属性点击链接查看482.29、状态栏(StatuaBar)控件的常用属性点击链接查看492.30、SysInfo控件的常用属性点击链接查看502.32、工具栏(ToolBar)控件的常用属性点击链接查看512.33、树状视图控件(TreeView)的常用属性点击链接查看522.34、UpDown控件的常用属性点击链接查看532.35、Winsock控件的常用属性点击链接查看。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
EXCEL2007VBA控件属性大全目录1.01窗体(FORM)的常用属性 (1)1.02、标签控件(Lable)的常用属性 (5)1.03、文本框控件(TextBox)的常用属性 (7)1.04、框架控件(Frame)的常用属性 (10)1.05、命令按钮控件(CommandButton)的常用属性 (11)1.06、复选框控件(CheckBox)的常用属性 (13)1.07、单选钮控件(OptionButton)的常用属性 (15)1.08、组合框控件(ComboBox)常用属性 (17)1.09、列表框控件(ListBox)的常用属性 (19)1.11、定时器控件的常用属性 (22)1.13、形状控件(Shape)常用属性 (22)1.15、图像控件(Image)的常用属性 (23)2.04、公用对话框控件(CommonDialog)控件的常用属性 (25)1.16、图片框控件(PictureBox)的常用属性 (27)1.01窗体(FORM)的常用属性属性说明(Name)窗体的名称ActiveControl返回焦点所在的控件,该属性设计阶段不可用,运行时只读。
Appearance 外观效果,取值为：0 平面1 3D(立体)AutoRedraw 是否自动刷新或重画窗体上所有图形[获得或设置从绘图(graphics)方法到一个持久性位图的输出],取值为：TrueFalseBackColor背景颜色,可从弹出的调色板选择。
BorderStyle 设置边界类型,取值为：0 None(无边界框架)1 FixedSingle(窗口大小固定不变的单线框架)2 Sizable(窗口大小可变的标准双线框架)3 FixedDialog(窗口大小固定的对话框窗体)4 FixedToolWindow(窗口大小固定的工具箱窗体)5 Sizable ToolWindow(窗口大小可变的工具箱窗体)Caption窗体的标题ClipControls 决定Paint事件的graphics方法是重画整个对象,还是重画新显示的区域。
取值为：True或FalseControlBox 是或有控制框, 取值为：True 有False 无DrawMode 设定窗体上绘图(graphics方法),Shape,Line等控件的输出外观,有16种可选：1 黑色2 非或笔,设置值15的反相3 与非笔,背景色以及画笔反相二者共有颜色的组合4 非复制笔,设置值13的反相5 与笔非,画笔以及显示色反相二者共有颜色的组合6 反相,显示颜色反相7 异或笔,画笔颜色以及显示颜色的异或8 非与笔,设置值9的反相9 与笔,画笔以及显示色二者共有颜色的组合10 非异或笔,设置值7的反相11 无操作,该设置实际上是不画图12 或非笔,显示颜色与画笔颜色反相的组合13 复制笔,用ForeColor属性指定的颜色,此为默认值14 或笔非,画笔颜色与显示颜色反相的组合15 或笔,画笔颜色与显示颜色的组合16 白色DrawStyle 设定绘图相关方法使用的直线样式, 有7种可选：0 实线,此为默认值1 虚线2 点线3 单点划线4 双点划线5 无线6 内部实线DrawWidth设定绘图相关方法使用的直线宽度Enabled 是或把鼠标或键盘事件发送到窗体,取值为：True 可用False 不可用FillColor填充颜色, 可从弹出的调色板选择。
FillStyle 填充样式, 有8种可选：0 全部填充1 透明,此为默认值3 竖直直线4 上斜对角线5 下斜对角线6 十字线7 交叉对角线Font字型,可从弹出的对话框选择字体,大小和风格FontTransparent 输出数据是否允许重叠(获得或设置一个值,决定是否显示窗体,打印机或PictureBox上的背景文本/图形)。
取值为：True或FalseForeColor前景颜色,可从弹出的调色板选择。
HasDC 决定是否为该控件分配了唯一的显示上下文。
取值为：True或FalseHeight窗体的高度HelpContextID指定一个对象的缺省帮助文件上下文标识符Icon为窗体设计图标,该图标位于标题栏的左端KeyPrevier 获得或设置是否在激活对象的上的控件的键盘事件之前,优先激活对象键盘事件。
取值为：True或FalseLeft窗体距屏幕左边界的距离LinkMode 获得或设置用于DDE会话的链接类型并激活连接,取值为：0 None1 SourceLinkTopic获得或设置目标控件的源应用程序和主题MaxButton 窗体右上角最大化按钮是否显示,运行时只读, 取值为：True 显示False 不显示MDIChild 是否为MDI窗体的子窗体, 取值为：True 为MDI窗体的子窗体False 否MinButton 窗体右上角最小化按钮是否显示,运行时只读, 取值为：True 显示False 不显示MouseIcon MousePointer=99时,设定一个自定义的鼠标图标Moveable是否可以移动窗体, 取值为：False 不可以移动NegotiateMenus 决定是否将对象的菜单合并到该窗体的菜单栏上。
取值为：True或FalseOLEDropMode 获得或设置该对象是否能作为一个OLE放下目标, 取值为：0 None(无)1 Manual(手动)Palette 获得或设置一个图象,包含了当PaletteMode被设置为Custom时用于调色板的对象。
PaletteMode 获得或设置一个值,决定对于对象的控件使用哪个调色板。
取值为：0 Halftone1 UseZOrder2 CustomPicture窗体背景图片RightT oLeft 文本书写是否自左向右。
取值为：TrueFalse 自右向左ScaleHeight自定义坐标系的纵坐标轴的高度ScaleLeft自定义坐标系的左边界起点的横坐标ScaleMode 获得或设置一个值,指示当使用graphics方法或可定位的控件时,自定义坐标系的单位, 有8种可选：0 自定义1 表示单位为twip(缇),每英寸=1440缇,每厘米=567缇2 表示单位为point(磅) ,每英寸=72磅,每磅=20缇3 表示单位为像素,是监视器或打印机分辨率的最小单位4 表示单位为字符,每个水平单位为120缇,每个垂直单位为240缇5 表示单位为in(英寸)6 表示单位为mm(毫米)7 表示单位为cm(厘米)ScaleTop自定义坐标系的上边界起点的纵坐标ScaleWidth自定义坐标系的横坐标轴的宽度ShowInTaskbar 窗体或MDI窗体是否出现在Windows95的任务栏。
取值为：True 出现False 不出现StartUpPosition 窗体第一次出现的位置, 有4种可选：0 没有指定初始位置1 设定在所属项目的中央2 设置在屏幕的中央3 设置在屏幕的左上角Tag存储程序所需的附加数据T op窗体距屏幕顶部边界的距离Visible 窗体是否可见, 取值为：True 该对象可见False 该对象不可见WhatsThisButton 获得或设置是否在一个窗体或MDI窗体的标题上显示"这是什么"按钮。
取值为：True或FalseWhatsThisHelp 获得或设置是否在上下文相关帮助中, 使用Windows95帮助或主帮助窗口提供的"这是什么"弹出菜单。
取值为：True或FalseWidth窗体的宽度WindowStart 获得或设置一个窗体窗口运行时的可见状态, 取值为：0 窗体正常状态1 窗体最小状态2 窗体最大状态1.02、标签控件(Lable)的常用属性属性说明(Name)标签控件的名称Alignment 设置Caption属性文本的对齐方式, 取值为：0 左对齐1 右对齐2 中间对齐Appearance 是否用立体效果绘制,取值为：0 平面1 3D(立体)AutoSize 控件对象的大小是否随标题内容的大小自动调整,取值为：True 是False 否BackColor设置背景颜色,可从弹出的调色板选择。
BackStyle 设置背景样式,取值为：0 Transparent(透明)1 Opaque(不透明)BorderStyle设置边界样式,取值为：0 None(无边界线)1 FixedSingle(固定单线框)Caption标签控件的标题DataField获得或设置一个值,将控件绑定到当前记录的一个字段DataFormat返回DataFormat对象,用于该部件的可绑定性(打开属性页,选择格式类型) DataMember获得或设置一个值,为数据连接描述数据成员DataSource设置一个数值,指出数据控件通过它将当前控件绑定到数据库DragIcon该对象在拖动过程中鼠标的图标DragMode 该对象的拖动模式,取值为：0 Manual(手动)1 Automatic(自动)Enabled 用于设定是或对事件产生响应,取值为：True 可用False 不可用,在执行程序时,该对象用灰色显示,并且不响应任何事件Font字型,可从弹出的对话框选择字体,大小和风格ForeColor前景颜色,可从弹出的调色板选择。
Height标签控件的高度Index在对象数组中的编号Left距离容器左边框的距离LinkItem 获得或设置传递到目标控件的数据,该目标控件正在与另一个应用程序进行DDE 会话LinkMode 获得或设置用于DDE会话的链接类型并激活连接,取值为：0 None(无)1 AutoMatic(自动)2 Manual(手动)3 NotifyLinkTimeout获得或设置控件等待响应DDE消息的时间LinkTopic获得或设置目标控件的源应用程序和主题MouseIcon MousePointer=99时,设定一个自定义的鼠标图标OLEDropMode 获得或设置该对象是否能作为一个OLE放下目标,取值为：0 None(无)1 Manual(手动)RightT oLeft 文本书写是否自左向右。
取值为：TrueFalse 自右向左TabIndex获得或设置此对象在父窗体的编号(父窗体中对象响应Tab键的顺序) Tag存储程序所需的附加数据ToolTipText设置该对象的提示行Top距容器顶部边界的距离UseMnemonic 设置此对象的标题字符"&"后的是否做为快捷键。
取值为：True 是False 否Visible 设置此对象的可见性, 取值为：True 该对象可见False 该对象不可见WhatsThisHelpID获得或设置与对象相关联的上下文号Width设置该对象的宽度WordWrap 获得或设置一个值,决定控件是否扩大以显示标题文字。