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:

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

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:

Wir werden den Benutzer zuerst auffordern, die Anzahl der hinzuzufügenden Folien einzugeben (unter Verwendung eines Eingabefelds).
Wir benachrichtigen den Benutzer dann über die Anzahl der zu erstellenden Folien (mithilfe eines Nachrichtenfelds).
Zuletzt werden die Folien programmgesteuert erstellt.
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.

Überprüfen Sie die von der MsgBox-Funktion zurückgegebenen Werte

Wenn das Dialogfeld „MsgBox“ zur Benutzerinteraktion angezeigt wird und Sie wissen möchten, auf welche Option der Benutzer geklickt hat, können Sie dies mit dem folgenden Code überprüfen:

Der Code prüft, welche Schaltfläche der Benutzer auf MsgBox auswählt

Entsprechend der Wahl jedes Benutzers können Sie weiterhin verschiedene Codes ausführen. Diese VBA-Codes können Sie in VBA-Kursen mit führenden Experten unter Learn Excel Online lernen.

Unterstützt MsgBox Vietnamesisch mit Akzent? Die Antwort ist nein, warum? Weil Microsoft es so programmiert hat. Aber gibt es eine andere Möglichkeit? Die Antwort lautet: Ja, Sie können den Artikel „Verwenden von Vietnamesisch mit Akzent mit MsgBox VBA“ lesen

Den gesamten Code im Artikel finden Sie unter Gist:

	Sub HeoBasicMessageBox()
	MsgBox „Ich habe keine Ahnung, ob ich in Excel Online bin“
	End Sub

	Sub HeoBasicMessageBoxWithTitle()
	MsgBox „Xin chao cac ban da den voi Hoc Excel Online“, , „HEO“
	End Sub

	Sub HeoBasicMessageBox2()
	MsgBox „Hoc Excel Online“, _
	vbOKAbbrechen + _
	vbCritical + _
	vbDefaultButton1 + _
	vbApplicationModal
	End Sub

	Sub HeoBasicMessageBox3()
	MsgBox „Hoc Excel Online“, _
	vbOKAbbrechen + _
	vbCritical + _
	vbDefaultButton1 + _
	vbSystemModal
	End Sub

	Sub HeoMsgBoxResult1()
	Antwort dimmen als VbMsgBoxResult

	Antwort = MsgBox("Hoc Excel Online", vbYesNo + vbCritical)
	MsgBox-Antwort
	End Sub

	Sub HeoMsgBoxResult2()
	Antwort dimmen als VbMsgBoxResult

	Antwort = MsgBox("Hoc Excel Online", vbYesNo + vbQuestion)
	MsgBox-Antwort
	End Sub

	Sub HeoMsgBoxResult3()
	Antwort dimmen als VbMsgBoxResult

	Antwort = MsgBox("Hoc Excel Online", vbYesNo + vbExclamation)
	MsgBox-Antwort

	End Sub

	Sub HeoMsgBoxResult4()
	Antwort dimmen als VbMsgBoxResult

	Antwort = MsgBox("Hoc Excel Online", vbYesNo + vbInformation)
	MsgBox-Antwort
	End Sub

	Sub HeoMsgBoxResult5()
	Antwort dimmen als VbMsgBoxResult
	Antwort = MsgBox("Fehler", vbAbortRetryIgnore + vbDefaultButton1 + vbMsgBoxHelpButton)
	MsgBox-Antwort
	End Sub

	Sub HeoMsgBoxResult6()
	Antwort dimmen als VbMsgBoxResult
	Antwort = MsgBox("Fehler", vbAbortRetryIgnore + vbDefaultButton2 + vbMsgBoxHelpButton)
	MsgBox-Antwort
	End Sub

	Sub HeoMsgBoxResult7()
	Antwort dimmen als VbMsgBoxResult
	Antwort = MsgBox("Fehler", vbAbortRetryIgnore + vbDefaultButton3 + vbMsgBoxHelpButton)
	MsgBox-Antwort
	End Sub

	Sub HeoMsgBoxResult8()
	Antwort dimmen als VbMsgBoxResult
	Antwort = MsgBox("Fehler", vbAbortRetryIgnore + vbDefaultButton4 + vbMsgBoxHelpButton)
	MsgBox-Antwort
	End Sub

	Sub HeoMsgBoxResult9()
	Antwort dimmen als VbMsgBoxResult
	Antwort = MsgBox("Möchten Sie es noch einmal versuchen?", vbRetryCancel + vbQuestion, "Fehler")
	MsgBox-Antwort
	End Sub

	Sub HeoMsgBoxResult10()
	MsgBox „Kritischer Fehler aufgetreten“, vbCritical, „Systemfehler“
	End Sub

Ingwer 2.7.53.0

Ginger ist eine kostenlose Rechtschreib- und Grammatikprüfung.

Blöcke

Blocks ist ein Denkspiel für Grundschüler der 3. Klasse, mit dem sie ihre Erkennungs- und Sehfähigkeiten trainieren können. Es wird von Lehrern in das Programm zur Unterstützung des IT-Unterrichts aufgenommen.

Mathway

Mathway ist eine sehr nützliche App, die Ihnen bei der Lösung all jener mathematischen Probleme helfen kann, die ein komplexeres Werkzeug als den integrierten Taschenrechner Ihres Geräts erfordern.

Adobe Presenter

Adobe Presenter ist eine E-Learning-Software von Adobe Systems, die auf der Microsoft Windows-Plattform als Microsoft PowerPoint-Plug-in verfügbar ist.

Tukan 2.3.0

Toucan ist eine Bildungstechnologieplattform. Es ermöglicht Ihnen, eine neue Sprache zu lernen, während Sie auf gängigen, alltäglichen Websites surfen.

ENetViet 24.2

eNetViet ist eine Anwendung, die Eltern mit der Schule verbindet, in der ihre Kinder studieren, damit sie die aktuelle Lernsituation ihres Kindes klar verstehen können.

Duolingo

Duolingo – Sprachen kostenlos lernen, oder einfach Duolingo, ist ein Bildungsprogramm, mit dem Sie viele verschiedene Sprachen lernen und üben können.

RapidTyping

RapidTyping ist ein praktisches und benutzerfreundliches Tastatur-Trainingstool, mit dem Sie Ihre Tippgeschwindigkeit verbessern und Rechtschreibfehler reduzieren können. Mit Lektionen für viele verschiedene Niveaus bringt Ihnen RapidTyping bei, wie Sie tippen oder bestehende Fertigkeiten verbessern.

MathType 7.4.10.53

MathType ist eine interaktive Gleichungssoftware des Entwicklers Design Science (Dessci), mit der Sie mathematische Notationen für Textverarbeitung, Präsentationen, E-Learning usw. erstellen und kommentieren können. Dieser Editor wird auch zum Erstellen von TeX-, LaTeX- und MathML-Dokumenten verwendet.

Grammatikalisch

Die KI-gestützten Apps von Grammarly helfen Menschen, effektiver zu kommunizieren. Millionen von Benutzern verlassen sich täglich auf Grammarly, um ihre Nachrichten, Dokumente und Social-Media-Beiträge klarer, fehlerfrei und professioneller zu gestalten.