Excel：通过macros定位文本框

我的Excel文件中有一个命令button，它在特定的位置添加了一个新的文本框。 现在我有一个问题。 我想在前一个自动添加文本框。 就像我的截图一样。 我手动创build了“Testeintrag”，当我点击顶部的“+”时，就会创build“Titelname hier eingeben”。 我手动放置了盒子

ActiveSheet.Shapes.AddTextbox(msoTextOrientationUpward, 932, 270, 27, _ 150).Select 

但是当我添加另一个时，它刚好超过了我之前的那个，但是我希望它会创build下一个下一个，等等。 我怎样才能做到这一点？

那是我的整个macros观：

 Private Sub CommandButton1_Click() ActiveSheet.Shapes.AddTextbox(msoTextOrientationUpward, 932, 270, 27, _ 150).Select Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _ "Titelname hier eingeben" End Sub 

Answer 1

编辑2：根据新的要求更新代码。

 Option Explicit Sub addayetnothertextbox() Dim mybox Dim top, left, height, width, margin margin = 20 With ThisWorkbook.ActiveSheet.Shapes left = .Item(.Count).left top = .Item(.Count).top + .Item(.Count - 1).height + margin width = .Item(.Count).width height = .Item(.Count).height Set mybox = .addtextbox(msoTextOrientationUpward, left, top, width, height) End With End Sub 

Answer 2

由于这个方法对我来说很复杂，我创build了一个简单的select。

  Private Sub CommandButton1_Click() Dim Left As Double, Top As Double With ActiveSheet Left = ActiveCell.Left Top = ActiveCell.Top ActiveSheet.Shapes.AddTextbox(msoTextOrientationUpward, Left, Top, 27, _ 190).Select Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _ "Titelname hier eingeben" End With End Sub 

所以我必须select一个单元格，然后点击“添加”button。 然后在活动单元格的位置添加一个大小为190×25的文本框。