top of page
Boys at School

Werden Sie ein Teil von Lehrer - Alltag

PowerPoint in nur 10 Minuten - eine Anleitung für VBA

Aktualisiert: 19. März 2023

Liebe Kolleginnen und Kollegen, ich möchte an dieser Stelle bewusst nicht über Sinn oder Unsinn von PowerPoint diskutieren. Es geht hier nur um die Unterstützung für Sie ;)


Vielleicht spenden Sie mir einen Kaffee, ein Bier oder eine Flasche Rotwein, wenn Sie durch die Anleitungen eine Zeitersparnis haben. Empfehlen Sie mich gern weiter. Herzlichen Dank.


Aufgabe an ChatGPT



Du bist ein erfahrener Presenter und Lehrer.
Erstelle immer in der aktiven Präsentation:  Verwende den Befehl "Set Präsentation = ActivePresentation"  Erstelle die Präsentation mit professionellen Texten. Generiere mir den Code für ein VBA Makro in Powerpoint 365, dass 5 Folien zum Thema "Projektmanagment" erstellt. Erstelle jede Folie einzeln.  Jede Folie enthält ausformulierten Texten in 2 Unterpunkten. 

Verwende dieses Muster

Dim Folie0 As PowerPoint.Slide
Set Folie0 = Präsentation.Slides.Add(0, ppLayoutText)
Folie0.Shapes.Title.TextFrame.TextRange.Text = "Einleitung"
Folie0.Shapes.Placeholders(0).TextFrame.TextRange.Text = "Relationale Datenbanken"
Folie0.Shapes.Placeholders(0).TextFrame.TextRange.Text = Folie0.Shapes.Placeholders(0).TextFrame.TextRange.Text & vbNewLine & "Wie man"
Folie0.Shapes.Placeholders(0).TextFrame.TextRange.Text = Folie0.Shapes.Placeholders(0).TextFrame.TextRange.Text & vbNewLine & "Wie man"
 

Die KI erstellt nun folgenden Text, den Sie einfach als Makro in PowerPoint ausführen



Sub ProjektmanagementPräsentationErstellen()

Dim Präsentation As PowerPoint.Presentation
Dim Folie1 As PowerPoint.Slide
Dim Folie2 As PowerPoint.Slide
Dim Folie3 As PowerPoint.Slide
Dim Folie4 As PowerPoint.Slide
Dim Folie5 As PowerPoint.Slide

'Setze die aktive Präsentation
Set Präsentation = ActivePresentation

'Erstelle Folie 1
Set Folie1 = Präsentation.Slides.Add(1, ppLayoutText)
Folie1.Shapes.Title.TextFrame.TextRange.Text = "Projektmanagement"
Folie1.Shapes.Placeholders(2).TextFrame.TextRange.Text = "Projektmanagement bezeichnet die Planung, Durchführung und Kontrolle von Projekten. Ein Projekt zeichnet sich dabei durch eine bestimmte Zielsetzung, begrenzte Ressourcen und einen zeitlichen Rahmen aus. In der Regel wird das Projektmanagement eingesetzt, um komplexe Vorhaben strukturiert und erfolgreich durchzuführen."

'Erstelle Folie 2
Set Folie2 = Präsentation.Slides.Add(2, ppLayoutText)
Folie2.Shapes.Title.TextFrame.TextRange.Text = "Projektmanagement-Merkmale"
Folie2.Shapes.Placeholders(2).TextFrame.TextRange.Text = "Das Projektmanagement zeichnet sich durch folgende Merkmale aus:" & vbNewLine & "1. Eindeutige Zielsetzung" & vbNewLine & "2. Begrenzte Ressourcen" & vbNewLine & "3. Zeitliche Begrenzung" & vbNewLine & "4. Interdisziplinäre Zusammenarbeit" & vbNewLine & "5. Projektspezifische Organisation" & vbNewLine & "6. Methodische Planung und Durchführung"

'Erstelle Folie 3
Set Folie3 = Präsentation.Slides.Add(3, ppLayoutText)
Folie3.Shapes.Title.TextFrame.TextRange.Text = "Projektmanagement-Ziele"
Folie3.Shapes.Placeholders(2).TextFrame.TextRange.Text = "Die Ziele des Projektmanagements sind vielfältig. Zu den wichtigsten Zielen gehören:" & vbNewLine & "1. Erfolgreiche Durchführung von Projekten" & vbNewLine & "2. Einhaltung von Terminen und Budgets" & vbNewLine & "3. Optimierung der Ressourcennutzung" & vbNewLine & "4. Sicherstellung von Qualität und Kundenzufriedenheit" & vbNewLine & "5. Minimierung von Risiken und Störungen"

'Erstelle Folie 4
Set Folie4 = Präsentation.Slides.Add(4, ppLayoutText)
Folie4.Shapes.Title.TextFrame.TextRange.Text = "Projektmanagement-Phasen"
Folie4.Shapes.Placeholders(2).TextFrame.TextRange.Text = "Das Projektmanagement umfasst verschiedene Phasen, die in der Regel wie folgt definiert werden:" & vbNewLine & "1. Projektdefinition und Projektvorbereitung" & vbNewLine & "2. Projektplanung" & vbNewLine & "3. Projektsteuerung und -durchführung" & vbNewLine & "4. Projektabschluss"

'Erstelle Folie 5
Set Folie5 = Präsentation.Slides.Add(5, ppLayoutText)
Folie5.Shapes.Title.TextFrame.TextRange.Text = "Projektmanagement-Tools"
Folie5.Shapes.Placeholders(2).TextFrame.TextRange.Text = "Im Projektmanagement gibt es zahlreiche Tools und Methoden, die bei der Planung und Durchführung von Projekten unterstützen. Zu den wichtigsten Tools gehören:" & vbNewLine & "1. Projektstrukturplan" & vbNewLine & "2. Gantt-Diagramm" & vbNewLine & "3. Netzplandiagramm" & vbNewLine & "4. Risikoanalyse" & vbNewLine & "5. Kosten- und Nutzenanalyse" & vbNewLine & "6. Qualitätsmanagement"

End Sub
 

Hier das Ergebnis:


Muster
.pdf
PDF herunterladen • 448KB


573 Ansichten0 Kommentare

Aktuelle Beiträge

Alle ansehen

Comments

Rated 0 out of 5 stars.
No ratings yet

Add a rating
bottom of page