DropDownLines 属性

优质

小牛编辑

127浏览

2023-12-01

全部显示

返回或设置指定命令栏组合框控件中的行数。该组合框控件必须为自定义控件并且是下拉式列表框或组合框。Long 类型，可读写。

注意如果试图为编辑框或内置的组合框控件设置该属性，则会出现错误。

说明

如果将该属性设置为 0（零），那么控件中的行数将取决于列表中的项目数。

示例

本示例可实现的功能为：在命令栏“Custom”中添加一个组合框控件，然后在该组合框列表中添加两个选项。本示例同时设置列表的行数，组合框的宽度，并将该组合框的默认值设置为空。

Set myBar = CommandBars("Custom")
Set myControl = myBar.Controls.Add(Type:=msoControlComboBox, Id:=1)
With myControl
 .AddItem Text:="First Item", Index:=1
 .AddItem "Second Item", 2
 .DropDownLines = 3
 .DropDownWidth = 75
 .ListHeaderCount = 0
End With