Générateur de macros VBA pour PowerPoint avec Copilot

Sub CreatePresentationMacro() Dim pptApp As Object Dim pptPres As Object Dim pptSlide As Object Dim slideIndex As Integer Dim slideTitle As String Dim slideText As String ' Create a new PowerPoint application Set pptApp = CreateObject("PowerPoint.Application") pptApp.Visible = True ' Create a new presentation Set pptPres = pptApp.Presentations.Add ' Define the number of slides (XX - replace with actual number) Dim slideCount As Integer slideCount = 5 ' Example: 5 slides ' Loop to create slides For slideIndex = 1 To slideCount ' Add a new slide with title and content layout Set pptSlide = pptPres.Slides.Add(slideIndex, 12) ' 12 = ppLayoutTitleOnly, adjust if needed ' Set title based on slide index (customize as needed) Select Case slideIndex Case 1 slideTitle = "Introduction to [TOPIC]" slideText = "Overview of key concepts and objectives." Case 2 slideTitle = "History and Background" slideText = "Timeline of developments and milestones." Case 3 slideTitle = "Core Principles" slideText = "Fundamental rules and guidelines." Case 4 slideTitle = "Applications and Use Cases" slideText = "Real-world examples and scenarios." Case 5 slideTitle = "Future Trends" slideText = "Predictions and emerging directions." Case Else slideTitle = "Slide " & slideIndex slideText = "Additional content for slide " & slideIndex & "." End Select ' Add title text pptSlide.Shapes.Title.TextFrame.TextRange.Text = slideTitle ' Add body text (if layout supports it, otherwise add a text box) If pptSlide.Shapes.Placeholders.Count > 1 Then pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = slideText Else ' Add a text box for content Dim txtBox As Object Set txtBox = pptSlide.Shapes.AddTextbox(1, 50, 150, 600, 300) txtBox.TextFrame.TextRange.Text = slideText End If Next slideIndex ' Save and close (optional - uncomment to save) ' pptPres.SaveAs "C:\Path\To\Your\Presentation.pptx" ' pptPres.Close ' Clean up Set pptSlide = Nothing Set pptPres = Nothing Set pptApp = Nothing MsgBox "Presentation with " & slideCount & " slides created successfully." End Sub