Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Excel Verknüpfungen während der laufenden Präsentation aktualisieren.
#1
Hallo miteinander,

meine Kentnisse in Makros sind leider sehr schlecht. Kennt sich jemand damit aus?

Ich möchte gerne eine Powerpoint erstellen, die im Kioskmodus dauerhaft durchläuft (rund um die Uhr). Innerhalb dieser Präsentation gibt es auf 3 Seiten jeweils eine Excel-Verknüpfung zu 2 Excel-Dateien.
Diese Verküpfungen sollten sich nach X-Stunden aktualisieren, während die Präsentation noch läuft.

Hat jemand hier eine Idee, wie dies umgesetzt werden kann bzw. kennt sich mit Makros aus und könnte mir so einen Code schreiben.

Ich habe mir einen Code im WWW rausgesucht, doch dieser funktioniert nicht.

Sub REFRESH_PowerPoint_Charts()

Dim pptChart As Chart
Dim pptChartData As ChartData
Dim pptWorkbook As Object
Dim sld As Slide
Dim shp As Shape

For Each sld In ActivePresentation.Slides
    For Each shp In sld.Shapes
        If shp.HasChart Then
            Set pptChart = shp.Chart
            Set pptChartData = pptChart.ChartData
            pptChartData.Activate
            shp.Chart.Refresh
            On Error Resume Next
        End If
    Next
Next

Set pptWorkbook = Nothing
Set pptChartData = Nothing
Set pptChart = Nothing

End Sub


In einem Forum bin ich auch noch auf folgenden gestoßen, der leider auch nicht funktioniert.

Sub Update()
For Each sld In ActivePresentation.Slides

    For Each sh In sld.Shapes

        If sh.Type = msoLinkedOLEObject Then

            sh.LinkFormat.Update

        End If

    Next

Next

End Sub



Vielen lieben Dank!
Antwortento top
#2
Hallöchen,

da macht es einer ganz anders:

dynamic-charts-powerpoint-self-refreshing-charts-using-vba/
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
[-] Folgende(r) 1 Benutzer sagt Danke an schauan für diesen Beitrag:
  • Kopiniko
Antwortento top
#3
Danke für den Link. Ich habe es mir soeben angeschaut. Mein Problem ist, dass ich in meinen Excel Tabellen keine Diagramme habe. Es sind bei mir Tabellen, die mit Formeln den Inhalt entsprechend generieren. Das heißt an bestimmten Tagen werden in diesem Zellen die entsprechenden Werte abgebildet. Somit funktioniert die diagrammlösung bei mir nicht. Leider 22
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste