PowerPoint aus Excel - confused
18.08.2004 09:11:13
Michl
Ich bin langsam richtig am Verzweifeln. Such mir schon die Finger blau nach meinem Problem und find nix. :(
Ich möchte aus einem Excel-Sheet heraus eine PowerPoint-Präsentation (test.ppt) starten und ein Makro namens "Change_Name", dass sich in dieser Präsentation befindet, ausführen. (Makro liegt im Modul mit dem Namen Modul1)
Hab mal folgenden Code angesetzt, der aber leider nicht funktioniert:
Private Sub Short()
Dim ppApp As Object
Dim ppP As Object
Dim sfile As String
sfile = "c:\test\test.ppt"
Set ppApp = CreateObject("PowerPoint.Application")
ppApp.Visible = msoTrue
Set ppP = ppApp.Presentations.Open(sfile)
ppApp.Run "Change_Name"
End Sub
Es wird zwar PowerPoint gestartet und die Präsentation öffnet sich auch, aber er hängt sich dann in der Befehlszeile mit Run auf. Die Meldung lautet:
"Laufzeitfehler '-2147188160 (80048240)':
Application.Run : Invalid request. Sub or function nod defined."
Könnt ihr mir mal sagen, was daran falsch ist, bzw. was da fehlt?
Ist es zudem möglich, dass man eine Variable (test = "überschrift"), die im Excel-Sheet festgelegt ist, nach PowerPoint transferiert und der diese z.b. in einem Texfeld ausliest?
Vielen Dank schonmal für eure Hilfe.
Gruß,
Michl