vba - 特定の範囲を埋めるテキストボックスをExcelで作成するにはどうすればよいですか?

Question

vbaを使用して、それを追加して、A2:H8たとえばのように特定の範囲に収まるようにしたいと思います。それは可能ですか？

別の方法として、一連のセルを結合してテキスト ボックスを作成することもできますが、ユーザーが必要に応じて簡単に移動できるようにしたいと考えていました。

現在、私は一般的な追加機能を使用しているだけで、必要な領域でそれを取得しようとしています。ただし、ユーザーの入力によってページ全体が変更されるため、ユーザーの操作によっては別の場所に配置する必要があります。それを特定の範囲に結び付ければ、ユーザーが何をしようとも、常に完璧な場所にある可能性があります。

ここに私の現在の小さなコードスニペットがあります:

Sub Macro1()

    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 153.75, 88.5, 509.25, 272.25).Select

    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "hello hello hello" & Chr(13) & "" & Chr(13) & "hello" & Chr(13) & "hi" & Chr(13) & "" & Chr(13) & "hello"

    Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 18).ParagraphFormat.FirstLineIndent = 0
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 18).Font
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1
        .Fill.ForeColor.TintAndShade = 0
        .Fill.ForeColor.Brightness = 0
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 11
        .Name = "+mn-lt"
    End With
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters(19, 1).ParagraphFormat.FirstLineIndent = 0
End Sub