统计图代码.docVIP

统计图代码 参看以下代码： 直方图% 摘　要： 统计图--直方图 参数含义(数组，横坐标，纵坐标，图表的宽度，图表的高度,图表标题，X轴单位，Y轴单位) function table1(stat_array,table_left,table_top,all_width,all_height,table_title,X_unit,Y_unit) dim bg_color(10) bg_color(1)=#ff1919 bg_color(2)=#ffff19 bg_color(3)=#1919ff bg_color(4)=#19ff19 bg_color(5)=#fc0 bg_color(6)=#3cc bg_color(7)=#ff19ff bg_color(8)=#993300 bg_color(9)=#f60 bg_color(10)=#ff8c19 if X_unit then X_unit=X_unit end if if Y_unit then Y_unit=Y_unit end if num =ubound(stat_array,1) item_width = cint(20000/num+0.5) begin_x= cint((item_width-1200)/2)+2200 value_Max=0 for i=1 to num if value_Ma