サイズVBA ActiveXテキストボックス（セル付き）

Question

現在、私は小さなユーザーインターフェイスを作成中です。その一部はテキストエントリなので、複数のActiveX texboxを使用したいと思います。複数の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 

・ホープ、このことができます。ここでは、より

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