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