vbscript封裝ms owc

  1 ''owc.vbs
  2 class owc
  3     private o
  4     '傳入物件
  5     public property set set_obj(o_id)
  6         set o=o_id
  7     end property
  8     '畫圖矩形圖
  9     'chart_bgcolor_圖表的背景顏色
 10     'chartCaption_圖表的標題
 11     'chartCaption_fontColor_圖表標題顏色
 12     'Interior_Color_矩形內的填充顏色
 13     'Caption_名稱
 14     'categories_名稱數組
 15     'values_值數組串
 16     public sub bar(chart_bgcolor_,chartCaption_,chartCaption_fontColor_,Interior_Color_,Caption_,categories_,values_)
 17         o.Clear
 18         set cht = o.Charts.Add
 19         set c = o.Constants
 20         cht.Type = c.chChartTypeColumnClustered
 21         '設背景色或是填充
 22         o.Charts(0).PlotArea.Interior.SetSolid chart_bgcolor_
 23 
 24         '加上圖表的標題
 25         o.HasChartSpaceTitle = True
 26         set cst=o.ChartSpaceTitle
 27         cst.Caption = chartCaption_
 28         cst.Font.Color = chartCaption_fontColor_
 29         cst.Font.Italic = False
 30         cst.Font.Name = "Arial"
 31         cst.Font.Size = 12
 32         cst.Font.Underline = c.owcUnderlineStyleSingle    
 33 
 34         '添加數據
 35         cht.SetData c.chDimCategories, c.chDataLiteral, categories_
 36         cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values_
 37         '直條的背景色進行設定
 38         set sc=o.Charts(0).SeriesCollection(0)
 39         sc.Interior.Color=Interior_Color_
 40 
 41         '直條上的顯示設置
 42         sc.Caption=Caption_
 43         set dl = cht.SeriesCollection(0).DataLabelsCollection.Add
 44         dl.HasValue = True
 45         dl.HasPercentage = False
 46         dl.Font.Size = 9
 47         dl.Font.Color = "red"
 48         dl.Position = c.chLegendPositionRight
 49         dl.NumberFormat = "00.00%"
 50         '左邊百分比的屬性設置
 51         Set cta = cht.Axes(c.chAxisPositionLeft)
 52         cta.Font.Size = 9
 53         cta.NumberFormat = "0.0%"
 54         cta.MajorUnit = 0.1
 55     end sub
 56     '多系列矩形圖
 57     'chart_bgColor_圖表的背景顏色
 58     'chartCaption_圖表的標題
 59     'chartCaption_fontColor_圖表標題顏色
 60     'color_顏色數組
 61     'caption_名稱數組
 62     'categories_名稱數組
 63     'values_值數組
 64     public sub serBar(chart_bgColor_,chartCaption_,chartCaption_fontColor_,color_,caption_,categories_,values_)            
 65         o.Clear
 66         o.Charts.Add
 67         Set c = o.Constants
 68         '圖表的類型
 69         o.Charts(0).type=c.chChartTypeColumnClustered 
 70         '給繪圖區加背景色
 71         o.Charts(0).PlotArea.Interior.SetSolid chart_bgColor_
 72         ''加上圖表的標題
 73         o.HasChartSpaceTitle = True
 74         o.ChartSpaceTitle.Caption = chartCaption_
 75         '標題的屬性
 76         o.ChartSpaceTitle.Font.Color = chartCaption_fontColor_
 77         o.ChartSpaceTitle.Font.Italic = False
 78         o.ChartSpaceTitle.Font.Name = "Arial"
 79         o.ChartSpaceTitle.Font.Size = 12
 80         o.ChartSpaceTitle.Font.Underline = c.owcUnderlineStyleSingle
 81         '用循環來新增SeriesCollection以及里面的內容
 82         for i=0 to ubound(caption_)
 83             valuetemp=""
 84             for j = i*(ubound(categories_)+1) to (i+1)*(ubound(categories_)+1)-1
 85                 valuetemp = valuetemp & "," & values_(j)
 86             next
 87             valuearr = split(mid(valuetemp,2),",")
 88             o.Charts(0).SeriesCollection.Add
 89             o.Charts(0).SeriesCollection(i).Caption = caption_(i)
 90             o.Charts(0).SeriesCollection(i).Interior.Color = color_(i)
 91             o.Charts(0).SeriesCollection(i).SetData c.chDimCategories, c.chDataLiteral, categories_
 92             o.Charts(0).SeriesCollection(i).SetData c.chDimValues, c.chDataLiteral, valuearr
 93             set dl = o.Charts(0).SeriesCollection(i).DataLabelsCollection.Add
 94             dl.HasValue = True
 95             dl.HasPercentage = False
 96             dl.Font.Size = 9
 97             dl.Font.Color = "red"
 98             dl.Position = c.chLegendPositionRight
 99             dl.NumberFormat = "00.00%"
         next
         ''圖例的設定    
         o.Charts(0).HasLegend = True 
         o.Charts(0).Legend.Font.Size = 9
         o.Charts(0).Legend.Position = c.chLegendPositionBottom        
         ''左邊百分比的屬性設置
         Set cta = o.Charts(0).Axes(c.chAxisPositionLeft)
         cta.Font.Size = 9
         cta.NumberFormat = "0.00%"
         cta.MajorUnit = 0.1
     end sub
     '畫圓餅圖
     'chart_bgColor_繪圖區加背景色
     'chartCaption_圖表的標題
     'chartCaption_fontColor_圖表標題顏色
     public sub Pie(chart_bgColor_,chartCaption_,chartCaption_fontColor_,Caption_,categories_,values_)
         o.Clear
         Set cht = o.Charts.Add
         Set c = o.Constants
         cht.Type = c.chChartTypePie3d
         '給繪圖區加背景色
         o.Charts(0).PlotArea.Interior.SetSolid chart_bgColor_
         cht.ExtrudeAngle = 90
         cht.ChartDepth = 169
         cht.AspectRatio = 120
         cht.Rotation =180
         cht.Inclination=70
 
         o.HasChartSpaceTitle = True
         o.ChartSpaceTitle.Caption = chartCaption_
         o.ChartSpaceTitle.Font.Color = chartCaption_fontColor_
         o.ChartSpaceTitle.Font.Name = "Arial" 
         o.ChartSpaceTitle.Font.Size = 12
         o.ChartSpaceTitle.Font.Underline = c.owcUnderlineStyleSingle
             
         cht.HasLegend = True
         cht.Legend.Font.Size = 9
         cht.Legend.Position = c.chLegendPositionBottom
 
         cht.SetData c.chDimCategories, c.chDataLiteral, categories_
         cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values_
         set sc=o.Charts(0).SeriesCollection(0)
         sc.Caption=Caption_
         Set dl = cht.SeriesCollection(0).DataLabelsCollection.Add
         dl.Separator = "："
         dl.HasValue = false
         dl.HasSeriesName = false    
         dl.HasCategoryName=true
         dl.HasPercentage = true
         dl.Font.Size = 9
         dl.Font.Color = "red"
         dl.NumberFormat = "00.00%"
     end sub
     '拆線圖
     'chart_bgColor_繪圖區加背景色
     'chartCaption_圖表的標題
     'chartCaption_fontColor_圖表標題顏色
     public sub line(chart_bgColor_,chartCaption_,chartCaption_fontColor_,Caption_,categories_,values_)
         o.Clear
         Set cht = o.Charts.Add 
         Set c = o.Constants 
         cht.Type = c.chChartTypeLineMarkers
         '給繪圖區加背景色
         o.Charts(0).PlotArea.Interior.SetSolid chart_bgColor_
         o.HasChartSpaceTitle = True 
         o.ChartSpaceTitle.Caption = chartCaption_
         o.ChartSpaceTitle.Font.Color = chartCaption_fontColor_ 
         o.ChartSpaceTitle.Font.Name = "Arial" 
         o.ChartSpaceTitle.Font.Size = 12
         o.ChartSpaceTitle.Font.Underline = c.owcUnderlineStyleSingle
         
         cht.SetData c.chDimCategories, c.chDataLiteral, categories_
         cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values_ 
         
         set sc=o.Charts(0).SeriesCollection(0)
         sc.Caption=Caption_
         Set dl = cht.SeriesCollection(0).DataLabelsCollection.Add 
         dl.HasValue = True 
         dl.HasPercentage = False 
         dl.Font.Size = 9 
         dl.Font.Color = "red" 
 
         Set categoryAxis = cht.Axes(c.chAxisPositionBottom) 
         categoryAxis.Font.Size = 9 
 
         Set categoryAxis = cht.Axes(c.chAxisPositionLeft) 
         categoryAxis.Font.Size = 9 
     end sub
     '多系列拆線圖
     'chart_bgColor_圖表的背景顏色
     'chartCaption_圖表的標題
     'chartCaption_fontColor_圖表標題顏色
     'color_顏色數組
     'caption_名稱數組
     'categories_名稱數組
     'values_值數組
     public sub serLine(chart_bgColor_,chartCaption_,chartCaption_fontColor_,color_,SeriesNames_,categories_,values_)
         o.Clear
         Set cht = o.Charts.Add 
         Set c = o.Constants 
         '設置圖表類型
         cht.Type = c.chChartTypeLineMarkers
         '給繪圖區加背景色
         o.Charts(0).PlotArea.Interior.Color=chart_bgColor_
         '加上標題
         o.HasChartSpaceTitle = True
         o.ChartSpaceTitle.Caption = chartCaption_
         o.ChartSpaceTitle.Font.Color = chartCaption_fontColor_
         o.ChartSpaceTitle.Font.Name = "Arial"
         o.ChartSpaceTitle.Font.Size = 12
         ''添加數據
         cht.SetData c.chDimSeriesNames, c.chDataLiteral, SeriesNames_
         cht.SetData c.chDimCategories, c.chDataLiteral, Categories_
      
         set categoryAxis = cht.Axes(c.chAxisPositionBottom)
         categoryAxis.Font.Size = 9
      
         Set categoryAxis = cht.Axes(c.chAxisPositionLeft)
         categoryAxis.Font.Size = 9
 
         for i = 0 to ubound(SeriesNames_)
             valuetemp = ""
             for j = i*(ubound(Categories_)+1) to (i+1)*(ubound(Categories_)+1)-1
                 valuetemp = valuetemp & "," & values_(j)
             next
             valuearr = split(mid(valuetemp,2),",")
             cht.SeriesCollection(i).SetData c.chDimValues, c.chDataLiteral, valuearr
             cht.SeriesCollection(i).Line.Color = color_(i)
             cht.SeriesCollection(i).Line.Weight = c.owcLineWeightThin
             cht.SeriesCollection(i).Marker.Style = c.chMarkerStyleDiamond
             cht.SeriesCollection(i).Interior.Color = color_(i)
             Set dl = cht.SeriesCollection(i).DataLabelsCollection.Add
             dl.HasValue = true
             dl.HasPercentage = false
             dl.Font.Size = 9
             dl.font.color="red"
         next
     end sub
     '清除圖型
     public sub clear()
         o.Clear
     end sub
 end class

 

 

 1 <html>
 2 <head>
 3 <title>vbscript owc class test</title>
 4 <script language="vbscript" src="owc.vbs"></script>
 5 <script language="vbscript">
 6 sub window_onload()
 7     set t = new owc
 8     
 9     categories =Array("A2-1","A2-2","A2-3","A3-1","A3-2","A3-3"_
                       ,"B2-1","B2-2","B2-3","B3-1","B3-2","B3-3"_
                       ,"C2-1","C2-2","C3-1","C3-2","C3-3")
     values = Array(0.813,0.689,0.800,0.833,0.681,0.864,0.743_
                    ,0.894,0.822,0.874,0.746,0.908,0.850_
                    ,0.728,0.731,0.734,0.624)
     set t.set_obj=document.getElementById("cs1")
     t.bar "#FFFFFF","報表標題","BLUE","#CCCC00","組別",categories,values
     
     color=Array("#CCFFFF","#99CCFF","#00CCFF","#FF0000","#660066","#FF8080")
     caption=Array("第1周","第2周","第3周","第4周")
     categories=Array("A棟","B棟")
     values=Array(0.6951,0.5798,0.7075,0.512,0.7907,0.7493,0.8691,0.7716)
     set t.set_obj=document.getElementById("cs2")
     t.serbar "#FFFFFF","2008年10月坑頭三廠各周各樓層達成率比較圖","red",color,caption,categories,values
     
     categories=array("臺北","上海")
     values = array(238760,912560.62)
     set t.set_obj=document.getElementById("cs3")
     t.Pie "#FFFFFF","銷售金額所佔比例(城市分類)","BLUE","城市",categories,values
     
     categories =array("2008/11/1","2008/11/2","2008/11/3","2008/11/4","2008/11/5","2008/11/6","2008/11/7","2008/11/8","2008/11/9","2008/11/10","2008/11/11","2008/11/12","2008/11/13","2008/11/14","2008/11/15","2008/11/16","2008/11/17","2008/11/18","2008/11/19","2008/11/20","2008/11/21","2008/11/22","2008/11/23","2008/11/24","2008/11/25","2008/11/26","2008/11/27","2008/11/28","2008/11/29","2008/11/30") 
     values = array(67239.89,60400.26,7202.89,18453.12,28889.29,102136.25,78826.39,146291.6,93743.29,44204.44,45349.28,50730.6,37900.21,84359.87,169333.62,114594.96,75334.77,51360.32,55853.05,37912.63,45068.22,63930.98,72993.71,18699.5,24714.5,34792.91,39414.58,92171.2,74433.06,3998894.41)
     set t.set_obj=document.getElementById("cs4")
     t.line "#FFFFFF","銷售金額","BLUE","日期",categories,values
     
     color=Array("#CCFFFF","#99CCFF","#00CCFF","#FF0000")
     SeriesNames = array("A產品","B產品","C產品","D產品")
     Categories = array("2005/3/24","2005/3/25","2005/3/26","2005/3/27","2005/3/28") 
     values = array(50,100,20,80,89,40,60,20,90,70,20,50,55,25,60,80,20,75,58,100)
     set t.set_obj=document.getElementById("cs5")
     t.serline "#FFFFFF","達成率月報表","red",color,SeriesNames,categories,values
     
     set t=nothing 
 end sub
 </script>
 </head>
 <body>
 <div id="c1"><object id="cs1" name="cs1" classid="CLSID:0002E55D-0000-0000-C000-000000000046" codebase="owc11.dll" style="width:100%;height:350"></object></div>
 <div id="c2"><object id="cs2" name="cs2" classid="CLSID:0002E55D-0000-0000-C000-000000000046" codebase="owc11.dll" style="width:100%;height:350"></object></div>
 <div id="c3"><object id="cs3" name="cs3" classid="CLSID:0002E55D-0000-0000-C000-000000000046" codebase="owc11.dll" style="width:100%;height:350"></object></div>
 <div id="c4"><object id="cs4" name="cs4" classid="CLSID:0002E55D-0000-0000-C000-000000000046" codebase="owc11.dll" style="width:100%;height:350"></object></div>
 <div id="c5"><object id="cs5" name="cs5" classid="CLSID:0002E55D-0000-0000-C000-000000000046" codebase="owc11.dll" style="width:100%;height:350"></object></div>
 </body>
 </html>