Hallo!
Ich bin bis jetzt erfolglos auf der Suche zwei Arten von Grafiken mit vb.net zu erstellen (Ziel ist es diese später in eine PowerPoint Präsi zu importieren). Es geht nicht um eine 1:1 Umsetzung der Grafiken, das sind nur Beispiele, damit meine ich die Art der Grafik also nicht die Beschriftung oder Skalierung.
1.
Was ich bis jetzt habe ist:
Was ich nur überhaupt nicht verstehe ist, dass die Datenbasis scheinbar vordefiniert ist. Wenn der Code durchläuft popt hinterher das Excelsheet auf in dem die Daten drin sind. Die Range kann ich nicht ändern. Ich frage mich eh, wo die Daten herkommen.
2.
Hier komme ich überhaupt nicht weiter. Ich bin 5 Stunden google und keine Antwort. Das einzige was ich bis jetzt herausgefunde habe ist, dass man das in Excel umsetzen kann und dann mit einer PPT Vorlage per Verknüpfung umsetzen kann. Das bringt mir aber nichts.
1.
Ich bin langsam echt am verzweifeln. Wäre super, wenn mir jemand helfen könnte.
VG
Rüdi
Ich bin bis jetzt erfolglos auf der Suche zwei Arten von Grafiken mit vb.net zu erstellen (Ziel ist es diese später in eine PowerPoint Präsi zu importieren). Es geht nicht um eine 1:1 Umsetzung der Grafiken, das sind nur Beispiele, damit meine ich die Art der Grafik also nicht die Beschriftung oder Skalierung.
1.
Was ich bis jetzt habe ist:
Was ich nur überhaupt nicht verstehe ist, dass die Datenbasis scheinbar vordefiniert ist. Wenn der Code durchläuft popt hinterher das Excelsheet auf in dem die Daten drin sind. Die Range kann ich nicht ändern. Ich frage mich eh, wo die Daten herkommen.
VB.NET-Quellcode
- Sub test()
- Dim sTemplate As String = "C:\Template.pptx"
- Dim oApp As PowerPoint.Application
- Dim oPres As PowerPoint.Presentation
- Dim oSlide As PowerPoint.Slide
- Dim oChar As PowerPoint.Chart
- Dim oCharTitle As PowerPoint.ChartTitle
- Dim oWorkBook As Excel.Workbook
- Dim oWorkSheet As Excel.Worksheet
- oApp = New PowerPoint.Application
- oApp.Visible = True
- oPres = oApp.Presentations.Open(sTemplate, , , Microsoft.Office.Core.MsoTriState.msoTrue)
- oSlide = oPres.Slides.Add(2, PowerPoint.PpSlideLayout.ppLayoutChart)
- oChar = oSlide.Shapes.AddChart(Microsoft.Office.Core.XlChartType.xlBarStacked100).Chart
- 'Get Excel Workbook
- oWorkBook = oChar.ChartData.Workbook
- 'Set Chart
- oChar.HasTitle = True
- oCharTitle = oChar.ChartTitle
- oCharTitle.Caption = "My Chart"
- 'handle workbook's data
- oWorkSheet = oWorkBook.Sheets(1)
- oWorkSheet.Range("B2").Value = 10
- oWorkSheet.Range("B3").Value = 0.05
- oWorkSheet.Range("A4").Value = "Category 3"
- oWorkSheet.Range("B4").Value = 8
- oWorkSheet.Range("C4").Value = 6.5
- oWorkSheet.Range("D4").Value = 7.1
- 'Set Slide Title
- oSlide.Shapes(1).TextFrame.TextRange.Text = "My VSTO"
- End Sub
2.
Hier komme ich überhaupt nicht weiter. Ich bin 5 Stunden google und keine Antwort. Das einzige was ich bis jetzt herausgefunde habe ist, dass man das in Excel umsetzen kann und dann mit einer PPT Vorlage per Verknüpfung umsetzen kann. Das bringt mir aber nichts.
1.
Ich bin langsam echt am verzweifeln. Wäre super, wenn mir jemand helfen könnte.
VG
Rüdi