# -*- coding: utf-8 -*-
"""
Created on Thu Mar 06 11:22:03 2014
@author: Administrator
"""
import win32com.client
from win32com.gen_py import msof,mspp,msxl
from string import uppercase
from pandas import Series
#%% 将常量发布到全局命名空间中去
g = globals()
for c in dir(msof.constants) : g[c] = getattr(msof.constants, c)
for c in dir(mspp.constants) : g[c] = getattr(mspp.constants, c)
for c in dir(msxl.constants) : g[c] = getattr(msxl.constants, c)
#%% 生成行名和坐标的对应关系表
luc = list(uppercase)
columns = Series((luc + [i+j for i in luc for j in luc])[:256],range(1,257))
def cellName(nRow,nCol):
return columns[nCol]+str(nRow)
#%% 打开一个测试文件
application = win32com.client.Dispatch('Excel.Application')
application.Visible = True
workbook = application.Workbooks.Open(r'c:\sample1.xls')
sheets = workbook.Sheets
sheet1 = sheets.Item(1)
#%% 获取数据范围
nRow = sheet1.UsedRange.Rows.Count
nCol = sheet1.UsedRange.Columns.Count
rangeName = cellName(1,1) + ':' + cellName(nRow,nCol)
rangeName
#%% 创建图表
chart = workbook.Charts.Add()
chart.ChartType = xlLine
chart.SetSourceData(sheet1.Range(rangeName))
# 遍历所有系列
seriesCollection = chart.SeriesCollection()
seriesCollection.Count
for i in seriesCollection:
print(i)
# 参考http://peltiertech.com/Excel/ChartsHowTo/QuickChartVBA.html
#%% 图表类型说明
ChartType = {'xlLine':'折线图',
'xlLineMarkersStacked':'堆积数据点折线图',
'xlLineStacked':'堆积折线图',
'xlPie':'饼图',
'xlPieOfPie':'复合饼图',
'xlPyramidBarStacked':'堆积条形棱锥图',
'xlPyramidCol':'三维柱形棱锥图',
'xlPyramidColClustered':'簇状柱形棱锥图',
'xlPyramidColStacked':'堆积柱形棱锥图',
'xlPyramidColStacked100':'百分比堆积柱形棱锥图',
'xlRadar':'雷达图',
'xlRadarFilled':'填充雷达图',
'xlRadarMarkers':'数据点雷达图',
'xlStockHLC':'盘高-盘低-收盘图',
'xlStockOHLC':'开盘-盘高-盘低-收盘图',
'xlStockVHLC':'成交量-盘高-盘低-收盘图',
'xlStockVOHLC':'成交量-开盘-盘高-盘低-收盘图',
'xlSurface':'三维曲面图',
'xlSurfaceTopView':'曲面图（俯视图）',
'xlSurfaceTopViewWireframe':'曲面图（俯视框架图）',
'xlSurfaceWireframe':'三维曲面图（框架图）',
'xlXYScatter':'散点图',
'xlXYScatterLines':'折线散点图',
'xlXYScatterLinesNoMarkers':'无数据点折线散点图',
'xlXYScatterSmooth':'平滑线散点图',
'xlXYScatterSmoothNoMarkers':'无数据点平滑线散点图',
'xl3DArea':'三维面积图',
'xl3DAreaStacked':'三维堆积面积图',
'xl3DAreaStacked100':'百分比堆积面积图',
'xl3DBarClustered':'三维簇状条形图',
'xl3DBarStacked':'三维堆积条形图',
'xl3DBarStacked100':'三维百分比堆积条形图',
'xl3DColumn':'三维柱形图',
'xl3DColumnClustered':'三维簇状柱形图',
'xl3DColumnStacked':'三维堆积柱形图',
'xl3DColumnStacked100':'三维百分比堆积柱形图',
'xl3DLine':'三维折线图',
'xl3DPie':'三维饼图',
'xl3DPieExploded':'分离型三维饼图',
'xlArea':'面积图',
'xlAreaStacked':'堆积面积图',
'xlAreaStacked100':'百分比堆积面积图',
'xlBarClustered':'簇状条形图',
'xlBarOfPie':'复合条饼图',
'xlBarStacked':'堆积条形图',
'xlBarStacked100':'百分比堆积条形图',
'xlBubble':'气泡图',
'xlBubble3DEffect':'三维气泡图',
'xlColumnClustered':'簇状柱形图',
'xlColumnStacked':'堆积柱形图',
'xlColumnStacked100':'百分比堆积柱形图',
'xlConeBarClustered':'簇状条形圆锥图',
'xlConeBarStacked':'堆积条形圆锥图',
'xlConeBarStacked100':'百分比堆积条形圆锥图',
'xlConeCol':'三维柱形圆锥图',
'xlConeColClustered':'簇状柱形圆锥图',
'xlConeColStacked':'堆积柱形圆锥图',
'xlConeColStacked100':'百分比堆积柱形圆锥图',
'xlCylinderBarClustered':'簇状条形圆柱图',
'xlCylinderBarStacked':'堆积条形圆柱图',
'xlCylinderBarStacked100':'百分比堆积条形圆柱图',
'xlCylinderCol':'三维柱形圆柱图',
'xlCylinderColClustered':'簇状柱形圆锥图',
'xlCylinderColStacked':'堆积柱形圆锥图',
'xlCylinderColStacked100':'百分比堆积柱形圆柱图',
'xlDoughnut':'圆环图',
'xlDoughnutExploded':'分离型圆环图',
'xlLineMarkers':'数据点折线图',
'xlLineMarkersStacked100':'百分比堆积数据点折线图',
'xlLineStacked100':'百分比堆积折线图',
'xlPieExploded':'分离型饼图',
'xlPyramidBarClustered':'簇状条形棱锥图',
'xlPyramidBarStacked100':'百分比堆积条形棱锥图'}