我正在用Visual Basic通过Microsoft Excel创建一个程序,在这个程序中我可以将应用程序中的所有信息输入到excel中。每一行都是唯一的,并且具有一个以编程方式创建和放置的下拉列表控件(参见下面的代码)。
我遇到的问题是如何正确地将控件放置在其中一列的每个单元格中。
我已经阅读了网上的文档,并看到了其他问题的例子,但似乎没有一个适合我的情况。我必须一直猜测-n-检查AddFormControl函数的x和y值,才能以某种程度上正确的方式放置控件。
代码:
For y = 1 To UBound(array) + 1
Set lb = Sheet1.Shapes.AddFormControl(xlDropDown, 274, 32 + (19 * y), 77, 19)
With lb
.ControlFormat.DropDownLines = 3
.ControlFormat.AddItem "Select a value", 1
.ControlFormat.AddItem "Auto", 2
.ControlFormat.AddItem "Default", 3
.ControlFormat.Value = 1
End With
Next y我已经计算了所有行和列的宽度和高度,以便我可以将控件放置在正确的位置,但它们是偏移的,其中一些比其他的更多。
上面的274个x值是我希望它在excel工作表上的x轴上排到点上的线,而不是点之前的列加起来有多宽。y-value 77也是如此。
这个问题最有效的解决方案是什么?
发布于 2019-01-11 05:56:25
实际上,您可以使用Range.Top和Range.Left将From控件放置在您想要的位置,它们将与所涉及的单元格完美地对齐。这是一种动态地大量添加它们的好方法。
https://stackoverflow.com/questions/54137432
复制相似问题