Quote:
Originally Posted by macropod
Hi xgravity,
You're not likely to find a website with something tailored precisely to your needs. Whatver you find will need to be adapted. For example, the following code is based on the 'Paste a Selected Excel Worksheet Range into the Active PowerPoint Slide' example from the first link I gave you. For the most part, the code is the same - I've tossed out a few extraneous bits and made the code update the 1st textbox on the active slide, but that's all:
Code:
Sub ExcelVal2PwrPt()
' Set a VBE reference to Microsoft PowerPoint Object Library
Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
' Reference existing instance of PowerPoint
Set PPApp = GetObject(, "Powerpoint.Application")
' Reference active presentation
Set PPPres = PPApp.ActivePresentation
PPApp.ActiveWindow.ViewType = ppViewSlide
' Reference active slide
Set PPSlide = PPPres.Slides(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)
' put the Excel Cell's value into the 1st textbox on the slide
PPSlide.Shapes(1).TextFrame.TextRange.Text = ActiveSheet.Range("A1").Value
' Clean up
Set PPSlide = Nothing: Set PPPres = Nothing: Set PPApp = Nothing
End Sub
|
Hi Paul,
Do we still miss a convenient tool even in the office 2013 that can make the mail merge easy in the PowerPoint and works the same way as in the Word?
I couldn’t know how the code that you have supplied may work as a tool to import data from Excel to PowerPoint. Could you please elaborate more?
Many thanks
Jamal