Excel charts not updating
However, Peter describes the VB script method for Excel chart auto-refresh in detail in the next article.
Technically in Power Point you can link an Excel file to a Power Point presentation. Imagine wanting to present a series of dynamic slides in an Office environment, each slide showing latest charts from an updates Excel dashboard. Paste Special pp Paste Bitmap Set Copy Chart From Excel To PPT = ppt.
See an example in this Youtube video: Before we start I want to explain that you don’t need to use the approach explained below to simply link an Excel Chart to a Power Point presentation.
If this is all you need, read this Support Office article.
This will be copy pasted as an Image to our Power Point to avoid linking and to assure the format is identical to how it is visualized in your Excel file.
#If VBA7 Then Public Declare Ptr Safe Sub Sleep Lib "kernel32" (By Val milliseconds As Long Ptr) 'MS Office 64 Bit #Else Public Declare Sub Sleep Lib "kernel32" (By Val milliseconds As Long) 'MS Office 32 Bit #End If Function Copy Chart From Excel To PPT(excel File Path As String, sheet Name As String, chart Name As String, dst Slide As Long, Optional shape Left As Long, Optional shape Top As Long, Optional shape Width As Long, Optional shape Height As Long) As Shape On Error Go To Error Handl 'Handle Errors 'Set Variables and Open Excel Dim e App As Excel.
Path & "\Test.xlsx", "Sheet1", "Chart 1", slide Number, chart Placeholder.
Run 'Update the Chart and set time stamp Set shp = Copy Chart From Excel To PPT(Active Presentation.
Height = shape Height End With End If Exit Function Error Handl: 'Make sure to close the workbook and Excel and return False On Error Resume Next If Not (e App Is Nothing) Then wb. Quit End If Set Copy Chart From Excel To PPT = Nothing End Function As you can see this is a generic function you can reuse to your own purpose regardless of the example usage below. Visible = mso False Set time Shape = Active Presentation.
Exit 'Delete the chart and make the Chart Placeholder visible again shp. Visible = mso True End Sub For me a way to animate Excel Charts in Power Point present a new pallete of options to further push the boundries of what we can do with Power Point.
When your data change, you can update open graphs, including control charts, so that the graphs display the changed data.
Text = Format(Now(), "YYYY-MM-DD HH: MM") Do Events Sleep 1000 For i = 0 To 3 'Update the Chart, delete old shape and set time stamp Set shp1 = Copy Chart From Excel To PPT(Active Presentation.
Text = Format(Now(), "YYYY-MM-DD HH: MM") 'Sleep for 1 second Do Events Sleep 1000 Next i 'End of presentation!
In the demo below Peter quickly repeats how the Excel chart works and is updated, and then he describes three methods for automatic update when Share Point list data is changed.