Question

我目前正在创建一个小型用户界面。它的一部分是一个文本条目，所以我想使用多个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

Answer 1

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

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

1 个答案: