Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Diagramme aus Excel in Powerpoint aktualisieren ohne dass Excel Fenster sich öffnet

Diagramme aus Excel in Powerpoint aktualisieren ohne dass Excel Fenster sich öffnet
17.12.2019 10:12:45
maxwas
Hallo,
ich hoffe mich im richtigen Forum angemeldet zu haben und meine Frage korrekt zu platzieren.
Meine Frage ist folgende:
In einer Powerpointpräsentation sind Diagramme aus verschiedenen Exceldateien verknüpft, die über einen CommandButton aktualisiert werden.
Wird diese "Funktion" genutzt, poppt für jedes Diagramm einmal die Excel-Quelldatei auf und schließt sich wieder (im Vordergrund).
Meine Frage: wie kann ich verhindern, dass Excel in den Vordergrund springt?
Hier der verwendete Code:
Private Sub CB_Refresh_Click()
Dim myPresentation As PowerPoint.Presentation
Dim sld As PowerPoint.Slide
Dim shp As PowerPoint.Shape
Dim myChart As PowerPoint.Chart
Dim Wb As Object
Dim App As Object
Set myPresentation = ActivePresentation
For Each sld In myPresentation.Slides
For Each shp In sld.Shapes
If shp.HasChart Then
Set myChart = shp.Chart
myChart.ChartData.Activate
myChart.Refresh
Set Wb = myChart.ChartData.Workbook
Set App = Wb.Application
Wb.Close (0)
End If
Next
Next
App.Quit
End Sub
Vielen Dank und Grüße.
maxwas
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramme aus Excel in Powerpoint aktualisieren ohne dass Excel Fenster sich öffnet
17.12.2019 13:29:43
Werner
Hallo,
hast du schon mal versucht, das myChart.ChartData.Activate wegzulassen? Ich weiß aber nicht, ob das in dem Fall so funktioniert. Einfach mal versuchen.
Private Sub CB_Refresh_Click()
Dim myPresentation As PowerPoint.Presentation
Dim sld As PowerPoint.Slide
Dim shp As PowerPoint.Shape
Dim myChart As PowerPoint.Chart
Dim Wb As Object
Dim App As Object
Set myPresentation = ActivePresentation
For Each sld In myPresentation.Slides
For Each shp In sld.Shapes
If shp.HasChart Then
Set myChart = shp.Chart
myChart.Refresh
'oder
'myChart.ChartData.Refresh
Set Wb = myChart.ChartData.Workbook
Set App = Wb.Application
Wb.Close (0)
End If
Next
Next
App.Quit
End Sub
Oder bau mal am Anfang des Codes ein Application.ScreenUpdating = False ein:
Private Sub CB_Refresh_Click()
Dim myPresentation As PowerPoint.Presentation
Dim sld As PowerPoint.Slide
Dim shp As PowerPoint.Shape
Dim myChart As PowerPoint.Chart
Dim Wb As Object
Dim App As Object
Application.ScreenUpdating = False
Set myPresentation = ActivePresentation
For Each sld In myPresentation.Slides
For Each shp In sld.Shapes
If shp.HasChart Then
Set myChart = shp.Chart
myChart.ChartData.Activate
myChart.Refresh
Set Wb = myChart.ChartData.Workbook
Set App = Wb.Application
Wb.Close (0)
End If
Next
Next
App.Quit
End Sub
Gruß Werner
Anzeige
AW: Diagramme aus Excel in Powerpoint aktualisieren ohne dass Excel Fenster sich öffnet
17.12.2019 14:06:11
maxwas
Hallo Werner,
vielen Dank für die schnelle Rückmeldung.
- lasse ich myChart.ChartData.Activate weg bekomme ich einen Laufzeitfehler "Die Methode 'Workbook' für das Objekt 'ChartData' ist fehlgeschlagen"
- ändere ich myChart.Refresh in myChart.ChartData.Refresh bekomme ich die Fehlermeldung "Fehler beim Kompilieren | Methode oder Datenobjekt nicht gefunden"
- füge ich die Zeile mit ScreenupDating hinzu bekomme ich die Fehlermeldung "Fehler beim Kompilieren | Methode oder Datenobjekt nicht gefunden"
In der Annahme Deine Vorschläge richtig umgesetzt zu haben kann ich leider nicht berichten dass es von Erfolg gekrönt war.
Eventuell hast du oder jemand anderes noch weitere Ansätze, Ideen oder Lösungen?
Dennoch Vielen Dank schonmal
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Diagramme aus Excel in PowerPoint aktualisieren ohne Excel-Fenster


Schritt-für-Schritt-Anleitung

Um Diagramme in PowerPoint zu aktualisieren, ohne dass das Excel-Fenster öffnet, kannst du den folgenden VBA-Code verwenden. Dieser Code wird über einen CommandButton in deiner PowerPoint-Präsentation aufgerufen:

Private Sub CB_Refresh_Click()
    Dim myPresentation As PowerPoint.Presentation
    Dim sld As PowerPoint.Slide
    Dim shp As PowerPoint.Shape
    Dim myChart As PowerPoint.Chart
    Dim Wb As Object
    Dim App As Object
    Application.ScreenUpdating = False
    Set myPresentation = ActivePresentation
    For Each sld In myPresentation.Slides
        For Each shp In sld.Shapes
            If shp.HasChart Then
                Set myChart = shp.Chart
                myChart.Refresh
                Set Wb = myChart.ChartData.Workbook
                Set App = Wb.Application
                Wb.Close (0)
            End If
        Next
    Next
    App.Quit
End Sub

Stelle sicher, dass du den Code richtig in deinem PowerPoint-Projekt einfügst. Der Code durchläuft alle Folien und aktualisiert die Diagramme, ohne dass Excel im Vordergrund erscheint.


Häufige Fehler und Lösungen

  1. Excel-Diagramm aktualisiert nicht

    • Wenn das Diagramm nicht aktualisiert wird, überprüfe, ob die Datenquellen korrekt verknüpft sind. Du kannst die Verknüpfung über "Daten bearbeiten" in PowerPoint prüfen.
  2. Laufzeitfehler

    • Falls du einen Laufzeitfehler erhältst, wenn du myChart.ChartData.Activate weglässt, stelle sicher, dass du den Code korrekt implementiert hast. Diese Methode ist wichtig, um auf die Excel-Daten zuzugreifen.
  3. Fehler beim Kompilieren

    • Diese Fehlermeldung kann auftreten, wenn Methoden oder Objekte nicht gefunden werden. Überprüfe, ob du in der richtigen Umgebung arbeitest und die benötigten Referenzen gesetzt sind.

Alternative Methoden

Wenn du Diagramme in PowerPoint automatisch aktualisieren möchtest, ohne VBA zu verwenden, kannst du auch die Option „PowerPoint Diagramm mit Excel verknüpfen und aktualisieren“ im Menü verwenden. Hierbei wird das Diagramm direkt an die Excel-Datenquelle gekoppelt, was bedeutet, dass Änderungen in Excel automatisch in PowerPoint reflektiert werden.


Praktische Beispiele

  1. Diagramme erstellen in PowerPoint

    • Du kannst direkt in PowerPoint Diagramme erstellen, die dann mit Excel-Daten verknüpft werden. Um ein Diagramm zu erstellen, wähle „Einfügen“ > „Diagramm“ und wähle den gewünschten Diagrammtyp aus.
  2. Excel-Daten importieren

    • Wenn du bestehende Excel-Daten importierst, kannst du sicherstellen, dass diese beim Aktualisieren der Präsentation auch in den Diagrammen korrekt dargestellt werden.

Tipps für Profis

  • Verwende Verknüpfungen: Achte darauf, dass deine Diagramme immer mit der neuesten Excel-Datei verknüpft sind, um sicherzustellen, dass alle Änderungen automatisch aktualisiert werden.
  • Batch-Aktualisierung: Wenn du viele Diagramme hast, kannst du den Code anpassen, um alle Diagramme in einem Rutsch zu aktualisieren, was Zeit spart.
  • Zugriffsrechte prüfen: Stelle sicher, dass du die erforderlichen Zugriffsrechte auf die Excel-Dateien hast, um die Diagramme problemlos aktualisieren zu können.

FAQ: Häufige Fragen

1. Wie kann ich alle Diagramme in PowerPoint aktualisieren?
Du kannst alle Diagramme mit dem oben angegebenen VBA-Code aktualisieren. Dieser durchläuft alle Folien und aktualisiert jedes Diagramm.

2. Was tun, wenn das PowerPoint-Diagramm die Excel-Daten nicht aktualisieren kann?
Prüfe die Verknüpfungen der Diagramme. Oft hilft es, die Diagramme neu zu verknüpfen, um sicherzustellen, dass sie die richtigen Daten verwenden.

3. Ist es möglich, Diagramme in PowerPoint zu bearbeiten?
Ja, du kannst die Diagramm-Daten in PowerPoint auswählen und bearbeiten, jedoch kann es sein, dass du die Excel-Datei erneut öffnen musst, um die Daten zu ändern.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige