# -*- 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':'百分比堆积条形棱锥图'}

python使用VBA:Excel创建图表(转)的更多相关文章

  1. python模块介绍- xlwt 创建xls文件(excel)

    python模块介绍- xlwt 创建xls文件(excel) 2013-06-24磁针石 #承接软件自动化实施与培训等gtalk:ouyangchongwu#gmail.comqq 37391319 ...

  2. 最全总结 | 聊聊 Python 办公自动化之 Excel(下)

    1. 前言 前面谈到 Python 处理 Excel 文件最常见的两种方式,即:xlrd/xlwt.openpyxl ​其中, xlrd/xlwt 这一组合,xlrd 可以负责读取数据,而 xlwt ...

  3. Python 操作 MS Excel 文件

    利用 Python 对 Excel 文件进行操作需要使用第三方库: openpyxl,可执行 pip install openpyxl 进行安装 1. 导入 openpyxl 模块 导入 openpy ...

  4. Excel催化剂图表系列之品味IBCS瀑布图观察企业利润构成

    IBCS图表,每个细节都值得反复琢磨参悟,此篇给大家送上详尽的瀑布图方式下的利润数据观察.请不要拿Excel2016版提供的瀑布图与IBCS版的瀑布图作对比,那完全不是一个级别的,可以类比为拿一辆经济 ...

  5. Excel催化剂图表系列之一键完成IBCS国际商业标准图表

    在数据分析领域,最后一公里的图表输出,是一片十分广阔的领域.一直以来,笔者深知不是这一方面的能手,学习上也仅仅是浅尝而止.没有往其深入研究并有所产出.很幸运地在数据圈子能够结识到其他的志同道合的伙伴, ...

  6. Python“文件操作”Excel篇(上)

    大家好,我们今天来一起探索一下用Python怎么操作Excel文件.与word文件的操作库python-docx类似,Python也有专门的库为Excel文件的操作提供支持,这些库包括xlrd.xlw ...

  7. 最全总结 | 聊聊 Python 办公自动化之 Excel(中)

    1. 前言 上一篇文章中,我们聊到使用 xlrd.xlwt.xlutils 这一组合操作 Excel 的方法 最全总结 | 聊聊 Python 办公自动化之 Excel(上) ​本篇文章将继续聊另外一 ...

  8. [转] C#操作EXCEL,生成图表的全面应用

    gailzhao 原文 关于C#操作EXCEL,生成图表的全面应用 近来我在开发一个运用C#生成EXCEL文档的程序,其中要根据数据生成相应的图表,该图表对颜色和格式都有严格的要求,在百度和谷歌中搜索 ...

  9. C# 添加、修改以及删除Excel迷你图表的方法

    Excel表格中的迷你图表能够直观地向我们展示出数据的变化趋势.本文将介绍C#如何实现为表格数据生成迷你图表,以及修改和删除迷你图表的方法.下面将详细讲述. 所用组件工具:Spire.XLS for ...

随机推荐

  1. XenServer的某台机器一直pending住怎么办

    XenServer某台VM在操作后,图标一直显示成黄色,无法完成操作,成假死的状态.可以用下面命令强制终止VM: 1.在你假死的机器获得UUID 2.在XenServer的控制台输入如下命令获得ID ...

  2. Linux学习笔记11——文件I/O之二

    一.文件共享 内核使用三种数据结构表示打开的文件,它们之间的关系决定了在文件共享方面一个进程对另一个进程可能产生的影响. 1.每个进程在进程表中都有一个记录项,记录项中包含有一张打开文件描述表 2.内 ...

  3. 关于OC头文件互相引用的问题

    在OC中头文件互相引用是很常见的一件事,如: A的头文件#import "B.h" 而B的头文件#import "A.h" 这个时候就会出现意想不到的问题.系统 ...

  4. Spoj 7001 Visible Lattice Points 莫比乌斯,分块

    题目:http://acm.hust.edu.cn/vjudge/problem/viewProblem.action?id=37193   Visible Lattice Points Time L ...

  5. 在Ubuntu中设置中文输入法

    在Ubuntu中设置中文输入法 */--> pre { background-color: #2f4f4f;line-height: 1.6; FONT: 10.5pt Consola,&quo ...

  6. 突破LVS瓶颈,LVS Cluster部署(OSPF + LVS) - lxcong的运维技术 - 开源中国社区

    突破LVS瓶颈,LVS Cluster部署(OSPF + LVS) - lxcong的运维技术 - 开源中国社区 突破LVS瓶颈,LVS Cluster部署(OSPF + LVS)

  7. Google协作平台

    本博文的主要内容有 .Google协作平台的介绍 1.Google协作平台的介绍 https://zh.wikipedia.org/wiki/Google%E5%8D%8F%E4%BD%9C%E5%B ...

  8. css开发经验&错误习惯

    CSS开发经验 1.尽量用class来定义样式.尽量少使用  .div1 ul li{}这样的样式下去,因为如果li里面还有<div><ul><li>这些元素的话会 ...

  9. [Oracle] Data Pump 详细使用教程(4)- network_link

    [Oracle] Data Pump 详细使用教程(1)- 总览 [Oracle] Data Pump 详细使用教程(2)- 总览 [Oracle] Data Pump 详细使用教程(3)- 总览 [ ...

  10. 第一贱-UILabel

    UILabel *label = [[UILabel alloc]init]; label.frame = CGRectMake(100, 100, 100, 100); label.text = @ ...