Check alle échte Black Friday-deals Ook zo moe van nepaanbiedingen? Wij laten alleen échte deals zien

XL+PPT2007 - PPT-Excel Link automatische update

Pagina: 1
Acties:

  • tom0811
  • Registratie: Oktober 2013
  • Laatst online: 13-09-2024
Hoi

Volgend probleem/vraagstelling:
Op het werk hebben we een server met alle documenten. Tot deze server hebben 10-tallen PC's toegang.
Op de server staan 2 bestanden waar ik mee wil werken;
- een excel file met de gegevens + grafieken in verschillende sheets.
- 12 powerpoint files.
- Elke PC heeft een andere gebruiker

De powerpoint files moeten gaan lopen op verschillende PC's met groot scherm. Elke PC krijgt een afzonderlijke ppt omdat elke PC andere data moet weergeven.

De powerpoints blijven continue lopen op de schermen. Hier kan ik moeilijk aan.

Nu wil ik, als ik gegevens bewerk in de excel dat deze gegevens ook live te zien zijn in de powerpoint files. Ik heb een macro gevonden waarmee dit kan, de macro komt in de powerpoint:

Volgende in een class:
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


Deze in een module:
Dim app As clsEvents

Sub SetUpEvents()

Set app = New clsEvents
Set app.PPTEvent = Application

End Sub



Probleem met deze macro is dat wanneer ik de excel aan het bijwerken ben, en dus geopend is, er een foutmelding komt in de powerpoint dat de file geopend is door een andere gebruiker.
De macro wil de file dus volledig openen op de achtergrond. Is er een mogelijkheid dat deze 'alleen lezen' geopen word?

Zijn er eventueel andere manieren om links in een PPT te updaten zonder dat die opnieuw opgestart moet worden?
- Alleen lezen van de excel
- Update alleen als de excel gesloten is

Hopelijk kent iemand een oplossing!

Groetjes
Tom