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