Aktualisierung der Daten von PowerPoint Diagramm via VBA funktioniert nur zweimal

  • PowerPoint

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von ABSOLUTER_BEGINNER.

    Aktualisierung der Daten von PowerPoint Diagramm via VBA funktioniert nur zweimal

    Liebe Forumsmitglieder,
    via Userform gebe ich Werte an ein PPT-Dok weiter, die unterschiedliche Diagramme befüllen sollen. Der angeführte Code funktioniert auch problemlos bei Office 2010/2013. Mit der Umstellung auf O365 tritt ein seltsamer Fehler auf. Die ersten beiden Diagramme werden wunderbar aktualisiert, dem dritten werden Werte korrekt mitgegeben es bleibt aber unverändert und beim vierten geht die Datenquelle verloren und man kann es auch händisch nicht mehr bearbeiten. Hat jmd ne Erklärungs- oder besser Lösungsidee? Muss ich irgendetwas beenden, aufrufen etc.?

    Danke für Tipps

    Quellcode

    1. Option Strict On
    2. Imports Excel = Microsoft.Office.Interop.Excel
    3. Imports PowerPoint = Microsoft.Office.Interop.PowerPoint
    4. Imports System.IO
    6. Public Class Eingabemaske
    9. Private Sub ButtonGutachtenErstellen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonGutachtenErstellen.Click
    10. Dim WorkBook As Excel.Workbook
    11. Dim WorkSheet As Excel.Worksheet
    13. Dim AppPfad As String = Application.StartupPath
    14. Dim PPT As PowerPoint.Application
    15. Dim PPTDoc As PowerPoint.Presentation
    16. Dim Chart1 As PowerPoint.Chart
    17. Dim Chart2 As PowerPoint.Chart
    18. Dim Chart3 As PowerPoint.Chart
    19. Dim Chart4 As PowerPoint.Chart
    21. Dim PPTPfad As String = "Vorlagen\Gutachtenvorlage2.potx"
    23. PPT = CType(CreateObject("PowerPoint.Application"), PowerPoint.Application)
    24. If File.Exists(Path.Combine(AppPfad, PPTPfad)) Then
    25. PPTDoc = PPT.Presentations.Open(Path.Combine(AppPfad, PPTPfad), Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue, Microsoft.Office.Core.MsoTriState.msoCTrue)
    26. LabelStatus.Text = "Die Dokumentenvorlage wurde geladen."
    27. Else
    28. MsgBox("Die Dokumentenvorlage konnte nicht geöffnet werden. Bitte überprüfen Sie, ob die Datei vorhanden ist. Es wurde kein Gutachten erstellt.")
    29. PPT.Quit()
    30. PPTDoc = Nothing
    31. LabelStatus.Text = "Gutachtenerstellung fehlgeschlagen!"
    32. Exit Sub
    33. End If
    35. With PPTDoc.Slides(1).Shapes
    36. If CBool(.Item("Inhaltsplatzhalter 5").HasChart) Then
    37. Chart1 = CType(.Item("Inhaltsplatzhalter 5").Chart, PowerPoint.Chart)
    38. Chart1.ChartData.Activate()
    39. WorkBook = CType(Chart1.ChartData.Workbook, Excel.Workbook)
    40. WorkSheet = CType(WorkBook.Sheets(1), Excel.Worksheet)
    41. With WorkSheet
    42. .Range("C7").Value = 2
    43. .Range("C2").Value = 2
    44. .Range("C3").Value = 2
    45. .Range("C4").Value = 2
    46. .Range("C5").Value = 2
    47. .Range("C6").Value = 2
    49. .Range("B7").Value = 2
    50. .Range("B2").Value = 2
    51. .Range("B3").Value = 2
    52. .Range("B4").Value = 2
    53. .Range("B5").Value = 2
    54. .Range("B6").Value = 2
    55. End With
    56. WorkBook.Close()
    58. Chart1 = Nothing
    59. WorkBook = Nothing
    60. WorkSheet = Nothing
    62. System.Threading.Thread.Sleep(1000)
    64. End If
    66. If CBool(.Item("Inhaltsplatzhalter 6").HasChart) Then
    67. Chart2 = CType(.Item("Inhaltsplatzhalter 6").Chart, PowerPoint.Chart)
    68. Chart2.ChartData.Activate()
    69. WorkBook = CType(Chart2.ChartData.Workbook, Excel.Workbook)
    70. WorkSheet = CType(WorkBook.Sheets(1), Excel.Worksheet)
    71. With WorkSheet
    72. .Range("C7").Value = 2
    73. .Range("C2").Value = 2
    74. .Range("C3").Value = 2
    75. .Range("C4").Value = 2
    76. .Range("C5").Value = 2
    77. .Range("C6").Value = 2
    79. .Range("B7").Value = 2
    80. .Range("B2").Value = 2
    81. .Range("B3").Value = 2
    82. .Range("B4").Value = 2
    83. .Range("B5").Value = 2
    84. .Range("B6").Value = 2
    85. End With
    87. WorkBook.Close()
    88. Chart2 = Nothing
    89. WorkBook = Nothing
    90. WorkSheet = Nothing
    92. System.Threading.Thread.Sleep(1000)
    94. End If
    95. End With
    97. With PPTDoc.Slides(2).Shapes
    98. If CBool(.Item("Inhaltsplatzhalter 5").HasChart) Then
    99. Chart1 = CType(.Item("Inhaltsplatzhalter 5").Chart, PowerPoint.Chart)
    100. Chart1.ChartData.Activate()
    101. WorkBook = CType(Chart1.ChartData.Workbook, Excel.Workbook)
    102. WorkSheet = CType(WorkBook.Sheets(1), Excel.Worksheet)
    103. With WorkSheet
    104. .Range("C7").Value = 2
    105. .Range("C2").Value = 2
    106. .Range("C3").Value = 2
    107. .Range("C4").Value = 2
    108. .Range("C5").Value = 2
    109. .Range("C6").Value = 2
    111. .Range("B7").Value = 2
    112. .Range("B2").Value = 2
    113. .Range("B3").Value = 2
    114. .Range("B4").Value = 2
    115. .Range("B5").Value = 2
    116. .Range("B6").Value = 2
    117. End With
    118. WorkBook.Close()
    120. Chart1 = Nothing
    121. WorkBook = Nothing
    122. WorkSheet = Nothing
    124. System.Threading.Thread.Sleep(1000)
    126. End If
    128. If CBool(.Item("Inhaltsplatzhalter 6").HasChart) Then
    129. Chart2 = CType(.Item("Inhaltsplatzhalter 6").Chart, PowerPoint.Chart)
    130. Chart2.ChartData.Activate()
    131. WorkBook = CType(Chart2.ChartData.Workbook, Excel.Workbook)
    132. WorkSheet = CType(WorkBook.Sheets(1), Excel.Worksheet)
    133. With WorkSheet
    134. .Range("C7").Value = 2
    135. .Range("C2").Value = 2
    136. .Range("C3").Value = 2
    137. .Range("C4").Value = 2
    138. .Range("C5").Value = 2
    139. .Range("C6").Value = 2
    141. .Range("B7").Value = 2
    142. .Range("B2").Value = 2
    143. .Range("B3").Value = 2
    144. .Range("B4").Value = 2
    145. .Range("B5").Value = 2
    146. .Range("B6").Value = 2
    147. End With
    148. WorkBook.Close()
    149. Chart2 = Nothing
    150. WorkBook = Nothing
    151. WorkSheet = Nothing
    153. System.Threading.Thread.Sleep(1000)
    155. End If
    156. End With
    160. End Sub

Facebook
Telefonspende