' Create Chart Object
Set oChart = CreateObject("OWC11.Chartspace")
Set oChartConstants = oChart.Constants

' set global parameters
oChart.Border.Color = oChartConstants.chColorNone

'set values to display
sCaption = "Messagestatus"
dim Categories(2), Values(2)
Categories(0) = "Zugestellt" : Categories(1) = "NDR" : Categories(2) = "Unbekannt"
Values(0) = 10 : Values(1) = 5 : Values(2) = 2

'generate chart
oChart.Charts.Add
oChart.Charts(0).Type = oChart.Constants.chChartTypeColumnClustered
oChart.Charts(0).SeriesCollection.Add
oChart.Charts(0).SeriesCollection(0).Caption = sCaption
oChart.Charts(0).SeriesCollection(0).SetData oChartConstants.chDimCategories, oChartConstants.chDataLiteral, categories
oChart.Charts(0).SeriesCollection(0).SetData oChartConstants.chDimValues, oChartConstants.chDataLiteral, values
oChart.Charts(0).HasLegend = True
oChart.Charts(0).HasTitle = True

' save chart as file
oChart.ExportPicture ".\owc.gif", "gif", 300, 200