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.
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.
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.
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
- Dim Folie As PowerPoint.Slide = Nothing
- Dim Datei As String = "d:\works\vb\Bsp_Präsentation_leer.pptx"
- Dim AppPowerPoint As New PowerPoint.Application
- Dim OpenPresentation As PowerPoint.Presentation
- AppPowerPoint = CreateObject("PowerPoint.Application")
- AppPowerPoint.WindowState = PowerPoint.PpWindowState.ppWindowMinimized
- AppPowerPoint.Activate()
- OpenPresentation = AppPowerPoint.Presentations.Add
- AppPowerPoint.WindowState = PowerPoint.PpWindowState.ppWindowMinimized
- Folie = OpenPresentation.Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutTitleOnly)
- Dim chrt As Graph.Chart
- chrt = Folie.Shapes.AddOLEObject(15, 150, 800, 300, "MSGraph.Chart.8").OLEFormat.Object
- 'chrt.Width = 800
- 'der komplette Diagrammfensterbereich
- Dim cArea As Graph.ChartArea = chrt.ChartArea
- cArea.Interior.Color = Color.Orange
- 'der eigentliche Datenbereich
- Dim Zeichenbereich As Graph.PlotArea = chrt.PlotArea
- Zeichenbereich.Width = 300
- Zeichenbereich.Left = 50
- Dim Legende As Graph.Legend = chrt.Legend
- Legende.Left = 500
- Legende.Width = 300
- Legende.AutoScaleFont = True
- Legende.Height = 700
- Legende.Top = 10
- With (chrt)
- .ChartType = Graph.XlChartType.xl3DColumnClustered
- For i = 0 To 1
- With .Application.DataSheet
- .Range("A0").Value = "Universitäten"
- .Range("B0").Value = "Industrie und viele weitere Branchen"
- .Range("C0").Value = "bla bla bla bla bla bla"
- .Range("D0").Value = "hallo_hallo_hallo_hallo" 'mit leeren String wird die Überschrift gelöscht, aber nicht die komplette Spalte
- .Range("E0").Value = "abc abc abc"
- .Range("F0").Value = "abcdefghijklmopqrstuvwxyz"
- .Range("G0").Value = "1234567890"
- .Range("01").Value = "Zeile1" 'Legende
- .Range("02").Clear()
- .Range("03").Clear()
- .Cells(2, 2).Value = "200"
- .Cells(2, 3).Value = "50"
- .Cells(2, 4).Value = "100"
- .Cells(2, 5).Value = "100"
- .Cells(2, 6).Value = "300"
- .Cells(2, 7).Value = "100"
- .Cells(2, 8).Value = "100"
- .Cells(3, 2).Value = ""
- .Cells(3, 3).Value = ""
- .Cells(3, 4).Value = ""
- .Cells(3, 5).Value = ""
- .Cells(3, 6).Value = ""
- .Cells(3, 7).Value = ""
- .Cells(3, 8).Value = ""
- .Cells(4, 2).Value = ""
- .Cells(4, 3).Value = ""
- .Cells(4, 4).Value = ""
- .Cells(4, 5).Value = ""
- .Cells(4, 6).Value = ""
- .Cells(4, 7).Value = ""
- .Cells(4, 8).Value = ""
- End With
- Next
- End With
- OpenPresentation.SaveAs(Datei)
- OpenPresentation.Close()
- AppPowerPoint.Quit()
- AppPowerPoint = Nothing
- OpenPresentation = Nothing