UtterAccess.com
X   Site Message
(Message will auto close in 2 seconds)

Welcome Guest ( Log In | Register )

 
 Reply to this topicStart new topic
> Vba Sending Data To Powerpoint, Office 2007    
 
   
jcorlando
post Mar 4 2012, 04:22 PM
Post #1

UtterAccess Guru
Posts: 513
From: Annapolis, MD USA
Hi All,

I'm using Excel to calculate data and then presenting that data in PowerPoint.

In PowerPoint, I'm showing that data in TextBoxes (these are named Active X text boxes and selected from the Developer ribbon.)

I'm looking for suggestions to send data from Excel to the PowerPoint presentation.
I have the name and location stored in Excel
And am creating an Active X button to launch VBA code to write to TextBox in PowerPoint.

Any suggestions???
It's got to be do-able.

John,
In Annapolis.
Go to the top of the page
 
+
jcorlando
post Mar 4 2012, 05:34 PM
Post #2

UtterAccess Guru
Posts: 513
From: Annapolis, MD USA
So I'm learning it's best to write to labels.
And lables can have the same name if they are in different pages.

So to update the project name, which would be on each page I would have some loop

CODE
For Each Page in Pages
    .lblProjName.Caption = "ProjectName"
End Loop


This post has been edited by jcorlando: Mar 4 2012, 05:36 PM
Go to the top of the page
 
+
arnelgp
post Mar 5 2012, 05:12 AM
Post #3

UtterAccess Ruler
Posts: 1,090
You can find the tutorials in this site. Plenty of examples.

http://www.steverindsberg.com/pptlive/

CODE
'--- declare any required objects and variables
Dim ppApp As PowerPoint.Application
Dim ppPres As PowerPoint.Presentation
Dim ppCurrentSlide As PowerPoint.Slide
'--- open powerpoint and set a pointer from Access to it
Set ppApp = CreateObject("PowerPoint.Application")
'--- make it visible on your monitor
ppApp.Visible = True
'--- open the pre-designed template
Set ppPres = ppApp.Presentations.Open("name of template/Powerpoint file goes here(full path)")
'--- set a pointer to the first slide in the presentation
Set ppCurrentSlide = ppPres.Slides(1)

'--- assign a custom string of text to the slide title
ppCurrentSlide.Shapes("Title").TextFrame.TextRange.Text = "Some text"

'--- remove the pointers from memory
Set ppApp = Nothing
Set ppPres = Nothing
Set ppCurrentSlide = Nothing


This post has been edited by arnelgp: Mar 5 2012, 05:32 AM
Go to the top of the page
 
+
jcorlando
post Mar 5 2012, 02:54 PM
Post #4

UtterAccess Guru
Posts: 513
From: Annapolis, MD USA
Arnel,

Thank you!!
I'm trying to work from Excel vs Access in the above example.
But I don't think I'll have a problem figuring this out, now that I have a start.

John,
In Annapolis
Go to the top of the page
 
+
jcorlando
post Mar 5 2012, 02:55 PM
Post #5

UtterAccess Guru
Posts: 513
From: Annapolis, MD USA
Arnel,

Thank you!!
I'm trying to work from Excel vs Access in the above example.
But I don't think I'll have a problem figuring this out, now that I have a start.

John,
In Annapolis
Go to the top of the page
 
+
« Next Oldest · Microsoft Excel · Next Newest »
 

Thank you for your support! Reply to this topicStart new topic

Jump To Forum:
 

Display Mode: Standard · Switch to: Linear+ · Switch to: Outline

Track this topic · Email this topic · Print this topic · Subscribe to this forum

RSS Go to Top  ·  Lo-Fi Version Time is now: 19th June 2013 - 08:35 AM