本例操作的是复制表格区域导出到图片。picture也是类似的操作,通过复制对象再以图表的方法导出。vba/VBA里面很常用的方法。
# -*- coding: utf-8 -*-
"""Created on Sun Jul 8 13:23:56 2018
@author: FanXiaoLei
"""
from win32com.client import Dispatch
xl=Dispatch('Excel.Application')
xl.Visible=False
wb=xl.Workbooks.Open(r'C:\Users\FanXiaoLei\Desktop\vbrichclients实践\xz.xlsm')
ws=wb.Sheets(1)
rng=ws.Range("A1:B13")
rng.CopyPicture()
c=ws.ChartObjects().Add(0,0,rng.Width,rng.Height).Chart
c.Activate
c.paste()
c.Export(r'C:\Users\FanXiaoLei\Desktop\1.png','png')
c.Parent.Delete()
wb.Saved=True#不保存文件
xl.Quit()