Changing monospace fonts in PowerPoint presentations

[lucas-a-meyer]

I couldn't figure out a way to reduce the size of the monospace fonts in PowerPoint presentations, so I wrote this script that I run in the post-render step.

It requires two things:

1. In my presentation, I'm forcing the monospace font to be Consolas. This makes it easier to find.

format: 
    pptx:
       reference-doc: templates/template.pptx
       monofont: "Consolas"

2. The python package python-pptx

The script is below:

from pptx.util import Pt
from pptx import Presentation

prs = Presentation(path)

# text_runs will be populated with a list of strings,
# one for each text run in presentation
text_runs = []

for slide in prs.slides:
    for shape in slide.shapes:
        if not shape.has_text_frame:
            continue
        for paragraph in shape.text_frame.paragraphs:
            for run in paragraph.runs:
                if run.font.name == "Consolas":
                    run.font.size = Pt(12)

prs.save(new_path)