Thema Datum  Von Nutzer Rating
Antwort
Rot Exceldaten in vorhandene Powerpoint Vorlage einfügen
 28.05.2020 17:38:57 cedi1998
NotSolved

Ansicht des Beitrags:
Von:
cedi1998		 Datum:
28.05.2020 17:38:57		 Views:
1713		 Rating:
     
Antwort:
  Ja
Thema:
Exceldaten in vorhandene Powerpoint Vorlage einfügen

Hallo,

ich bekomme bei meinem Code immer die Fehlermeldung: Laufzeitfehler '-2147024894 (800700002)': Die Methode 'Open' für das Objekt 'Presentations' ist fehlgeschlagen. der Fehler erscheint in der mit dem Pfeil markierten Zeile. Ich möchte eigentlich nur eine Excel Tabelle in eine von mir bereits erstellte Powerpoint Vorlage einfügen

Kann mir da jemand weiterhelfen, oder hat jemand eine Idee, wie ich das auch anders hinkriege? Vielen Dank schonmal.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Excel_to_Powerpoint()
 
Dim pptPres As PowerPoint.Presentation
Dim pptApp As PowerPoint.Application
Dim pptVorlage As String
 
 
    pptVorlage = "D:\Users\BKU\CedricWirth\Desktop\DHBW_Mosbach\T2000\Test\VorlagePSB.potx"
    
     
    Set pptApp = CreateObject("Powerpoint.Application")
    pptApp.Visible = True
     
-->    pptPres = pptApp.Presentations.Open(pptVorlage, ReadOnly:=msoFalse, Untitled:=msoTrue)
     
     
    pptPres.Slides(1).Select
     
    pptPres.Slides(1).Shapes("Projektnummer").TextFrame.TextRange.Characters.Text = Range("B10").Value
    pptPres.Slides(1).Shapes("Projektbezeichnung").TextFrame.TextRange.Characters.Text = Range("B11").Value
    pptPres.Slides(1).Shapes("Bahnhofsname").TextFrame.TextRange.Characters.Text = Range("B12").Value
    pptPres.Slides(1).Shapes("Stadt").TextFrame.TextRange.Characters.Text = Range("B12").Value
 
......

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Exceldaten in vorhandene Powerpoint Vorlage einfügen
 28.05.2020 17:38:57 cedi1998
NotSolved