Excel：マクロでテキストボックスを配置

Question

Excelファイルにコマンドボタンがあり、特定の場所に新しいテキストボックスが追加されています。今私は問題がある。前のテキストボックスの下に自動的にテキストボックスを追加したいと思います。私のスクリーンショットのように。私は手動で "Testeintrag"を作成し、上に+を押すと "Titelname hier eingeben"が作成されます。私は

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

を使って手動で箱を置きしかし、私は別のものを追加するとき、それはちょうど私の前の1以上が、私はそれはように私の前の1の下で、次のいずれかを作成し、ことをしたいと思います。これどうやってするの？私の全体のマクロザッツ

：

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

EDIT2：新しい要件に応じて更新されたコード。

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

この方法は私にとっては複雑だったので、私は簡単な方法を作りました。

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 

私はセルを選択し、その「追加」ボタンを押す必要があります。次に、アクティブセルがある場所にサイズ190x25のテキストボックスを追加します。