Solved

Excel and PowerPoint Links

Posted on 2015-01-13
3
140 Views
Last Modified: 2015-01-16
I need to create a workbook in Excel with graphs and then copy to PowerPoint with the links in tact. This enables any changes that occur on the excel workbook to be mirrored in PP. [i.e. Each graph with show 13 months data,  Jan 14 - Jan 15]

Workbook and PP are saved as say Jan Data 15.xlsx and Jan Data 15.pptx

I need to create new workbooks each month and would like to use the original as a kind of template, meaning each and every graph will be used each month but with new data to reflect that months data. [So in Mar we will add data for Feb etc]

ok here is the problem, if I save the original Excel  and PP with new names Feb Data 15.xlsx and Feb Data 15.pptx the links to the Jan files get broken.

Is there a way to make the links remain with the original files and when creating the new months files to have their own links.

I hope this is self explanatory
0
Comment
Question by:Jagwarman
  • 2
3 Comments
 
LVL 23

Accepted Solution

by:
JSRWilson earned 500 total points
Comment Utility
No automatic way unless you REPLACE the Excel file with the new data (saving a copy of the original elsewhere.)

A better way would be in PPT
FILE > Info
In the Right Pane > Edit Links to Files

Select "Change Source"
0
 

Author Comment

by:Jagwarman
Comment Utility
so you are saying that I would need to copy all the data onto PowerPoint each month, and there will maybe 20 tabs with 4 graphs on each tab.  

I tried what you said

A better way would be in PPT
 FILE > Info
 In the Right Pane > Edit Links to Files

 Select "Change Source"

and this works fine for one tab but when I add multiple tabs.......i.e. 20, not good
0
 
LVL 23

Expert Comment

by:JSRWilson
Comment Utility
You could change the links with code all at once. Would that be a solution?

Code might look like

Sub update_Links()
Dim linkadd As String
Dim osld As Slide
Dim oshp As Shape
On Error Resume Next
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
Err.Clear
linkadd = oshp.LinkFormat.SourceFullName
If Err = 0 Then
' you will probably need to adapt the search
oshp.LinkFormat.SourceFullName = Replace(Expression:=linkadd, Find:="Jan Data 15", Replace:="Feb Data 15")
oshp.LinkFormat.Update
End If
Next oshp
Next osld
End Sub

Open in new window

0

Featured Post

Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

Join & Write a Comment

Introduction This Article briefly covers methods of calculating the NPV and IRR variants in Excel as well as the limitations in calculating and interpreting IRR results. Paraphrasing Richard Shockley, author of my favourite finance reference tex…
Preface: When I started this series, I used the term CommandBars because that is the Office Object class that it discusses. Unfortunately, when Microsoft introduced Office 2007, they replaced the standard Commandbar menus with "The Ribbon" and rem…
The viewer will learn how to  create a slide that will launch other presentations in Microsoft PowerPoint. In the finished slide, each item launches a new PowerPoint presentation and when each is finished it automatically comes back to this slide: …
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now