News

FAQ Powerpoint – Textfelder per Message Box füllen

Category:

FAQ, Powerpoint

0

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

Tags: ,

Leave a Reply

Diese Website verwendet Akismet, um Spam zu reduzieren. Erfahre mehr darüber, wie deine Kommentardaten verarbeitet werden.