In diesem Beispiel wird in myDocument ein Textfeld mit dem Text "Testfeld" eingefügt.
Set myDocument = Worksheets(1) myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _ 100, 100, 200, 50) _ .TextFrame.Characters.Text = "Test Box"