Textfeld - Text eintragen

Textfeld - Text eintragen - Druckversion

+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: Textfeld - Text eintragen (/thread-28292.html)

Textfeld - Text eintragen - StefKe - 15.06.2022

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

RE: Textfeld - Text eintragen - ralf_b - 16.06.2022

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

schau mal dort
https://docs.microsoft.com/de-de/office/vba/api/excel.shapes.addtextbox

RE: Textfeld - Text eintragen - StefKe - 16.06.2022

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