PowerPoint Example

PowerPoint Example : PowerPoint : Windows PYTHON TUTORIALS

PYTHON TUTORIALS » Windows » PowerPoint »


from Tkinter import Tk
from time import sleep
from tkMessageBox import showwarning
import win32com.client as win32

warn = lambda app: showwarning(app, 'Exit?')
RANGE = range(3, 8)

def ppoint():
    app = 'PowerPoint'
    ppoint = win32.gencache.EnsureDispatch('%s.Application' % app)
    pres = ppoint.Presentations.Add()
    ppoint.Visible = True

    s1 = pres.Slides.Add(1, win32.constants.ppLayoutText)
    sleep(1)
    s1a = s1.Shapes[0].TextFrame.TextRange
    s1a.Text = 'Python-to-%s Demo' % app
    sleep(1)
    s1b = s1.Shapes[1].TextFrame.TextRange
    for i in RANGE:
         s1b.InsertAfter("Line %drn" % i)
         sleep(1)
    s1b.InsertAfter("rnTh-th-th-that's all folks!")

    warn(app)
    pres.Close()
    ppoint.Quit()

Tk().withdraw()
ppoint()