Balkendiagramm in Powerpoint erstellen und formatieren

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Comtimizer.

    Balkendiagramm in Powerpoint erstellen und formatieren

    Liebe Community,

    ich möchte gerne eine Powerpoint-Präsentation aus visual basic heraus erstellen und in diese ein Balkendiagramm einfügen. Dieses Balkendiagramm möchte ich wie folgt formatieren:
    - X-Achsenbeschriftung für jeden Wert eines Balkens anzeigen lassen. Aktuell wird nur die erste und die letzte Beschriftung dargestellt.
    - alle Beschriftungen senkrecht oder schräg stellen. Aktuell werden die Beschriftungen waagerecht angezeigt.

    Bevor ich mit Powerpoint angefangen habe, habe ich mit den in VB enthaltenen Grafiken geübt und folgende Befehle für diese Formatierungen gefunden; die auch funktionieren.

    Quellcode

    1. Balkendiagramm.ChartAreas(0).AxisX.LabelStyle.Angle = -45 'hier werden die Labels aller Balken schräg gestellt
    2. Balkendiagramm.ChartAreas(0).AxisX.MinorTickMark.Enabled = True
    3. Balkendiagramm.ChartAreas(0).AxisX.Interval = 1


    Leider komme ich irgend wie nicht drauf, wie ich diese Befehle für ein Balkendiagramm in Powerpoint anwenden kann. Wie Ihr sehen werdet, habe ich mit ChartArea und PlotArea schon meine ersten Gehversuche unternommen und versucht, den richtigen Befehl zu finden, aber bislang leider erfolglos.
    Wäre super klasse, könnte jemand über folgendes Programm schauen und mir den entscheidenden Hinweis geben.

    Vielen Dank im Voraus und viele Grüße.

    Quellcode

    1. Dim Folie As PowerPoint.Slide = Nothing
    2. Dim Datei As String = "d:\works\vb\Bsp_Präsentation_leer.pptx"
    3. Dim AppPowerPoint As New PowerPoint.Application
    4. Dim OpenPresentation As PowerPoint.Presentation
    6. AppPowerPoint = CreateObject("PowerPoint.Application")
    7. AppPowerPoint.WindowState = PowerPoint.PpWindowState.ppWindowMinimized
    8. AppPowerPoint.Activate()
    10. OpenPresentation = AppPowerPoint.Presentations.Add
    11. AppPowerPoint.WindowState = PowerPoint.PpWindowState.ppWindowMinimized
    13. Folie = OpenPresentation.Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutTitleOnly)
    15. Dim chrt As Graph.Chart
    16. chrt = Folie.Shapes.AddOLEObject(15, 150, 800, 300, "MSGraph.Chart.8").OLEFormat.Object
    17. 'chrt.Width = 800
    19. 'der komplette Diagrammfensterbereich
    20. Dim cArea As Graph.ChartArea = chrt.ChartArea
    21. cArea.Interior.Color = Color.Orange
    23. 'der eigentliche Datenbereich
    24. Dim Zeichenbereich As Graph.PlotArea = chrt.PlotArea
    25. Zeichenbereich.Width = 300
    26. Zeichenbereich.Left = 50
    28. Dim Legende As Graph.Legend = chrt.Legend
    29. Legende.Left = 500
    30. Legende.Width = 300
    31. Legende.AutoScaleFont = True
    32. Legende.Height = 700
    33. Legende.Top = 10
    35. With (chrt)
    36. .ChartType = Graph.XlChartType.xl3DColumnClustered
    37. For i = 0 To 1
    38. With .Application.DataSheet
    40. .Range("A0").Value = "Universitäten"
    41. .Range("B0").Value = "Industrie und viele weitere Branchen"
    42. .Range("C0").Value = "bla bla bla bla bla bla"
    43. .Range("D0").Value = "hallo_hallo_hallo_hallo" 'mit leeren String wird die Überschrift gelöscht, aber nicht die komplette Spalte
    44. .Range("E0").Value = "abc abc abc"
    45. .Range("F0").Value = "abcdefghijklmopqrstuvwxyz"
    46. .Range("G0").Value = "1234567890"
    48. .Range("01").Value = "Zeile1" 'Legende
    49. .Range("02").Clear()
    50. .Range("03").Clear()
    52. .Cells(2, 2).Value = "200"
    53. .Cells(2, 3).Value = "50"
    54. .Cells(2, 4).Value = "100"
    55. .Cells(2, 5).Value = "100"
    56. .Cells(2, 6).Value = "300"
    57. .Cells(2, 7).Value = "100"
    58. .Cells(2, 8).Value = "100"
    60. .Cells(3, 2).Value = ""
    61. .Cells(3, 3).Value = ""
    62. .Cells(3, 4).Value = ""
    63. .Cells(3, 5).Value = ""
    64. .Cells(3, 6).Value = ""
    65. .Cells(3, 7).Value = ""
    66. .Cells(3, 8).Value = ""
    68. .Cells(4, 2).Value = ""
    69. .Cells(4, 3).Value = ""
    70. .Cells(4, 4).Value = ""
    71. .Cells(4, 5).Value = ""
    72. .Cells(4, 6).Value = ""
    73. .Cells(4, 7).Value = ""
    74. .Cells(4, 8).Value = ""
    76. End With
    77. Next
    79. End With
    81. OpenPresentation.SaveAs(Datei)
    82. OpenPresentation.Close()
    83. AppPowerPoint.Quit()
    85. AppPowerPoint = Nothing
    86. OpenPresentation = Nothing

    Willkommen im Forum. :thumbup:

    Comtimizer schrieb:

    ich möchte gerne eine Powerpoint-Präsentation aus visual basic heraus erstellen und in diese ein Balkendiagramm einfügen.
    Willst Du für jede Deiner zukünftigen Präsentationen ein neues VB-Programm erstellen?
    Welchen Sinn soll diese Fingerübung haben?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo,

    für meine Präsentationen, die ich geben muss, fallen Daten in immer der gleichen Art an. Natürlich ändern sich Spaltenanzahl, Werte und Beschriftungen. Diese dynamischen Anpassungen habe ich auch schon anderweitig abgefangen und umgesetzt, so dass auf Knopfdruck die Präsentationen automatisch erzeugt werden. Hier habe ich der Einfachheit halber nur 7 Beispielzahlen und -beschriftungen fest programmiert angegeben.
    Bei meinem Beitrag geht es um meine Fragen bzgl. der Formatierung des Diagramms in Powerpoint.
    Ich wäre sehr dankbar, könnte mir hierzu jemand den richtigen Tipp geben.
    Vielen Dank im Voraus.

    @Comtimizer Dann solltest Du überlegen, das ganze in VB abzuwickeln, ohne PowerPoint.
    Bei dieser Wiederholbarkeit bietet sich das geradezu an.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich wickele meine komplette Datenhaltung und Auswertung über VB ab. Um Beteiligten einen Bericht zu geben, MUSS ich Powerpoint verwenden.
    Diese Entscheidung möchte ich hier nicht weiter diskutieren; ist auch nicht zielführend.
    Aber vielleicht besteht die Möglichkeit, meine beiden o.g. Fragen zur Formatierung des Balkendiagramms wieder in den Fokus dieses Gesprächs zu rücken.
    Fällt Dir hierzu etwas hilfreiches ein?

    Hallo @Comtimizer

    Anhand dieses Beispieles -> Create PowerPoint 2010 Chart with New Chart Object Model
    - Axis-Objekt (PowerPoint) -> XlAxisType-Aufzählung (PowerPoint)
    - TickLabels.Orientation property (PowerPoint)
    - Axis.HasMinorGridlines-Eigenschaft (PowerPoint)
    - Axis.MinorUnit-Eigenschaft (PowerPoint)

    Spoiler anzeigen

    Visual Basic-Quellcode

    1. Sub CreateChart()
    2. Dim myChart As Chart
    3. Dim gChartData As ChartData
    4. Dim gWorkBook As Excel.Workbook
    5. Dim gWorkSheet As Excel.Worksheet
    7. ' Create the chart and set a reference to the chart data.
    8. Set myChart = ActivePresentation.Slides(1).Shapes.AddChart.Chart
    9. Set gChartData = myChart.ChartData
    11. ' Set the Workbook and Worksheet references.
    12. Set gWorkBook = gChartData.Workbook
    13. Set gWorkSheet = gWorkBook.Worksheets(1)
    15. ' Add the data to the workbook.
    16. ' gWorkSheet.ListObjects("Tabelle1").Resize gWorkSheet.Range("A1:B5")
    17. ' gWorkSheet.Range("a1").Value = "Items"
    18. ' gWorkSheet.Range("a2").Value = "Coffee"
    19. ' gWorkSheet.Range("a3").Value = "Soda"
    20. ' gWorkSheet.Range("a4").Value = "Tea"
    21. ' gWorkSheet.Range("a5").Value = "Water"
    22. ' 'gWorkSheet.Range("b1").Value = "Amount"
    23. ' gWorkSheet.Range("b2").Value = "1000"
    24. ' gWorkSheet.Range("b3").Value = "2500"
    25. ' gWorkSheet.Range("b4").Value = "4000"
    26. ' gWorkSheet.Range("b5").Value = "3000"
    28. ' Apply styles to the chart.
    29. With myChart
    30. .ChartType = XlChartType.xlColumnClustered
    31. '.ChartStyle = 4
    32. '.ApplyLayout 2, Office.XlChartType.xlLine
    33. .ClearToMatchStyle
    34. End With
    36. ' Add the axis title.
    37. With myChart.Axes(xlValue)
    38. .HasTitle = True
    39. .AxisTitle.Text = "Units"
    40. .HasMajorGridlines = True
    41. .HasMinorGridlines = True
    42. .MajorUnit = 1 '.Interval = 1
    43. .MinorUnit = 0.2 '.Interval = 1
    44. End With
    46. 'myChart.ApplyDataLabels
    47. With myChart.Axes(xlCategory)
    48. .TickLabels.Alignment = xlHAlignCenter
    49. .TickLabels.Orientation = -45 'LabelStyle.Angle = -45 'hier werden die Labels aller Balken schräg gestellt
    50. .HasMajorGridlines = True
    51. .HasMinorGridlines = True '.MinorTickMark.Enabled = True
    52. '.MajorUnit = 2 '.Interval = 1
    53. '.MinorUnit = 1 '.Interval = 1
    54. End With
    56. ' Clean up the references.
    57. Set gWorkSheet = Nothing
    58. ' gWorkBook.Application.Quit
    59. Set gWorkBook = Nothing
    60. Set gChartData = Nothing
    61. Set myChart = Nothing
    63. End Sub

Facebook
Telefonspende