Import field from Excel to Powerpoint

macropod · #4 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

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