Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Diagramm VBA aktualisieren, dabei Excel verstecken
zurück: Bilder beim Einfügen automatisch auf 20% Skallieren weiter: Freihandzeichnungen während der Präsi per VBA speichern Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
NoLucker
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. März 2014, 18:04
Rufname:


Diagramm VBA aktualisieren, dabei Excel verstecken - Diagramm VBA aktualisieren, dabei Excel verstecken

Nach oben
       Version: Office 2007

Hola!

Ich habe folgenden VBA-Code, welcher beim Aufruf der ersten Folie das dort vorhandene Diagramm aktualisiert. (Die Verknüpfungen in der Daten-Datei werden aktualisiert)

Hintergrund: In den Diagrammdaten sind Werte, welche aus anderen Excel-Dateien übernommen werden und sich während der Präsentation - welche durchgehend in Schleife läuft - ändern können.

Das ganze funktioniert soweit auch super, das einzige Problem an der Geschichte ist, dass während des Aktualisierens das Excelfenster trotz laufender Präsentation in den Vordergrund springt und dort auch bleibt. Die Präsentation läuft in dem Moment dann natürlich nicht weiter.

Frage nun: Wie kann ich verhindern, dass das Excelfenster in den Vordergrund springt? Jemand eine Idee?

Code:
Sub OnSlideShowPageChange()
    Dim i As Integer
   
    i = ActivePresentation.SlideShowWindow.View.CurrentShowPosition
    If i <> 1 Then Exit Sub
   
    Dim pptChart As Chart
    Dim pptChartData As ChartData
    Dim xlWorkbook As Object
    Dim sld As Slide
    Dim shp As Shape
   
    'For Each sld In ActivePresentation.Slides
        For Each shp In ActivePresentation.Slides(1).Shapes
            If shp.HasChart Then
                Set pptChart = shp.Chart
                Set pptChartData = pptChart.ChartData
                pptChartData.Activate
               
      'ActivePresentation.SlideShowWindow.Activate
                Set pptWorkbook = pptChartData.Workbook
                On Error Resume Next
                pptWorkbook.UpdateLink pptWorkbook.LinkSources(1)
                pptWorkbook.UpdateLink pptWorkbook.LinkSources(2)
                On Error GoTo 0
                pptWorkbook.Close True
            End If
        Next
    'Next

    Set pptWorkbook = Nothing
    Set pptChartData = Nothing
    Set pptChart = Nothing
End Sub
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Powerpoint Präsentationen: Schriftart von Diagramm ändert sich beim Einfügen in PP 2 gw_08 901 07. Jun 2011, 11:42
Ute-S Schriftart von Diagramm ändert sich beim Einfügen in PP
Keine neuen Beiträge Powerpoint Präsentationen: Folienmaster aktualisieren 3 Gigoloart.inc 3779 01. Apr 2011, 15:03
G.O.Tuhls Folienmaster aktualisieren
Keine neuen Beiträge Powerpoint Präsentationen: Zweite Präsentationen öffnen, dabei die Erste schließen 1 projekt 929 15. Okt 2010, 17:30
Ute-S Zweite Präsentationen öffnen, dabei die Erste schließen
Keine neuen Beiträge Powerpoint Präsentationen: Untermaster automatisch aktualisieren 0 patrickmb 1287 04. Dez 2009, 17:07
patrickmb Untermaster automatisch aktualisieren
Keine neuen Beiträge Powerpoint Präsentationen: Excel Diagramm verknüpfen mit Powerpoint chart 8 Gast 10555 17. Nov 2009, 18:03
Fin Excel Diagramm verknüpfen mit Powerpoint chart
Keine neuen Beiträge Powerpoint Präsentationen: *T*Agenda in Powerpoint auf allen Folien aktualisieren 0 Johannes l. 2332 04. Nov 2009, 10:11
Johannes l. *T*Agenda in Powerpoint auf allen Folien aktualisieren
Keine neuen Beiträge Powerpoint Präsentationen: Hilfe! Probleme mit benutzerdefiniertem Diagramm 2 ilcigno 306 13. Aug 2009, 09:35
Danke! Hilfe! Probleme mit benutzerdefiniertem Diagramm
Keine neuen Beiträge Powerpoint Präsentationen: Im Diagramm Text statt Zahlen 1 mark21_11 1828 31. Jul 2009, 11:42
Ute-S Im Diagramm Text statt Zahlen
Keine neuen Beiträge Powerpoint Präsentationen: Verknüpfungen auf einmal aktualisieren 1 Michi70 1599 23. Apr 2009, 15:39
Gast #x Verknüpfungen auf einmal aktualisieren
Keine neuen Beiträge Powerpoint Präsentationen: Skalierungsproblem X-Achse Punkt(x,y)-Diagramm 3 had 4545 04. März 2009, 16:14
Gast Skalierungsproblem X-Achse Punkt(x,y)-Diagramm
Keine neuen Beiträge Powerpoint Präsentationen: Verknüpften Word-Text automatisch aktualisieren 3 bobnoise 5163 23. Jun 2008, 13:34
Forumschleicher(1) Verknüpften Word-Text automatisch aktualisieren
Keine neuen Beiträge Powerpoint Präsentationen: Diagramm um 90° drehen 3 Annö 5728 27. März 2008, 13:17
Ute-S Diagramm um 90° drehen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project