Bei Hinzufügen eines Diagramms werden Menüleisten in Word ausgeblendet

  • Word

    Bei Hinzufügen eines Diagramms werden Menüleisten in Word ausgeblendet

    Hallo,

    ich habe beim Erstellen eines Word-Dokuments aus einer Vorlage heraus ein Problem, dass ich nicht ganz nachvollziehen kann.

    Ich habe mein Word.Application Objekt und füge dort ein Diagramm, also ein InlineShape hinzu, das ganze sieht ungefähr so aus:

    Visual Basic-Quellcode

    1. Dim diagramm1 As Chart
    2. .ActiveDocument.Bookmarks("chart1").Select
    3. Set diagramm1 = .Selection.InlineShapes.AddChart.Chart
    4. diagramm1.ChartType = xl3DColumnClustered
    5. Dim chartWorkSheet As Excel.Worksheet
    6. Set chartWorkSheet = diagramm1.ChartData.Workbook.Worksheets(1)
    7. chartWorkSheet.ListObjects("Tabelle1").Resize chartWorkSheet.Range("A1:B5")
    8. chartWorkSheet.Range("A2").FormulaR1C1 = "eintrag1"
    9. chartWorkSheet.Range("A3").FormulaR1C1 = "eintrag2"
    10. chartWorkSheet.Range("A4").FormulaR1C1 = "eintrag3"
    11. chartWorkSheet.Range("A5").FormulaR1C1 = "eintrag4"
    12. For i = 0 To UBound(res3, 2)
    13. chartWorkSheet.Range("B" & i + 2).FormulaR1C1 = res3(0, i)
    14. Next
    15. diagramm1.ChartData.Workbook.Application.Quit


    Die Daten werden wie gewünscht an das gewählt Bookmark gesetzt.
    Allerdings startet das Word Dokument nach dem Generieren ohne Symbol- und Menüleisten, lediglich der vertikale Scrollbalken am Rand ist zu sehen.

    Lasse ich den Code für das Diagramm raus, habe ich wie gewohnt alle Menü- und Symbolleisten verfügbar.
    Woran liegt das? Ist dies eine spezielle Ansicht des Word Dokuments, und wie kann ich es verhindern?

    Danke

Facebook
Telefonspende