Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
Textfeld - Text eintragen
#1
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
Zitieren
#2
(15.06.2022, 10:20)StefKe schrieb: Wie ist das Textfeld zu erreichen?
 schau mal dort 
https://docs.microsoft.com/de-de/office/...addtextbox
Zitieren
#3
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
Zitieren


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste




Hinweis auf Angebot Excel-Inside - lang    Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden um dein Anliegen zu besprechen.
   Gerne erstellen wir auf dieser Basis ein Angebot.
   Sende deine Anfrage einfach
per E-Mail an anfrage@excel-inside.de


Powerd and supported by Excel-InsideSolutions