Laufzeitfehler 91
12.12.2019 11:48:34
Tobias
ich habe mir ein Add-Inn für PowerPoint geschrieben, dass einen VBA Code beim starten einer Präsi ausführt.
In der PowerPoint Präsi sind ebenfalls Verknüpfungen zu Excel!
Ich habe die Verknüpfungen in PP auf manuelles aktualisieren gestellt und aktualisiere die Verknüpfungen mit einem Makro.
Das Problem ist jetzt, dass ich den Fehlercode "Laufzeitfehler 91 - Objektvariable oder with - blockvariable nicht festgelegt" (in Excel) bekomme, wenn ich die Präsentation starte ohne die Excel Datei mit den Verknüpfungen nebenher geöffnet zu haben.
Wenn ich beide verknüpften Dateien offen habe bekomme ich die Meldung nicht und das Makro läuft Problemlos...
Ich denke ich habe irgendwas in meinem Code vergessen zu instanziieren oder so aber ich finde den Fehler nicht.
Danke schonmal und Gruß
Tobias
Sub app_PresentationOpen(ByVal Pres As Presentation)
Dim PowerPoint As Object
Set PowerPoint = CreateObject("Powerpoint.Application")
PowerPoint.Visible = True
Application.DisplayAlerts = ppAlertsNone
PowerPoint.ActivePresentation.UpdateLinks
If ActivePresentation.Name = "MeinePowerPoint.pptm" Then
Dim p As Presentation, shp As Shape, slide As slide 'hier werden die Verknüpfungen _
geupdated
For Each p In Application.Presentations
For Each slide In p.Slides
For Each shp In slide.Shapes
If shp.Type = msoLinkedOLEObject Then
shp.LinkFormat.Update
End If
Next
Next
Next
Call checkFileOpenViaScriptingRuntime 'ist eigentlich unwichtig
If Weekday(Date) = 5 And Time > "09:29" And Time