如何将动态创建的ComboBox嵌入到Excel单个单元格中?
问题:嵌入单元格的ComboBox创建异常
我正尝试创建一个嵌入单元格的ComboBox。以下代码会查找第一个可用行(本例中为第12行)并偏移至对应列:
Dim ctop#, cleft#, cht#, cwdth# Dim ComboBox As OLEObject ctop = Sheets("Sheet1").Range("O35").End(xlUp).Offset(0, 5).Top cleft = Sheets("Sheet1").Range("O35").End(xlUp).Offset(0, 5).Left cht = Sheets("Sheet1").Range("O35").End(xlUp).Offset(0, 5).Height cwdth = Sheets("Sheet1").Range("O35").End(xlUp).Offset(0, 5).Width With ws_new Set ComboBox = .OLEObjects.Add(ClassType:="Forms.ComboBox.1", Left:=cleft, Top:=ctop, Width:=cwdth, Height:=cht) End With ComboBox.Placement = xlMoveAndSize
但这段代码创建的ComboBox位于Q12与R12之间,并未嵌入到单个单元格中。该控件虽会随行列调整大小,但未绑定到单个单元格。
截图说明:截图显示创建的ComboBox跨Q12和R12单元格,未完全嵌入单个单元格内。
内容的提问来源于stack exchange,提问作者vaemps
相关产品推荐
相关产品推荐

