ActiveX Problem

[Gerhard Kessling]

Ich habe ein Problem bei der integrierten Programmierung Office 97 mit
ActiveX.
Hier eine kurze Beschreibung von Programm und Problem:
Daten eines Meßgerätes sollen mit Excel ausgewertet werden. U.a.
entstehen 36 Netzdiagramme. Diese sollen, zusammen mit einigen
Kalkulationen, in einer PowerPoint- Präsentation angezeigt werden.Das
Excel-Programm ist ein Add-In, die zuzeigende Präsentation existiert und
alle Informationen sind hier als Verknüpfungen eingefügt.
Folgender Programmcode soll die beschriebene Aufgabe realisieren:
Set ppdatei = GetObject("c:\kessling\test.ppt")
ppsdatei = "TestShow"
With ppdatei
.UpdateLinks
.SaveAs ppsdatei, ppSaveAsShow
ppsPfad = .Path
End With
ppsdatei = ppsPfad & "\" & ppsdatei & ".pps"
Set ppdatei2 = GetObject(ppsdatei)
With ppdatei2
.SlideShowSettings.Run
End With
Set ppdatei2 = Nothing
Set ppdatei = Nothing
Problem:
Sobald die Präsentation gezeigt wird, kommt folgende PowerPoint
Fehlermeldung:
"Ein Fehler ist aufgetreten, der nicht behoben werden kann. Speichern
Sie Ihre Präsentation.... usw."
Die Präsentation wird dennoch gezeigt, und ist auch aktualisiert, aber
die Fehlermeldung ist störend. Ich habe alles mögliche probiert, diese
Meldung zu unterdrücken, bzw. die Fehlerquelle zu finden. Könnte es an
den vielen Verknüpfungen liegen?

Als Alternative habe ich es mal mit Kopieren der Diagramme über die
Zwischenablage versucht, funktionierte auch. Ist aber fürchterlich
langsam (ca. 2 min für 6 Diagramme). Ferner fiel mir hierbei auf, daß
bei jedem Copy-Paste Vorgang eine separate Excelmappe geöffnet und
wieder geschlossen wird. Ist das Normal , (a) die Dauer, (b) die sep.
Mappe?
Danke!
-----------------------------------------------
Dr. Gerhard Kessling,
Max-Planck-Institute for biophysical Chemistry,
POBox, D-37070 Goettingen, Germany.
Phone +49 551 201 1414, FAX +49 551 201 1011
E-Mail kess...@mpibpc.gwdg.de
WWW http://www.mpibpc.gwdg.de
-----------------------------------------------