Office-Fragen.de

Hallo in die Runde, ich möchte auf einem Tabellenblatt ein Textfeld einfügen und der Text nachträglich verändert werden. Wie ist das Textfeld zu erreichen?

Code:
Sub Makro1()

    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 60, 57, 180, 84.75) _

        .Select

    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "Textfeld1"

End Sub

"Selection" muss mit dem Pfad des Textfeldes ersetzt werden....

Danke
Stefan

(15.06.2022, 10:20)StefKe schrieb: [ -> ]Wie ist das Textfeld zu erreichen?

schau mal dort
https://docs.microsoft.com/de-de/office/...addtextbox

Danke für den Link, ich hatte es völlig ausgeblendet, dass sich die Box auch benennen läßt und unter diesem Namen erreichbar ist...

Code:
Sub Makro1()

    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 60, 57, 180, 84.75).Name = "irgendwas"

End Sub

Danke
Stefan

StefKe

ralf_b

StefKe