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:
70
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 genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

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