Excel-Daten in PowerPoint-Folien

56744
nqw1

Ich habe bereits einige hilfreiche Websites gefunden, kann aber immer noch nicht tun, was ich will. Meine Excel-Datei enthält einige Spalten und mehrere Zeilen. Alle Daten aus einer Zeile würden sich auf einer Folie befinden, Daten aus verschiedenen Zellen in dieser einen Zeile sollten jedoch auf bestimmte Elemente in der PP-Folie übertragen werden. Ist es zunächst möglich, Daten aus einer Excel-Zelle in ein bestimmtes Textfeld in PP zu exportieren? Zum Beispiel möchte ich, dass alle Daten aus der ersten Spalte jeder Zeile in ein Textfeld 1 verschoben werden. Nehmen wir an, ich habe 100 Zeilen, also hätte ich 100 Folien und jede Folie hätte Textbogen 1 mit korrekten Daten. Das Textfeld der Folie 66 hätte Daten aus der ersten Spalte der Zeile 66. Dann würden alle Daten aus der zweiten Spalte jeder Zeile zu einem Textbogen 2 und so weiter gehen.

Ich habe versucht, einige Makros mit schlechtem Erfolg zu erstellen. Ich habe auch versucht, Word-Konturen zu verwenden und sie in PP zu exportieren (Neue Folie -> Folien aus Gliederung), aber es scheint einen Fehler zu geben, seit ich 250 Seiten Kauderwelsch habe. Ich hatte nur zwei Absätze und beide hatten ein Wort. Erster Absatz verwendet Überschrift 1 Stil und zweiter Absatz Normaler Stil.

Sites, die ich gefunden habe, verwenden VB und / oder eine andere Programmiersprache, um Folien aus Excel-Tabellen zu erstellen. Ich habe versucht, diese VB-Codes in meine Makros einzufügen, aber keiner von ihnen hat bisher nicht funktioniert. Wahrscheinlich weiß ich einfach nicht, wie ich sie richtig einsetzen soll :) Hier sind einige hilfreiche Seiten:

VBA: Erstellen Sie eine PowerPoint-Folie für jede Zeile in Excel-Arbeitsmappe

Erstellen eines Präsentationsberichts basierend auf Daten

Frage in Stackoverflow

Ich verwende Office 2011 auf dem Mac. Jede Hilfe wäre dankbar!

5
Der erste Link erledigt die meiste Arbeit für Sie, aber anstatt den Text aus der ersten Zeile willkürlich in das erste Textfeld der Folie einzufügen, können Sie jede Form auf der Folie schrittweise durchgehen und beispielsweise nach Text suchen. Spalte 1 ", und ersetzen Sie dies durch den Text aus der Zelle in Spalte 1 der ersten Zeile. Steve Rindsberg vor 12 Jahren 0
Ich erhalte eine Fehlermeldung, wenn ich versuche, das Makro auszuführen. Fehler ist in der Zeile: "Set OWB = Excel.Application.Workbooks.Open (" C: \ list.xlsx ")". Ich habe den Dateipfad geändert, aber PP sagt immer "ActiveX-Komponente kann kein Objekt erstellen". Was könnte das Problem sein? nqw1 vor 12 Jahren 0
Haben Sie den Verweis auf die VBA-Bibliothek von Excel in VB Editor hinzugefügt (über Extras> Verweise)? Haben Sie in Ihrem Code eine Instanz von Excel erstellt? [z. B. Dim appXL als Excel.Application, dann Set appXL = CreateObject ("Excel.Application") oder Set appXL = GetObject ("Excel.Application")] variant vor 12 Jahren 0
Ich befolge diese Anweisungen: http://www.craig-tolley.co.uk/2011/06/08/vba-create-powerpoint-slide-for-each-row-in-excel-workbook/ und ich hatte fügte auch diese Referenz hinzu. Ich weiß nicht, wie ich den Code in Anweisungen mit dem von Ihnen angegebenen Code ändern soll, oder ist der Code in Anweisungen bereits ausreichend nqw1 vor 12 Jahren 0
versuchen Sie es mit www.pptxbuilder.com Boosted_d16 vor 5 Jahren 0

3 Antworten auf die Frage

2
Steve Rindsberg

Versuchen Sie so etwas. Ich habe ein paar Mods gemacht, so dass jede Instanz des Textes @ COL1 @ auf der Folie durch Werte aus dem Arbeitsblatt ersetzt wird. Ungeprüfter Aircode, wohlgemerkt.

Sub CreateSlides() 'Open the Excel workbook. Change the filename here. Dim OWB As New Excel.Workbook Set OWB = Excel.Application.Workbooks.Open("C:\list.xlsx") 'Grab the first Worksheet in the Workbook Dim WS As Excel.Worksheet Dim sCurrentText As String Dim oSl As Slide Dim oSh As Shape Set WS = OWB.Worksheets(1) Dim i As Long 'Loop through each used row in Column A For i = 1 To WS.Range("A65536").End(xlUp).Row 'Copy the first slide and paste at the end of the presentation ActivePresentation.Slides(1).Copy Set oSl = ActivePresentation.Slides.Paste(ActivePresentation.Slides.Count + 1) sCurrentText = WS.Cells(i, 1).Value  ' find each shape with "@COL1@" in text, replace it with value from worksheet For Each oSh In oSl.Shapes ' Make sure the shape can hold text and if is, that it IS holding text If oSh.HasTextFrame Then If oSh.TextFrame.HasText Then ' it's got text, do the replace With oSh.TextFrame.TextRange .Replace "@COL1@", sCurrentText End With End If End If Next Next End Sub
Danke für Ihre Hilfe! Ich bekomme immer noch die gleiche Fehlermeldung: / Ich bekomme eine Fehlermeldung, wenn ich versuche, das Makro auszuführen. Fehler ist in der Zeile: "Set OWB = Excel.Application.Workbooks.Open (" C: \ list.xlsx ")". Ich habe den Dateipfad geändert, aber PP sagt immer "Fehler 429: ActiveX-Komponente kann kein Objekt erstellen". Ich weiß nicht was ich falsch mache: / nqw1 vor 12 Jahren 0
Ich fürchte, die Antwort auf "Was mache ich falsch?" Lautet möglicherweise: "Sie verwenden einen Mac." Soweit ich weiß, werden unter OSX / Office keine ActiveX-Objekte unterstützt. Es gibt einen sehr intelligenten Mann, Ron DeBruin, einen Excel-Experten, der sich gerade in seinen neuen Mac verliebt hat und sich mit Inkompatibilitäten für Mac / PC-VBA befasst. Er veröffentlicht seine Ergebnisse, während er weitergeht: http://www.rondebruin.nl/mac.htm Wenn Sie dort keine Antwort finden, möchten Sie vielleicht im Mac Office-Abschnitt von http: // answers nachschlagen. microsoft.com Steve Rindsberg vor 12 Jahren 0
Ich habe die Lösung etwas erweitert - natürlich gebührt diese Seite, auf der ich die Lösung für mein Problem gefunden habe. http://locutus-one.blogspot.de/2012/08/data-von-excel-to-powerpoint.html vor 11 Jahren 0
2
nixda

Der Excel-Import des PowerPoint-Add-Ins kann Excel-Daten in PowerPoint importieren

Was es macht

  • Importiert Excel-Daten in Ihre geöffnete Präsentation
    Methode: Eine Excel-Zeile pro PowerPoint-Folie, eine Zelle pro Textfeld auf der aktuellen Folie
  • kann das Excel-Arbeitsblatt auswählen, aus dem Daten entnommen werden, wenn mehrere Arbeitsblätter vorhanden sind
  • können Folien automatisch hinzufügen, wenn Ihre Excel-Datei mehr Zeilen als Folien in Powerpoint enthält
  • warnt Sie, wenn nicht genügend Textfelder (Formen) vorhanden sind, um alle Daten einer Zeile zu enthalten
  • funktioniert mit jeder Microsoft Office-Version

Wie benutzt man

  • Laden Sie das Add-In herunter
  • Speichern Sie es in Ihrem Micorsoft Office Add-In-Ordner.
    Tipp: Drücken Sie Win+ Rund geben Sie % AppData% \ Roaming \ Microsoft \ AddIns ein
  • Öffnen Sie PowerPoint und aktivieren Sie das Add-In
    • Excel 2003: Menüleiste → Extras → Add-Ins
    • Excel 2007: Start-Schaltfläche → Excel-Optionen → Add-Ins → Dropdown: Excel-Add-Ins → Los
    • Excel 2010: Registerkarte Datei → Optionen → Add-Ins → Dropdown: Excel-Add-Ins → Start
  • Ein neuer Menüleisteneintrag wird angezeigt
    enter image description here
  • Die neue Schaltfläche zum Importieren von Excel-Daten öffnet ein Dateidialogfeld, in dem Sie Ihre Excel-Datei auswählen können.
    Wenn Sie über genügend Textfelder verfügen, werden diese vom Add-In ausgefüllt

Sehen Sie sich dieses kurze Imgur-Album an, um das Add-In zu veranschaulichen

Hinweis: Wenn Sie den Code anpassen möchten, müssen Sie einen Registrierungsschlüssel hinzufügen, um den Add-In-Code anzuzeigen.
Der Quellcode kann auf Pastebin eingesehen werden

0
Matt in NH

PPTools arbeitet nicht mit 64-Bit, was jetzt Standard ist.

PowerPoint öffnet Word-Dokumente. Und Word öffnet HTML.

  1. Fügen Sie in Excel links eine Spalte ein.
  2. Fügen Sie das HTML-Tag <h1> in jede Zelle in dieser Spalte ein.
  3. Fügen Sie in einer Spalte ganz rechts in jede Zelle das HTML-Tag </ h1> ein.
  4. Kopieren / Fügen Sie das gesamte Blatt in den Notizblock ein.
  5. Fügen Sie diese Tags oben ein: <html> <body>
  6. Fügen Sie diese Tags unten hinzu: </ body> </ html>
  7. Suchen / Ersetzen Sie alle Registerkarten durch nichts, um sie zu entfernen.
  8. Speichern Sie das als Etwas.html. Schließen Sie es jetzt.
  9. Öffnen Sie es in Word.
  10. Speichern Sie es als etwas.docx
  11. Schließen Sie es jetzt.
  12. Öffnen Sie something.docx in PowerPoint (wählen Sie "alle Dateien" statt "* .pptx").
  13. PowerPoint SOLLTE den gesamten Inhalt jetzt importieren, wobei jede Zeile als Folie angezeigt wird.

Verwandte Probleme