Ich möchte einen Wert von Excel in eine PowerPoint Präsentation übertragen.
Wenn ich die PowerPoint "Test.pptx" offen halte, funktioniert alles einwandfrei.
Das Makro sollte aber auch das pptx öffnen, was leider nicht funktioniert und ich kann keinen Fehler erkennen.
Set App = CreateObject("PowerPoint.Application")
'Offnen der Powerpoint Präsentation von Location H:\Test.pptx
App.Presentations.Open "H:\Test.pptx"
App.Visible = True
Word = ActiveCell(1, 1)
habe mir beides in einen Unterordner von User\...\Download abgespeichert.
Statt "Hallo" habe ich mal im Makro =Word (die Variable) eingebaut.
Dann in der Datei xls(m) auch von Hallo auf "Geht doch" geändert,
gespeichert und Makro aufgerufen.
Ergebnis:
PPT geht auf, es steht das gewünschte "Geht doch" auf der ersten Folie.
Vielleicht ist der Pfad nicht korrekt? H\Dateiname
Gruß
Georg
danke für deine Hilfe, aber den ":" habe ich gesetzt.
Ich habe es jetzt nochmals zu Hause mit einen anderen Pfad versucht, leider das selbe Ergebnis, bei Zeile 9 mit Verweis auf den Pfad bleibt das Programm hängen.
LG
Tommy
(16.09.2015, 16:18)Excelfreak1711 schrieb: Hallo,
habe mir beides in einen Unterordner von User\...\Download abgespeichert.
Statt "Hallo" habe ich mal im Makro =Word (die Variable) eingebaut.
Dann in der Datei xls(m) auch von Hallo auf "Geht doch" geändert,
gespeichert und Makro aufgerufen.
Ergebnis:
PPT geht auf, es steht das gewünschte "Geht doch" auf der ersten Folie.
Vielleicht ist der Pfad nicht korrekt? H\Dateiname
Gruß
Georg
17.09.2015, 08:44 (Dieser Beitrag wurde zuletzt bearbeitet: 17.09.2015, 08:51 von WillWissen.
Bearbeitungsgrund: Zitat-Tags richtig gesetzt
)
(16.09.2015, 23:14)tommy71 schrieb: Hallo Georg,
danke für deine Hilfe, aber den ":" habe ich gesetzt.
Ich habe es jetzt nochmals zu Hause mit einen anderen Pfad versucht, leider das selbe Ergebnis, bei Zeile 9 mit Verweis auf den Pfad bleibt das Programm hängen.
LG
Tommy
Hallo Tommy,
das reimt sich nicht. Auch C:Users... geht nicht?Dateiname ist doch richtig "Test.pptx", oderLiegts an irgendwelchen Rechten?Kann leider Deinen Fehler nicht "nachproduzieren".Vielleicht gibt\'s da im Forum einen Fachmann für Runtime-Fehler?
App.Visible = True
gehört vor
App.Presentations.Open "H:\Test.pptx"
Also richtig ist:
App.Visible = True
App.Presentations.Open "H:\Test.pptx"
Warum ist das so?
Das wissen die Experten unter euch, vielleicht kann es jemand kurz beantworten.
Für mich würde es nämlich andersrum mehr Sinn machen.
