Wie arbeite ich mit Nachrichten- und Eingabefeldern in PowerPoint VBA?

Beim Durchgehen der Kommentare habe ich ein paar Leserfragen zur Arbeit mit Visual Basic-Eingabe- und Nachrichtenfeldern in PowerPoint gesehen.

In diesem Lernprogramm vermitteln wir ein sehr grundlegendes Grundwissen, das Ihnen hilft, diese Funktionen bei der Automatisierung Ihrer Präsentationserstellung zu nutzen.

Einrichten des Entwickler-Tabs

Zunächst müssen wir die Entwicklerumgebung für PowerPoint aktivieren. Befolgen Sie dieses Tutorial, um Ihre Registerkarte "Entwicklung" einzurichten.

Gehen Sie in PowerPoint zum Entwicklermenü und klicken Sie auf Visual Basic.

Klicken Sie im Projektbaum mit der rechten Maustaste auf Ihre Präsentation, klicken Sie auf Einfügen und wählen Sie dann Modul aus. Ein neues VBA-Modul wird erstellt, das ist der Ort, an dem Sie Ihren Code schreiben.

Nachrichtenfelder in PowerPoint

Meldungsfelder sind irgendwie selbsterklärend, ihr Ziel ist es, dem Endbenutzer einige nützliche Informationen anzuzeigen. Schreiben Sie den folgenden Code in Ihr Modul:

Sub simplemessagebox()
MsgBox ("This is a simple message box")
End Sub

Drücken Sie F5 oder Ausführen und sehen Sie sich das Ergebnis an:

Beispiel für Nachricht und Eingabefeld

Im Gegensatz zu Message Boxes werden Eingabefelder verwendet, um Feedback vom Benutzer einzuholen. Schauen wir uns das Beispiel unten an. Das Skript fügt automatisch neue Folien in die Präsentation ein.

Folgendes werden wir implementieren:

1. Wir werden den Benutzer zuerst auffordern, die Anzahl der hinzuzufügenden Folien einzugeben (unter Verwendung eines Eingabefelds).
2. Wir benachrichtigen den Benutzer dann über die Anzahl der zu erstellenden Folien (mithilfe eines Nachrichtenfelds).
3. Zuletzt werden die Folien programmgesteuert erstellt.
4. Zuletzt speichern wir die geänderte Präsentation

Sub CreateSlidesMessage()

Dim NumSlides As Integer
Dim MsgResult As VbMsgBoxResult

' How many slides to create
NumSlides = InputBox("Enter number of slides to create", "Create Slides")

'User confirmation
MsgResult = MsgBox("Powerpoint will create " & NumSlides & " slides. Proceed?", vbApplicationModal, "Create Slides")

'create the slides
If MsgResult = vbOK Then
    For i = 1 To NumSlides
        Set NewSlide = ActivePresentation.Slides.Add(Index:=i + 1, Layout:=ppLayoutBlank)
    Next i
    'Save the Presentation
    ActivePresentation.SaveAs("Your Presentation.pptx")
    MsgBox ("Presentation Saved.")
End If

End Sub

Hoffentlich hat das geholfen, zögern Sie nicht, bei Bedarf Kommentare zu hinterlassen.