神刀安全网

[工具资源] Python 调用 COM 的 API 实现 Microsoft Office(PPT, Excel, Word) 办公自动化

Python调用COM的API实现Microsoft Office(PPT, Excel, Word)办公自动化

In [3]:
from IPython.core.display import Image pic = lambda p : Image(filename='./resPPT/%s' % p)

Automating Microsoft Office with Python¶

Windows applications, for many years, have provided a COM API for automation. This includes Microsoft Office as well.

pywin32 is a library that lets you do many interesting things in Windows, including access these COM APIs.

For example, to open PowerPoint and draw a circle, this is what it takes:

Python实现Microsoft Office办公自动化¶

多年以前,微软就为Windows软件出了 COM 组件,便于调用其API实现自动化,也包括Microsoft Office。

pywin32 就是这样的库,能让你在Windows上做很多有趣的事儿,包括调用COM的API。

例如,要打开PPT画个圈儿,可以这么做:

In [17]:
import win32com.client  # Open PowerPoint Application = win32com.client.Dispatch("PowerPoint.Application")  # Add a presentation Presentation = Application.Presentations.Add()  # Add a slide with a blank layout (12 stands for blank layout) Base = Presentation.Slides.Add(1, 12)  # Add an oval. Shape 9 is an oval. oval = Base.Shapes.AddShape(9, 100, 100, 100, 100)

In [4]:
pic('ppt0.png')

Out[4]:
[工具资源] Python 调用 COM 的 API 实现 Microsoft Office(PPT, Excel, Word) 办公自动化

You’ll have to try this out to see the result, but just FYI, this will open a new PowerPoint window and add a slide with a circle in it.

This opens up a lot of opportunities for slideware. Similarly, we can open an Excel application, add a circle, and change a few cells.

你看,运行之后就能看到结果:打开一个PPT,新建一页,然后在上面画一个圈儿。

这为幻灯片制作开启了新思路。当然,我们也可以打开一个Excel,在上面画一个圈儿,向单元格添加内容。

In [6]:
# Open Excel Application = win32com.client.Dispatch("Excel.Application")  # Show Excel. Unlike PPT, Word & Excel open up "hidden" Application.Visible = 1  # Add a workbook Workbook = Application.Workbooks.Add()  # Take the active sheet Base = Workbook.ActiveSheet  # Add an oval. Shape 9 is an oval. oval = Base.Shapes.AddShape(9, 100, 100, 100, 100)  # In the first row, add Values: 0.0, 0.5, 1.0 Base.Cells(1, 1).Value = 'Values' Base.Cells(1, 2).Value = 0.0 Base.Cells(1, 3).Value = 0.5 Base.Cells(1, 4).Value = 1.0

In [7]:
pic('ppt1.png')

Out[7]:
[工具资源] Python 调用 COM 的 API 实现 Microsoft Office(PPT, Excel, Word) 办公自动化

This means one can go about creating Excel models directly with Python.

看到了吧,可以直接通过python建立Excel。

Picturing the IMDb Top 250¶

Let’s begin by creating a slide that shows all of the Top 250 movies on the IMDb.

First, let’s load all the movies.

画图——IMDb Top 250¶

让我们做点儿更好玩儿的,用PPT显示IMDb的 Top 250 电影

In [18]:
from lxml.html import parse  tree = parse('http://www.imdb.com/chart/top') movies = tree.findall('.//table[@class="chart"]//td[@class="titleColumn"]//a') movies[0].text_content()

Out[18]:
'The Shawshank Redemption'

We can show these movies. But before that, we can’t remember these numbers for the shapes (like 9 is for circle). Let’s pre-define those in line with how Office uses them and import them.

lxml 可以轻松获取数据( BeautifulSoup 也行)。但是,我们记不住形状对应数字(如9表示椭圆oval,5表示矩形rectangle),让我们先看看这些数字Office是如何用的。

In [79]:
# 使用win32com里面的makepy -d生成MSO, MSPPT import MSO, MSPPT g = globals() for c in dir(MSO.constants):    g[c] = getattr(MSO.constants, c) for c in dir(MSPPT.constants):  g[c] = getattr(MSPPT.constants, c)

Let’s draw each movie poster as a little box on a 25×10 grid. We don’t have the images yet, but first, let’s just draw the rectangles.

我们把每部电影的海报放到25列10行的栅格里,每个格子宽28高41。抓图片之前,我们先把格子都画好。

In [40]:
Base = Presentation.Slides.Add(1, ppLayoutBlank)  width, height = 28, 41 for i, movie in enumerate(movies):     # 25 columns one row, column step is 28     x = 10 + width * (i % 25)     # 10 rows one column, row step is 41     y = 100 + height * (i // 25)     r = Base.Shapes.AddShape(             5, # Shape Rectangle             x, y,             width, height)

In [8]:
pic('ppt2.png')

Out[8]:
[工具资源] Python 调用 COM 的 API 实现 Microsoft Office(PPT, Excel, Word) 办公自动化

It would be nice to get posters into those, so let’s scrape the posters.

海报放框里应该会好看点,下面我们抓海报。

In [16]:
import os from urlparse import urljoin from urllib import urlretrieve from hashlib import md5  # We'll keep the files under an img/ folder if not os.path.exists('img'):     os.makedirs('img')      def filename(movie):     '''Filename = MD5 hash of its title in UTF8'''     name = md5(movie.text_content().encode('utf8')).hexdigest()     return os.path.join('img', name + '.jpg')      for movie in movies:     if os.path.exists(filename(movie)):         continue              url = urljoin('http://www.imdb.com/', movie.get('href'))     tree = parse(url)     img = tree.find('.//td[@id="img_primary"]//img')     urlretrieve(img.get('src'), filename(movie))

Now, instead of just rectangles, we’ll use the posters.

现在,我们用这些海报来填充。

In [22]:
Base = Presentation.Slides.Add(1, 12)  width, height = 28, 41 for i, movie in enumerate(movies):     x = 10 + width * (i % 25)     y = 100 + height * (i // 25)     image = Base.Shapes.AddPicture(         os.path.abspath(filename(movie)),         LinkToFile=True,         SaveWithDocument=False,         Left=x, Top=y,         Width=width, Height=height)

In [9]:
pic('ppt3.png')

Out[9]:
[工具资源] Python 调用 COM 的 API 实现 Microsoft Office(PPT, Excel, Word) 办公自动化

Wouldn’t it be nice to have these hyperlinked to the movies?

要是海报能链接到每部电影就更帅了。

In [36]:
Base = Presentation.Slides.Add(1, 12)  width, height = 28, 41 for i, movie in enumerate(movies):     x = 10 + width * (i % 25)     y = 100 + height * (i // 25)     image = Base.Shapes.AddPicture(         os.path.abspath(filename(movie)),         LinkToFile=True,         SaveWithDocument=False,         Left=x, Top=y,         Width=width, Height=height)     url = urljoin('http://www.imdb.com/', movie.get('href'))     link = image.ActionSettings(ppMouseClick).Hyperlink     link.Address = url     link.ScreenTip = movie.text_content().encode('cp1252')

This is ordered by rank, which is useful, but this makes it hard to locate a specific movie. What if we could sort this alphabetically?

But then, we don’t want to lose the ordering by rank either. Could we, perhaps, get these movies to move on the click of a button to alphabetical or rank order?

Let’s start by adding two buttons — one to sort alphabetically and the ohter to sort by rank.

这是按照评分排序的,通常如此,但是很难定位到某一个电影。要是按字母排序呢?

但是,我们也不想丢失评分排序。那么,我们能不能加个按钮,让这些电影分别按字母/评分排序?

让我们加两个按钮吧——分别按字母/评分排序。

In [47]:
Base = Presentation.Slides.Add(1, 12)  # Add two buttons: alphabetical and by rating button_alpha = Base.Shapes.AddShape(5, 400, 10, 150, 40) button_alpha.TextFrame.TextRange.Text = 'Alphabetical'  button_rating = Base.Shapes.AddShape(5, 560, 10, 150, 40) button_rating.TextFrame.TextRange.Text = 'By rating'  # Get the index position when sorted alphabetically movies_alpha = sorted(movies, key=lambda v: v.text_content()) index_alpha = dict((movie.text_content(), i) for i, movie in enumerate(movies_alpha))

We’ll create a function that moves an image along a path when a trigger is clicked. This will be applied to each of the images.

我们建一个函数实现让按钮按下的时候,电影图片会沿着一个路径移动,然后将函数应用到每张图片。

In [54]:
def animate(seq, image, trigger, path, duration=1.5):     '''Move image along path when trigger is clicked'''     effect = seq.AddEffect(        Shape=image,        effectId=msoAnimEffectPathDown,        trigger=msoAnimTriggerOnShapeClick,     )     ani = effect.Behaviors.Add(msoAnimTypeMotion)     ani.MotionEffect.Path = path     effect.Timing.TriggerType = msoAnimTriggerWithPrevious     effect.Timing.TriggerShape = trigger     effect.Timing.Duration = duration

Finally, we draw all the images. After drawing them, we specify one animation for alphabetical ordering, and another for ordering by rating.

最后,我们将函数应用到所有图片上。之后,我们指定一个动画为按字母排序,另一个动画为按评分排序。

In [55]:
seq_alpha = Base.TimeLine.InteractiveSequences.Add() seq_rating = Base.TimeLine.InteractiveSequences.Add() width, height = 28, 41 for i, movie in enumerate(movies):     x = 10 + width * (i % 25)     y = 100 + height * (i // 25)     image = Base.Shapes.AddPicture(         os.path.abspath(filename(movie)),         LinkToFile=True,         SaveWithDocument=False,         Left=x, Top=y,         Width=width, Height=height)     url = urljoin('http://www.imdb.com/', movie.get('href'))     link = image.ActionSettings(ppMouseClick).Hyperlink     link.Address = url     link.ScreenTip = movie.text_content().encode('cp1252')          # Alphabetical      index = index_alpha[movie.text_content()]     animate(seq_alpha, image, trigger=button_alpha, path='M0,0 L{:.3f},{:.3f}'.format(         (10 + width * (index % 25) - x) / 720.,         (100 + height * (index // 25) - y) / 540.,     ))          # By rating     animate(seq_rating, image, trigger=button_rating, path='M{:.3f},{:.3f} L0,0'.format(         (10 + width * (index % 25) - x) / 720.,         (100 + height * (index // 25) - y) / 540.,     ))

In [10]:
pic('ppt4.png')

Out[10]: