使用单元格调整VBA ActiveX文本框大小

时间:2016-04-07 11:30:16

标签: vba excel-2010 activex

我目前正在创建一个小型用户界面。它的一部分是一个文本条目,所以我想使用多个ActiveX texbox,它们应该与特定单元格合并在一起。

我很难找到解决该问题的方法并正确编辑方框。

非常感谢帮助。 提前谢谢!

编辑: 我发现了这段代码,但它似乎不起作用:

With Sheets("name of the sheet")
  Set Rng = .Range(.TextBox1.LinkedCell) ' Linked that cell in activebox properties

 .TextBox1.Width = Rng.Width
 .TextBox1.Height = Rng.Height
 End With

1 个答案:

答案 0 :(得分:0)

Dim a As OLEObject

Set a = ActiveSheet.OLEObjects("Textbox1")

a.Width = Range(ActiveSheet.OLEObjects(1).Object.Value).Width

希望这会有所帮助。这是MS链接,它将解释更多

https://msdn.microsoft.com/en-us/library/office/ff840244.aspx