Benutzer:Paul Sutermeister/Präsentation

1 Lückentext

Death by PowerPoint fand im Jahr in Florida statt.

Dabei verloren Menschen ihr Leben.

Grund war eine PowerPoint- .

Eine gute Präsentation geht auch ohne

Mit dem papiernen visualisiert man Gesprochenes simultan.

PowerPoint soll sparsam verwendet werden.

Zum Beispiel zeigt die Vortragstechnik 20 Bilder jeweils 20 Sekunden.

Die Präsentation dauert so nur Minuten und Sekunden.

Gezeigt werden nur , kein Text.

2 Ordne zu:

Prompt	Makro	Entwicklertools	VBA
				„Schreibe mir ein Makro für PowerPoint mit 5 Folien zum Thema: Wie … ?“
				Sub ErstellePowerPointMitChatGPT()
				Datei → Optionen → Menüband anpassen → Hauptregisterkarten →
				Programmiersprache von Microsoft Office-Programmen

3 Bringe in die richtige Reihenfolge (1−10):

KI-Chatbot öffnen

Prompt eingeben

Makro kopieren

PowerPoint öffnen

Entwicklertools auswählen

Visual Basic öffnen

Modul einfügen

Makro einfügen

Sub/UserForm ausführen

Präsentation anpassen

4 Erstellt folgendes Makro eine Pecha-Kucha-konforme Präsentation?

Sub ErstellePechaKuchaFolie()
   Dim slideIndex As Integer
   Dim newSlide As slide
   
   'Füge eine neue Folie hinzu
   Set newSlide = ActivePresentation.Slides.Add(1, ppLayoutText)
   
   'Aktualisiere den Folienindex
   slideIndex = 1
   
   'Setze den Titel der Folie
   newSlide.Shapes(1).TextFrame.TextRange.Text = "Wie mache ich ein Pecha Kucha?"
   
   'Füge Text zum Inhalt der Folie hinzu
   newSlide.Shapes(2).TextFrame.TextRange.Text = "1. Sammle 20 Bilder oder Diagramme." & vbCrLf & _
       "2. Gestalte mit jedem Bild/Diagramm eine Folie." & vbCrLf & _
       "3. Wähle Übergänge nach 20 Sekunden." & vbCrLf & _
       "4. Verwende nur wenige Worte pro Folie." & vbCrLf & _
       "5. Füge zu jeder Folie Notizen hinzu." & vbCrLf & _
       "6. Achte beim Üben auf das Zeitlimit."
       
   'Zentriere den Text
   newSlide.Shapes(2).TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter
   
   'Aktiviere die Folie
   newSlide.Select
End Sub

	Ja
	Nein