PowerPoint VBA-Makro-Generator mit Copilot

Sub CreateTopicSlides() Dim pptPres As Presentation Dim sld As Slide Dim slideIndex As Integer Dim titleText As String Dim bodyText As String Dim i As Integer Set pptPres = ActivePresentation ' Define the number of slides (adjust as needed) Const NUM_SLIDES As Integer = 5 ' Loop to create slides For i = 1 To NUM_SLIDES ' Add a new slide with Title and Content layout Set sld = pptPres.Slides.Add(pptPres.Slides.Count + 1, ppLayoutTitleAndContent) ' Set title text (customize per slide) Select Case i Case 1 titleText = "Introduction to [TOPIC]" bodyText = "Overview of key concepts and relevance." Case 2 titleText = "History and Background" bodyText = "Timeline of major developments and milestones." Case 3 titleText = "Core Principles" bodyText = "Fundamental rules and guidelines that define [TOPIC]." Case 4 titleText = "Practical Applications" bodyText = "Real-world use cases and examples." Case 5 titleText = "Future Trends" bodyText = "Emerging directions and potential advancements." End Select ' Set title sld.Shapes.Title.TextFrame.TextRange.Text = titleText ' Set body text (placeholder for content) sld.Shapes.Placeholders(2).TextFrame.TextRange.Text = bodyText Next i MsgBox "Created " & NUM_SLIDES & " slides about [TOPIC].", vbInformation End Sub