View Single Post
 
Old 05-10-2019, 08:34 AM
JohnWilson JohnWilson is offline Windows 10 Office 2016
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,912
JohnWilson has a spectacular aura aboutJohnWilson has a spectacular aura about
Default

I'm really not an Excel coder but if you put this in the ThisWorkbook where the linked data is it should update the current PPT (even in show mode). Make sure you change the slide and shape number to match what you have or it will error.

Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim PPTApp As Object
Dim PPTPres As Object
Set PPTApp = CreateObject(Class:="PowerPoint.Application")
Set PPTPres = PPTApp.ActivePresentation
' Change to match linked shape
PPTPres.Slides(1).Shapes(3).LinkFormat.Update
End Sub
__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote