如何使用Visual Basic创buildExcel控件（combobox等）

我正在创build一个项目来创build和发送由ASP.NET / Visual Basic Web应用程序创build的电子表格。

这个电子表格的顶部是一个大单元格，其中包含一个下拉列表，两个文本框，几个标签和一个checkbox。

如何使用Visual Basic创build和组织这些控件？ 电子表格正在物理上创build，我可以在此刻操作单元格，但是我不知道如何专门创build这些控件。

Answer 1

如果你想以编程的方式创build这些控件，那么这段代码应该让你走，基本上添加一个控件，定位它，并设置你需要的属性。

Sub addControls() With Sheets("Sheet1") .Columns(1).ColumnWidth = 60 .Rows(1).RowHeight = 150 'label Set addedLbl = .OLEObjects.Add(ClassType:="Forms.Label.1") With addedLbl .Left = 180 .Top = 25 .Width = 90 .Object.BackColor = &HC0C0FF .Object.Caption = "A Coloured Label" End With 'combobox Set addedCmbo = .OLEObjects.Add(ClassType:="Forms.Combobox.1") With addedCmbo .Left = 180 .Top = 75 .Width = 90 .Height = 20 End With 'checkbox Set addedChkBox = .OLEObjects.Add(ClassType:="Forms.CheckBox.1") With addedChkBox .Left = 25 .Top = 25 .Width = 90 .Height = 20 .Object.Caption = "A Checkbox" .Object.SpecialEffect = 2 .Object.Value = False End With 'textbox Set addedTextBox = .OLEObjects.Add(ClassType:="Forms.TextBox.1") With addedTextBox .Left = 25 .Top = 75 .Width = 90 .Height = 50 .Object.WordWrap = True .Object.MultiLine = True .Object.SpecialEffect = 1 .Object.Text = "Some wrapped text in this raised textbox." End With End With End Sub 

如果要手动添加它们，请select“开发人员”选项卡，然后在“控件”组中select“插入”。 然后，您可以将控件添加到工作表。 我已经使用了ActiveX控件。 然后右键单击该控件以列出其属性。