Excel vba将chart另存为图片

 1#coding: utf-8
 2import xlsxwriter
 3import random
 4def get_num():
 5    return random.randrange(0, 201, 2)
 6workbook = xlsxwriter.Workbook('analyse_spider.xlsx')    #创建一个Excel文件
 7worksheet = workbook.add_worksheet()    #创建一个工作表对象
 8chart = workbook.add_chart({'type': 'column'})    #创建一个图表对象
 9#定义数据表头列表
10title = [u'业务名称',u'星期一',u'星期二',u'星期三',u'星期四',u'星期五',u'星期六',u'星期日',u'平均流量']
11buname= [u'运维之路',u'就要IT',u'baidu.com',u'361way.com',u'91it.org']    #定义频道名称
12#定义5频道一周7天流量数据列表
13data = []
14for i in range(5):
15    tmp = []
16    for j in range(7):
17        tmp.append(get_num())
18    data.append(tmp)
19format=workbook.add_format()    #定义format格式对象
20format.set_border(1)    #定义format对象单元格边框加粗(1像素)的格式
21format_title=workbook.add_format()    #定义format_title格式对象
22format_title.set_border(1)   #定义format_title对象单元格边框加粗(1像素)的格式
23format_title.set_bg_color('#cccccc')   #定义format_title对象单元格背景颜色为
24                                       #'#cccccc'的格式
25format_title.set_align('center')    #定义format_title对象单元格居中对齐的格式
26format_title.set_bold()    #定义format_title对象单元格内容加粗的格式
27format_ave=workbook.add_format()    #定义format_ave格式对象
28format_ave.set_border(1)    #定义format_ave对象单元格边框加粗(1像素)的格式
29format_ave.set_num_format('0.00')   #定义format_ave对象单元格数字类别显示格式
30#下面分别以行或列写入方式将标题、业务名称、流量数据写入起初单元格，同时引用不同格式对象
31worksheet.write_row('A1',title,format_title)
32worksheet.write_column('A2', buname,format)
33worksheet.write_row('B2', data[0],format)
34worksheet.write_row('B3', data[1],format)
35worksheet.write_row('B4', data[2],format)
36worksheet.write_row('B5', data[3],format)
37worksheet.write_row('B6', data[4],format)
38#定义图表数据系列函数
39def chart_series(cur_row):
40    worksheet.write_formula('I'+cur_row, \
41     '=AVERAGE(B'+cur_row+':H'+cur_row+')',format_ave)    #计算（AVERAGE函数）频
42                                                          #道周平均流量
43    chart.add_series({
44        'categories': '=Sheet1!$B$1:$H$1',    #将“星期一至星期日”作为图表数据标签(X轴)
45        'values':     '=Sheet1!$B$'+cur_row+':$H$'+cur_row,    #频道一周所有数据作
46                                                               #为数据区域
47        'line':       {'color': 'black'},    #线条颜色定义为black(黑色)
48        'name': '=Sheet1!$A$'+cur_row,    #引用业务名称为图例项
49    })
50for row in range(2, 7):    #数据域以第2～6行进行图表数据系列函数调用
51    chart_series(str(row))
52chart.set_size({'width': 577, 'height': 287})    #设置图表大小
53chart.set_title ({'name': u'爬虫分析'})    #设置图表（上方）大标题
54chart.set_y_axis({'name': 'count'})    #设置y轴（左侧）小标题
55worksheet.insert_chart('A8', chart)    #在A8单元格插入图表
56workbook.close()    #关闭Excel文档

 1#coding: utf-8
 2import xlsxwriter
 3workbook = xlsxwriter.Workbook('chart_column.xlsx')
 4worksheet = workbook.add_worksheet()
 5bold = workbook.add_format({'bold': 1})
 6# 这是个数据table的列
 7headings = ['Number', 'Batch 1', 'Batch 2']
 8data = [
 9    [2, 3, 4, 5, 6, 7],
10    [10, 40, 50, 20, 10, 50],
11    [30, 60, 70, 50, 40, 30],
12]
13worksheet.write_row('A1', headings, bold)
14worksheet.write_column('A2', data[0])
15worksheet.write_column('B2', data[1])
16worksheet.write_column('C2', data[2])
17############################################
18#创建一个图表，类型是column
19chart1 = workbook.add_chart({'type': 'column'})
20# 配置series,这个和前面wordsheet是有关系的。
21chart1.add_series({
22    'name':       '=Sheet1!$B$1',
23    'categories': '=Sheet1!$A$2:$A$7',
24    'values':     '=Sheet1!$B$2:$B$7',
25})
26# Configure a second series. Note use of alternative syntax to define ranges.
27chart1.add_series({
28    'name':       ['Sheet1', 0, 2],
29    'categories': ['Sheet1', 1, 0, 6, 0],
30    'values':     ['Sheet1', 1, 2, 6, 2],
31})
32# Add a chart title and some axis labels.
33chart1.set_title ({'name': 'Results of sample analysis'})
34chart1.set_x_axis({'name': 'Test number'})
35chart1.set_y_axis({'name': 'Sample length (mm)'})
36# Set an Excel chart style.
37chart1.set_style(11)
38# Insert the chart into the worksheet (with an offset).
39worksheet.insert_chart('D2', chart1, {'x_offset': 25, 'y_offset': 10})
40#######################################################################
41#
42# Create a stacked chart sub-type.
43#
44chart2 = workbook.add_chart({'type': 'column', 'subtype': 'stacked'})
45# Configure the first series.
46chart2.add_series({
47    'name':       '=Sheet1!$B$1',
48    'categories': '=Sheet1!$A$2:$A$7',
49    'values':     '=Sheet1!$B$2:$B$7',
50})
51# Configure second series.
52chart2.add_series({
53    'name':       '=Sheet1!$C$1',
54    'categories': '=Sheet1!$A$2:$A$7',
55    'values':     '=Sheet1!$C$2:$C$7',
56})
57# Add a chart title and some axis labels.
58chart2.set_title ({'name': 'Stacked Chart'})
59chart2.set_x_axis({'name': 'Test number'})
60chart2.set_y_axis({'name': 'Sample length (mm)'})
61# Set an Excel chart style.
62chart2.set_style(12)
63# Insert the chart into the worksheet (with an offset).
64worksheet.insert_chart('D18', chart2, {'x_offset': 25, 'y_offset': 10})
65#######################################################################
66#
67# Create a percentage stacked chart sub-type.
68#
69chart3 = workbook.add_chart({'type': 'column', 'subtype': 'percent_stacked'})
70# Configure the first series.
71chart3.add_series({
72    'name':       '=Sheet1!$B$1',
73    'categories': '=Sheet1!$A$2:$A$7',
74    'values':     '=Sheet1!$B$2:$B$7',
75})
76# Configure second series.
77chart3.add_series({
78    'name':       '=Sheet1!$C$1',
79    'categories': '=Sheet1!$A$2:$A$7',
80    'values':     '=Sheet1!$C$2:$C$7',
81})
82# Add a chart title and some axis labels.
83chart3.set_title ({'name': 'Percent Stacked Chart'})
84chart3.set_x_axis({'name': 'Test number'})
85chart3.set_y_axis({'name': 'Sample length (mm)'})
86# Set an Excel chart style.
87chart3.set_style(13)
88# Insert the chart into the worksheet (with an offset).
89worksheet.insert_chart('D34', chart3, {'x_offset': 25, 'y_offset': 10})
90workbook.close()

1Sub exportimg()
2Dim XlsChart As ChartObject
3For Each XlsChart In Worksheets("Sheet1").ChartObjects
4    XlsChart.Chart.Export Filename:="C:\" & XlsChart.Name & ".jpg", FilterName:="JPG"
5Next
6End Sub