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)
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.
# 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
This means one can go about creating Excel models directly with Python.
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.
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()
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.
from MSO import *
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.
Base = Presentation.Slides.Add(1, ppLayoutBlank)
width, height = 28, 41
for i, movie in enumerate(movies):
x = 10 + width * (i % 25)
y = 100 + height * (i // 25)
r = Base.Shapes.AddShape(
msoShapeRectangle,
x, y,
width, height)
It would be nice to get posters into those, so let’s scrape the posters.
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.
Base = Presentation.Slides.Add(1, ppLayoutBlank)
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)
Wouldn’t it be nice to have these hyperlinked to the movies?
Base = Presentation.Slides.Add(1, ppLayoutBlank)
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.
Base = Presentation.Slides.Add(1, ppLayoutBlank)
# Add two buttons: alphabetical and by rating
button_alpha = Base.Shapes.AddShape(msoShapeRectangle, 400, 10, 150, 40)
button_alpha.TextFrame.TextRange.Text = 'Alphabetical'
button_rating = Base.Shapes.AddShape(msoShapeRectangle, 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.
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.
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.,
))
You can see how these were put to use at Gramener:
- Vijay Karnataka’s election coverage was produced entirely in PowerPoint using Python. (And in Kannada, no less!)
- Appstore downloads — a mini interactive application that shows the number of downloads from an app store, broken up by country, device, customer segment and time.
- Revenue breakup of an FMCG company as a clickable application
Just for kicks, let’s use PowerPoint as a dashboard to show live tweets.
I picked TwitterAPI to get streaming results, but twython and Python Twitter Tools look fine too.
from TwitterAPI import TwitterAPI
# I'm keeping my keys and secrets in a secret file.
from secret_twitter import consumer_key, consumer_secret, access_token_key, access_token_secret
api = TwitterAPI(consumer_key, consumer_secret, access_token_key, access_token_secret)
This function will draw a tweet in a reasonably nice way on a slide. There’s a block each for the profile picture, the text of the tweet, and the name of the user.
def draw_tweet(Base, item, pos):
y = 40 + (pos % 4) * 120
image = Base.Shapes.AddPicture(
# To get the larger resolution image, just remove _normal from the URL
item['user']['profile_image_url'].replace('_normal', ''),
LinkToFile=True,
SaveWithDocument=False,
Left=20, Top=y,
Width=100, Height=100)
try:
status = item['text'].encode('cp1252')
except UnicodeEncodeError:
status = item['text']
text = Base.Shapes.AddShape(msoShapeRectangle, 130, y, 460, 100)
text.Fill.ForeColor.ObjectThemeColor = msoThemeColorText1
text.Fill.ForeColor.Brightness = +0.95
text.Line.Visible = msoFalse
text.TextFrame.TextRange.Text = status
text.TextFrame.TextRange.Font.Color.ObjectThemeColor = msoThemeColorText1
text.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignLeft
user = Base.Shapes.AddShape(msoShapeRectangle, 600, y, 100, 100)
user.Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent6
user.Line.Visible = False
user.TextFrame.TextRange.Text = '@' + item['user']['screen_name']
Let’s track requests for specific words, and see what we get.
Base = Presentation.Slides.Add(1, ppLayoutBlank)
api.request('statuses/filter', {'track': 'beer'})
for pos, item in enumerate(api.get_iterator()):
draw_tweet(Base, item, pos)
if pos > 10:
break
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)
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.
# 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
This means one can go about creating Excel models directly with Python.
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.
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()
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.
from MSO import *
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.
Base = Presentation.Slides.Add(1, ppLayoutBlank)
width, height = 28, 41
for i, movie in enumerate(movies):
x = 10 + width * (i % 25)
y = 100 + height * (i // 25)
r = Base.Shapes.AddShape(
msoShapeRectangle,
x, y,
width, height)
It would be nice to get posters into those, so let’s scrape the posters.
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.
Base = Presentation.Slides.Add(1, ppLayoutBlank)
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)
Wouldn’t it be nice to have these hyperlinked to the movies?
Base = Presentation.Slides.Add(1, ppLayoutBlank)
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.
Base = Presentation.Slides.Add(1, ppLayoutBlank)
# Add two buttons: alphabetical and by rating
button_alpha = Base.Shapes.AddShape(msoShapeRectangle, 400, 10, 150, 40)
button_alpha.TextFrame.TextRange.Text = 'Alphabetical'
button_rating = Base.Shapes.AddShape(msoShapeRectangle, 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.
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.
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.,
))
You can see how these were put to use at Gramener:
- Vijay Karnataka’s election coverage was produced entirely in PowerPoint using Python. (And in Kannada, no less!)
- Appstore downloads — a mini interactive application that shows the number of downloads from an app store, broken up by country, device, customer segment and time.
- Revenue breakup of an FMCG company as a clickable application
Just for kicks, let’s use PowerPoint as a dashboard to show live tweets.
I picked TwitterAPI to get streaming results, but twython and Python Twitter Tools look fine too.
from TwitterAPI import TwitterAPI
# I'm keeping my keys and secrets in a secret file.
from secret_twitter import consumer_key, consumer_secret, access_token_key, access_token_secret
api = TwitterAPI(consumer_key, consumer_secret, access_token_key, access_token_secret)
This function will draw a tweet in a reasonably nice way on a slide. There’s a block each for the profile picture, the text of the tweet, and the name of the user.
def draw_tweet(Base, item, pos):
y = 40 + (pos % 4) * 120
image = Base.Shapes.AddPicture(
# To get the larger resolution image, just remove _normal from the URL
item['user']['profile_image_url'].replace('_normal', ''),
LinkToFile=True,
SaveWithDocument=False,
Left=20, Top=y,
Width=100, Height=100)
try:
status = item['text'].encode('cp1252')
except UnicodeEncodeError:
status = item['text']
text = Base.Shapes.AddShape(msoShapeRectangle, 130, y, 460, 100)
text.Fill.ForeColor.ObjectThemeColor = msoThemeColorText1
text.Fill.ForeColor.Brightness = +0.95
text.Line.Visible = msoFalse
text.TextFrame.TextRange.Text = status
text.TextFrame.TextRange.Font.Color.ObjectThemeColor = msoThemeColorText1
text.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignLeft
user = Base.Shapes.AddShape(msoShapeRectangle, 600, y, 100, 100)
user.Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent6
user.Line.Visible = False
user.TextFrame.TextRange.Text = '@' + item['user']['screen_name']
Let’s track requests for specific words, and see what we get.
Base = Presentation.Slides.Add(1, ppLayoutBlank)
api.request('statuses/filter', {'track': 'beer'})
for pos, item in enumerate(api.get_iterator()):
draw_tweet(Base, item, pos)
if pos > 10:
break
Similar Notebooks