Interactive Excel Chart in Powerpoint

Posted on 2007-10-10
Last Modified: 2010-05-18
Dear experts.

I'm trying to make a scientific powerpoint slide which shows an excel chart interactivelly.

In excel, i've done the complex scientific calculation, and shows the result in a chart.
The chart can be changed by modifying several cells that contains the calculation's parameters.
Until here, it works fine interactivelly.

Now, I want to impress my students, by showing that chart in a powerpoint slide interactivelly.
I  tried to link the chart in powerpoint (
This way, the chart in the powerpoint's slide can be changed interactivelly, BUT,
only by changing the parameter in Excel's worksheet, which is ugly.

How can I change the parameters from power point so I don't need to switch to excel during the presentation ?
I think I need to put a slider in the slide, then link it to the particular excel cell.
I just don't know how to make it happen.

Please help.

Question by:Kocil
    LVL 18

    Expert Comment

    by:Curt Lindstrom
    Try to Copy and paste instead of Copy and Paste link. Save powerpoint file and close the Excel file. You should now be able to double click the chart and do changes in power point without opening the Excel file.

    LVL 5

    Author Comment

    Hi epaclm,
    That is possible while the powerpoint is in edit mode,
    but not in slideshow mode.

    LVL 38

    Accepted Solution

    Hi Kocil,

    >  put a slider in the slide, then link it to the particular excel cell

    Yup, or Spinner control in this case.  Here's a routine to add to the Slide module of the Powerpoint presentation slide that you have Paste Special>Linked an Excel chart from your spreadsheet:

    Private Sub SpinButton1_Change()
    Dim xlApp As Object, wb As Object, ws As Object, shp As Shape

    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")
    On Error GoTo 0

    If xlApp Is Nothing Then
        Set xlApp = CreateObject("Excel.Application")
    End If

    On Error Resume Next
    Set wb = xlApp.Workbooks("xlChart.xls")
    On Error GoTo 0

    If wb Is Nothing Then Set wb = xlApp.Workbooks.Open("C:\xlChart.xls")

    xlApp.Visible = True

    Set ws = wb.Worksheets("Sheet1")

    ws.[D6] = SpinButton1.Value


    For Each shp In Me.Shapes
        If shp.Type = msoLinkedOLEObject Then
        End If
    Next shp

    End Sub

    Change "C:\xlChart.xls" to your linked Excel chart and data.

    This line:

    ws.[D6] = SpinButton1.Value

    sets your cel value (cell D6 in this example) to the value of the Spinner control.  In the example, the Spinner control was set to Max = 10, Min = 0.  Changing the Spinner moved a Bar Chart column up or down by 1.

    Try this and see how it works for you.  After you see the example working you can experiment with differnet controls like the Slider.

    LVL 21

    Assisted Solution

    Thanks so much for posting that snippet of code.  I've seen this question (or similar) so many times...

    If you'd really, really like to impress, try
    LVL 1

    Expert Comment

    Forced accept.

    EE Admin

    Featured Post

    How to run any project with ease

    Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
    - Combine task lists, docs, spreadsheets, and chat in one
    - View and edit from mobile/offline
    - Cut down on emails

    Join & Write a Comment

    Setting the Scene PowerPoint is a creative tool in the right hands but it also includes a much underutilised programming dimension. In this beginner level article, we're going to show you some of some key elements of programming PowerPoint using th…
    Using Word 2013, I was experiencing some incredible lag when typing.  Here's what worked for me....
    Learn how to make your own table of contents in Microsoft Word using paragraph styles and the automatic table of contents tool. We'll be using the paragraph styles in Word’s Home toolbar to help you create a table of contents. Type out your initial …
    This Micro Tutorial will demonstrate on a Mac how to change the sort order for chart legend values and decrpyt the intimidating chart menu.

    733 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

    24 Experts available now in Live!

    Get 1:1 Help Now