Import field from Excel to Powerpoint

macropod · #1 04-28-2011, 09:44 PM

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

Jamal NUMAN · #2 11-21-2012, 03:08 PM

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
import labels from excel	tactical	Mail Merge	3	05-29-2012 04:03 PM
Import excel data in to SQL Server	DavidBrown	Excel	0	08-08-2011 04:49 AM
Import formatted text from Word into PowerPoint	parboy	PowerPoint	0	07-06-2011 08:52 AM
How to Import Notes Field data along with attachments?	Prabhakar	Project	0	04-08-2011 04:46 AM
import tasks from excel with a macro o add-in	milplus	Project	1	03-02-2010 01:25 PM