Thema Datum  Von Nutzer Rating
Antwort
Rot von Excel aus auf PowerPoint zugreifen und Slides in neue PPT kopieren
15.08.2018 19:02:01 nessi
NotSolved

Ansicht des Beitrags:
Von:
nessi
Datum:
15.08.2018 19:02:01
Views:
72
Rating: Antwort:
  Ja
Thema:
von Excel aus auf PowerPoint zugreifen und Slides in neue PPT kopieren

Hallo zusammen,

ich bräuchte bitte dringend Hilfe bei der Programmierung eines VBA-Makros in Excel, das auf PowerPoint zugreift. Nach erster Recherche und Versuchen der Programmierung komme ich leider als kompletter Laie auf dem Gebiet nicht weiter.

Es geht um Folgendes:

In einer Excel-Tabelle soll per Auswahl bestimmter Aktionen in Kombination, eine bestimmte Info-Slide gezogen werden. Diese Info-Slides sind je nach ausgewählter Kombination unterschiedlich. Nun sollen in einer Spalte in Excel die Seitenzahlen einer PowerPoint-Präsentation aufgelistet sein, in der diese Info-Slides gespeichert sind. Mithilfe des Makros sollen aus der großen Gesamt-PowerPoint-Präsi genau die, in den Zellen in Excel ausgewählten, Seitenzahlen bzw. Slides dann kopiert und in eine neue (komprimierte) PowerPoint geöffnet und gespeichert werden.

Da ich wie gesagt leider absolut keine Ahnung von Programmierung habe, habe ich über Recherchen und Probieren bisher nur folgenden Code zustande bekommen:

   Sub PowerpointTest ()

   Dim pptPres As Presentation
   Dim strPfad As String
   Dim pptName As String
   Dim testSlide As PowerPoint.Slide

   pptName = “Test.pptx”
   strPfad = “C:\Users\xy”

   Set pptApp = CreateObject (“Powerpoint.Application”)

   pptApp.Presentations.Add

   pptPres.SaveAs strPfad & pptName

   End Sub

Leider schaffe ich es mit diesem Code lediglich eine neue PowerPoint-Präsentation zu öffnen…das Speichern über SaveAs funktioniert irgendwie nicht so wie gedacht…

Außerdem habe ich gelesen, dass es eventuell über den untenstehenden Code möglich wäre Slides einer Präsentation zu kopieren und irgendwo einzufügen…aber leider funktioniert der Code bei mir nicht.

   Sub

   Dim ppZiel As Presentation
   Dim ppQuelle As Presentation

   Set ppQuelle = Presentations.Open (“Pfad und Name der Gesamtpräsi)
   Presentations („Name der Präsi“).Slides.Range(Array(1,5)).Copy
   ppZiel.Slides.Paste

   …?

Ich bin um jede Hilfe dankbar…seien es Verbesserungen an oben stehenden Codes oder ein komplett neuer Vorschlag! ??

Vielen Dank!!!


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 von Excel aus auf PowerPoint zugreifen und Slides in neue PPT kopieren
15.08.2018 19:02:01 nessi
NotSolved