Boyut Bir hücreye sahip VBA ActiveX metin kutusu

Question

Şu anda küçük bir kullanıcı arayüzü oluşturuyorum. Bunun bir kısmı bir metin girdisidir, bu yüzden belirli hücrelerin üstünde/üstünde birleşmesi gereken birden çok ActiveX texbox kullanmak istiyorum.

Bu sorun için ve kutuları doğru şekilde düzenlemek için bir çözüm bulmaya çalışıyorum.

Yardımı çok takdir edilmektedir. Şimdiden teşekkürler!

düzenlemek

: Bu kodu bulundu, ancak çalışmak için görünmüyor: Bu yardımcı olur

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 

Umut. İşte daha

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