Microsoft Office Forums

Go Back   Microsoft Office Forums > Microsoft Office > PowerPoint

Reply
 
LinkBack Thread Tools Display Modes
  #1  
Old 04-20-2017, 01:53 PM
crimedog crimedog is offline Windows 10 Office 2016
Novice
 
Join Date: Apr 2017
Posts: 1
crimedog is on a distinguished road
Default VBA Update Excel info in running Presentation

I have two slides - each with a linked Excel Object. I open the Excel file - then PPt and start Kiosk Presentation.
If the excel file updates - the PPt was not updating.
I found a VBA how to:
in Class Module "clsEvents" I have:
Code:
Public WithEvents PPTEvent As Application

Sub PPTEvent_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
   Dim objSld As Slide, shp As Shape

   Set objSld = Wn.Presentation.Slides(Wn.View.CurrentShowPosition)

   For Each shp In objSld.Shapes
      If shp.Type = msoLinkedOLEObject Then
         shp.LinkFormat.Update
      End If
      Next shp

End Sub
In Module I have:


Code:
Option Explicit

Dim app As clsEvents

Sub SetUpEvents()

    Set app = New clsEvents
    Set app.PPTEvent = Application

End Sub
This will update - but the slide does not advance without click after that. I need the preset timings to keep working - I tried to Advance to next slide - but it flickers back and forth.
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Running Excel from a webpage jimbassett Excel 0 04-22-2014 02:11 PM
How do I auto-update the TODAY excel function within PowerPoint show presentation? Powerpoint100 PowerPoint 0 02-12-2013 01:45 PM
How to scroll down the slide while presentation running? aditya_bokade PowerPoint 6 08-12-2012 12:09 AM
Table update in running presentation rumdrum PowerPoint 0 02-10-2011 01:28 PM
Running total in Excel chart jen152638 Excel 0 06-14-2010 05:38 AM


All times are GMT -7. The time now is 10:47 AM.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
MSOfficeForums.com is not affiliated with Microsoft