Create PPTX / PPT programatically

Question

I would like to create programatically presentation based on data which I will get from Excel (PowerPivot)

Is it possible with PowerPoint object model (Microsoft.Office.Interop.PowerPoint).

Answer 1

Basic example of automating it from Excel.

Dim oPPT As Object 'PowerPoint.Application

Dim oPres As Object 'PowerPoint.Presentation

Dim oSld As Object 'PowerPoint.Slide

Range("A3:B25").CopyPicture

Set oPPT = CreateObject("PowerPoint.Application")

If Not oPPT Is Nothing Then

    oPPT.Visible = True 'make the window visible (optional)

    Set oPres = oPPT.presentations.Add(msoTrue)

    With oPres

        Set oSld = .Slides.AddSlide(1, .Designs(1).SlideMaster.CustomLayouts(1))

        With oSld

            With oSld.Shapes.Paste(1)

                .Top = 10

                .Left = 10

            End With

        End With

        .SaveAs "c:\temp\test.pptx", ppSaveAsDefault

    End With

Else

    MsgBox "PowerPoint object could not be instantiated.", vbExclamation

End If

---

Regards, Shyam Pillai. http://skp.mvps.org

Answer 2

Thank you. AWESOME