在Excel中绘制ActiveX控件：解决文本编辑框定位问题

目录

引言

问题描述

解决方案

方法1：使用Range对象的Left和Top属性

方法2：使用相对位置

方法3：使用单元格作为参考

结论

代码实现

---

​​​​​​​引言

在Excel中添加ActiveX控件，如按钮和文本编辑框，可以极大地增强工作表的交互性。然而，定位这些控件可能会遇到一些挑战。在本文中，我将分享我如何通过调整代码解决了文本编辑框始终定位在左上角的问题。

问题描述

在尝试将ActiveX控件添加到Excel工作表时，我发现按钮可以成功定位到指定位置，但文本编辑框始终固定在左上角。这个问题让我头疼了好几天，直到我找到了解决方案。

解决方案

经过大量资料查找和尝试，我找到了三种不同的方法来定位文本编辑框。以下是每种方法的测试代码和结果：

方法1：使用Range对象的Left和Top属性

这种方法直接使用Range对象的Left和Top属性来设置文本编辑框的位置。

textbox1 = ws.OLEObjects().Add(ClassType="Forms.TextBox.1", Link=False, DisplayAsIcon=False,
                Left=left, Top=top, Width=100, Height=20)

然而，这种方法并没有奏效，Textbox1的位置仍然显示为Left: 0.0, Top: 0.0。

方法2：使用相对位置

这种方法尝试通过在Left属性上加上一个偏移量来定位文本编辑框。

textbox2 = ws.OLEObjects().Add(ClassType="Forms.TextBox.1", Link=False, DisplayAsIcon=False,
                Left=left + 120, Top=top, Width=100, Height=20)