![]() | ![]() | ![]() | ![]() | ![]() |
Automatically Create Chart Images |
PPWIZARD is all about automation and reducing your work load. For this reason I have included a crude example of how a bar/pie or other type of chart can be automatically created.
This sample shows the data hardcoded, in real life it would come from a database or some other source. The source has enough detail (keywords!) in it that you should have little trouble finding more information on the web.
The data could be "hardcoded" via an SQL import (ie generate VB code instead of HTML table) if the VbScript was generated in a similar manner to that shown in the Excel example.
This is a sample of a "GIF" file I created with the VbScript:
The VbScript code follows (tested in Windows 2000 with Office 2000):
'--- Initialize chart ------------------------------------------------------- set oChart = WScript.CreateObject("OWC.Chart") 'oChart.Clear() 'oChart.Refresh() '--- Some Handy "hooks" ----------------------------------------------------- set Con = oChart.Constants 'Access to predefined constants set Chart = oChart.Charts.Add set SC = Chart.SeriesCollection set SCA = Chart.SeriesCollection.Add 'Need! (VbScript bug?, looks likely) '--- Set colors ------------------------------------------------------------- 'oChart.Border.Color = Con.chColorNone 'oChart.Border.Color = Con.chColor '--- Add Title -------------------------------------------------------------- Chart.hasTitle = true Chart.title.caption = "Dennis' Test Chart" Chart.title.font.name = "tahoma" Chart.title.font.size = 10 Chart.title.font.bold = true '--- Make up some data ------------------------------------------------------ dim x(10), y(10) x(1) = "RED" x(2) = "GREEN" x(3) = "BLUE" y(1) = "20" y(2) = "61" y(3) = "70" '--- Chart above data ------------------------------------------------------- SCA.setData Con.chDimCategories, Con.chDataLiteral, x SCA.setData Con.chDimValues, Con.chDataLiteral, y '--- Want Exploded PIE Chart (default is bar graph) ------------------------- 'Chart.Type = Con.chChartTypePie 'SC.Item(0).Explosion = 10 '--- Label the values ------------------------------------------------------- 'with SC(0).DataLabelsCollection.Add 'Add values to slices/on top of bar ' .Interior.Color = RGB(255, 255, 255) ' .Font.Size = 8 'end with '--- Create the GIF --------------------------------------------------------- oChart.ExportPicture "c:\tmp\excel\t_chart.gif", "gif", 200, 200
![]() | ![]() | ![]() | ![]() | ![]() |