Thread: Passing Data from Excel to PowerPoint via VBS?

Try this

Sub Test()
Dim PPApp As PowerPoint.Application
Dim PPPRes As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
Dim pptLayout As PowerPoint.CustomLayout

Dim MyShapes As PowerPoint.Shapes

Set PPApp = New PowerPoint.Application
PPApp.Visible = msoTrue
Set PPPRes = PPApp.Presentations.Add
Set pptLayout = PPPRes.SlideMaster.CustomLayouts(1)


Set PPSlide = PPPRes.Slides.AddSlide(1, pptLayout)


Range("A1:A2").Copy


Set MyShapes = PPPRes.Slides(1).Shapes
MyShapes.PasteSpecial(2).Select


End Sub

You will need to set up a reference in Excel to the Microsoft PowerPoint Object Library.

Set up a reference by going into the VBA editor and selecting Tools - References and then Microsort Powerpoint (12) from the long list of libraries.

Your original post didn't specify what type of thing you wanted to copy from Excel. However, the method should work for most things that you might want to copy.