Convert Excel charts to Power Point

[RompStar]

I have a whole bunch of Excel Charts, my boss wants me to convert them to Powerpoint, because it looks better in that for presentation purposes and I know nothing about power point, I can figure things out by clicking on it, but that's about it...

Is there a tool that will convert a Excel chart to Powerpoint automatically ?

Or is that wishful thinking.

 

[RompStar]

ya, see the problem is that the charts are linked to an excel sheet, that's shared on the network, manager update that, that's why the links need to be active..

How one would make that work with a linked excel sheet ?

 

[RompStar]

ya, this would do nicely, how much work would it take to edit it so that the links are kept ?

 

[Justinlabenne]

I have never seen a way from Excel, to paste a linked chart to powerpoint, I think that feature is only available within Powerpoint by doing going to:

INSERT > OBJECT > Selecting the option: CREATE FROM FILE

then browsing for the Excel file with the chart.

Is this same Powerpoint reused all the time displaying the new updated charts that are linked to Excel. It may be an option to ask your boss about the Saving as a picture option. He could update his Excel file, then press a button that could quite possibly take the updated chart and paste it to the slide he/she chooses, pasting over the previous one, etc.. etc...

 

[swst]

Hi

I dont know if I am missing the point here but here goes

To get a linked chart into powerpoint

Click on chart in Exceal
Edit / Copy
Click into powerpoint slide
Edit / Paste Special then choose Paste Link

Each time the powerpoint presentation is opened it will come up with a message saying you have links. Do you want to update. If you say yes the slide will automatically update with any new data in the Excel spreadsheet

Hope this helps

Steve

 

[TrippyTom]

Sounds like your boss likes to give you "busywork" instead of relying on Office products to help you be more productive.

Nevertheless, I'm guessing he doesn't like embedded charts because they tend to make the file bigger. This can become an issue if he's trying to send it to another person via email and it's a bloated file because of all the embedded stuff in it.

At my work, we paste-as-picture quite often. Try to convince your boss that this is the way to go. It will save you a lot of conversion work.

Personally, I think Powerpoint's graphing features are TERRIBLE compared to excel; Powerpoint seems to be using a subset of features vs. Excel. And don't even get me started on tables.... Muahahaha.....

 

[RompStar]

muhahahaahahaha, gotta cut and paste some of these emails and try to convince the boss...

 

[tc1102]

Justinlabenne,

If my workbook has (say) 10 charts, how do i get the macro to export all the charts into a ppt file, without going through the process of individually selecting the charts?
thanks.

 

[RompStar]

Justinlabenne: you never seen the data linked from an Excel file to make ta chart in powerpoint ?

 

[Justinlabenne]

I had seen i done, using the method from powerpoint, which is reall the same thing as the paste picture link with slight variation, just using a different app. never really used the method myself, opting to do the paste picture instead.

Try this: you need to set a reference to the powerpoint object library:

TOOLS > REFERENCES > in the vbe, scroll to find it.

Sub Paste_Linked_Charts()
'   Go to tools > References > (check) Microsoft Powerpoint # object library
    Dim ppApp As PowerPoint.Application
    Dim ppSlide As PowerPoint.Slide
        
    Dim sShName As String
    Dim wks As Worksheet
    Dim chChart As ChartObject
    Dim lchNum As Long
    Dim bSlidesToEnd As Boolean
          
    sShName = ActiveSheet.Name
    lchNum = 1
    bSlidesToEnd = True
          
    On Error Resume Next
    Set wks = Sheets(sShName)
    Set chChart = Sheets(sShName).ChartObjects(lchNum)
    On Error GoTo 0
     
     
'   Look for existing instance
    On Error Resume Next
    Set ppApp = GetObject(, "PowerPoint.Application")
    On Error GoTo 0
     
'   Create new instance if no instance exists
    If ppApp Is Nothing Then Set ppApp = New PowerPoint.Application
'   Add a presentation if none exists
    If ppApp.Presentations.Count = 0 Then ppApp.Presentations.Add
     
'   Make the instance visible
    ppApp.Visible = True
     
'   Check that a slide exits, if it doesn't add 1 slide. Else use the last slide for the paste operation
    If ppApp.ActivePresentation.Slides.Count = 0 Then
        Set ppSlide = ppApp.ActivePresentation.Slides.Add(1, ppLayoutBlank)
    Else
        If bSlidesToEnd Then
'           Appends slides to end of presentation and makes last slide active
            ppApp.ActivePresentation.Slides.Add ppApp.ActivePresentation.Slides.Count + 1, ppLayoutBlank
            ppApp.ActiveWindow.View.GotoSlide ppApp.ActivePresentation.Slides.Count
            Set ppSlide = ppApp.ActivePresentation.Slides(ppApp.ActivePresentation.Slides.Count)
        Else
'           Sets current slide to active slide
            Set ppSlide = ppApp.ActiveWindow.View.Slide
        End If
    End If
     
     
    Worksheets(sShName).Activate
    ActiveSheet.ChartObjects(lchNum).Select
    ActiveChart.ChartArea.Copy
    ppSlide.Shapes.PasteSpecial(link:=True).Select
     
     
    ppApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
    ppApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
     
    AppActivate ("Microsoft PowerPoint")
    Set ppSlide = Nothing
    Set ppApp = Nothing
     
End Sub

 

[RompStar]

sorry for net getting back to this post right away..

So you say TOOLS, REFERENCES in VB for Excel ? do the reference change in the library ?