Dim PieChartSpace As Microsoft.Office.Interop.Owc11.ChartSpace
Dim PieChart As Microsoft.Office.Interop.Owc11.ChChart
PieChartSpace = New Microsoft.Office.Interop.Owc11.ChartSpace
PieChart = PieChartSpace.Charts.Add(0)
Dim PieChartSeries As Microsoft.Office.Interop.Owc11.ChSeries
PieChartSeries = PieChart.SeriesCollection.Add(0)
PieChartSeries.SetData(Microsoft.Office.Interop.Owc11.ChartDimensionsEnum.chDimSeriesNames, Microsoft.Office.Interop.Owc11.ChartSpecialDataSourcesEnum.chDataLiteral, "X")
PieChartSeries.SetData(Microsoft.Office.Interop.Owc11.ChartDimensionsEnum.chDimCategories, Microsoft.Office.Interop.Owc11.ChartSpecialDataSourcesEnum.chDataLiteral, "s1,s2,s3")
PieChartSeries.SetData(Microsoft.Office.Interop.Owc11.ChartDimensionsEnum.chDimValues, Microsoft.Office.Interop.Owc11.ChartSpecialDataSourcesEnum.chDataLiteral, "12,11,21")
VB.NET的写法:
Private Function getChartImage() As Image
Dim image1 As Image = Nothing
Dim buffer1 As Byte() = TryCast(Me.chartBasItem.GetPicture,Byte())
If (Not buffer1 Is Nothing) Then
Dim stream1 As New MemoryStream(buffer1)
image1 = Image.FromStream(stream1)
End If
Return image1
End Function