Größe VBA ActiveX-Textfeld mit einer Zelle

Question

Ich erstelle derzeit eine kleine Benutzeroberfläche. Ein Teil davon ist ein Texteintrag, daher möchte ich mehrere ActiveX-Texboxen verwenden, die mit/über bestimmten Zellen zusammengeführt werden sollen.

Ich habe Mühe, eine Lösung für dieses Problem und mit der Bearbeitung der Boxen richtig zu finden.

Hilfe wird sehr geschätzt. Vielen Dank im Voraus!

edit: fand ich diesen Code, aber es scheint nicht zu funktionieren:

dies hilft

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 

Hoffnung. Hier ist die MS Link, der mehr

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