Thema Datum  Von Nutzer Rating
Antwort
Rot Mehrere Grafiken aus Excel auf ein PowerPoint-Sheet kopieren
 13.06.2018 17:12:34 Tobi S.
NotSolved

Ansicht des Beitrags:
Von:
Tobi S.		 Datum:
13.06.2018 17:12:34		 Views:
731		 Rating:
     
Antwort:
  Ja
Thema:
Mehrere Grafiken aus Excel auf ein PowerPoint-Sheet kopieren
Hallo zusammen, ich habe folgendes Problem: Ich möchte per VBA-Code Daten aus Excel in eine PowerPoint-Vorlage kopieren. Dies klappt auch super, bis ich mehrere Grafiken in ein PowerPoint-Sheet einfügen möchte. Dann wirft es mir alle Grafiken + Überschrift übereinander in die Mitte des Sheets. Anbei mein Code. Hat jemand eine Idee, wo mein Fehler liegt? Vielen Dank! Mit freundlichen Grüßen Sub CreateNewPresentation() Dim ppApp As PowerPoint.Application Dim ppPres As PowerPoint.Presentation Dim ppSlide As PowerPoint.Slide Dim strPfad As String Dim strPOTX As String Dim ppTextbox As PowerPoint.Shape strPfad = "C:\Users\t.s\Desktop\VBA-Projekt\" strPOTX = "Vorlage.ppt" Set ppApp = New PowerPoint.Application ppApp.Presentations.Open Filename:=strPfad & strPOTX, untitled:=msoTrue ppApp.Visible = True ppApp.Activate Set ppPres = ppApp.ActivePresentation ppPres.Slides(1).Select ppPres.Slides(1).Shapes("Titel 3").TextFrame.TextRange.Characters.Text = Range("Umsatz!A1").Value ppPres.Slides(1).Shapes("Textfeld 1").TextFrame.TextRange.Characters.Text = Range("Umsatz!C1").Value ppPres.Slides(2).Select ppPres.Slides(2).Shapes("Titel 5").TextFrame.TextRange.Characters.Text = Range("Umsatz!A1").Value Worksheets("Umsatz-EBIT").Range("C2:Y11").CopyPicture ppPres.Slides(2).Shapes.Paste With ppPres.Slides(2).Shapes(1) .Width = 700 .Left = 0 .Top = 300 End With Worksheets("Gesamt").Range("B13:N31").CopyPicture ppPres.Slides(2).Shapes.Paste With ppPres.Slides(2).Shapes(2) .Width = 700 .Left = 0 .Top = 150 End With ppPres.SaveAs strPfad & Range("Umsatz!A1") & "_" & Range("Umsatz!C1") & ".pptx" ppPres.Close ppApp.Quit Set ppPres = Nothing Set ppApp = Nothing End Sub

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:



  • 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 Mehrere Grafiken aus Excel auf ein PowerPoint-Sheet kopieren
 13.06.2018 17:12:34 Tobi S.
NotSolved