FAQ Powerpoint – Textfelder per Message Box füllen
- Ramftel
- 20 Sep, 2016
Folienmaster – Textfelder per Message Box füllen
Problem
Das Beschriften eines Textfeldes ist recht einfach. Anklicken und schreiben, was ist aber nun, wenn wir die Textbox per VBA beschriften wollen.
Lösung
Eine Möglichkeit dies zu realisieren ist die Verwendung einer Messagebox, hier dazu ein kleines Codebeispiel:
Sub EinEingabedialog()
Dim strMeldung As String, strTitel As String
Dim strVorschlag As String, strAntwort As String
strMeldung = "Geben Sie den Projektnamen ein"
strTitel = "RAMSES EDV Beratung"
strVorschlag = "DB - Projekt XYZ"
strAntwort = InputBox(strMeldung, strTitel, strVorschlag)
MsgBox strAntwort
ActivePresentation.Slides(1).Shapes("Subtitel").TextFrame.TextRange.Text = strAntwort
End Sub