Sie müssen ein Eingabefeld verwenden, um den Wert (Zeichenfolge) abzurufen, dann zu den Folien / Formen zu navigieren und den Wert auf die Eingabefeldzeichenfolge zu setzen:
Sub test() Dim x As String x = InputBox("What is your name?", Name) ActivePresentation.Slides(1).Shapes.Title.TextFrame.TextRange = x End Sub
Es ist nicht so intuitiv wie Excel, ich würde hier anfangen
Wenn Sie mutig sind, versuchen Sie es mit einem Benutzerformular