Por que o Powerpoint 2010 imprime páginas de notas em PDF como imagens rasterizadas?

Question

Estou tentando imprimir uma apresentação de powerpoint de 40 slides para PDF no formato de páginas de notas, e o tamanho do arquivo .pdf resultante é 10x maior que o arquivo .pptx. A auditoria de espaço do Acrobat diz que são 99,7% dos dados de imagem. Aparentemente, o PowerPoint cria cada página de anotações colocando uma imagem rasterizada do slide no topo e as anotações do orador como texto na parte inferior: as anotações podem ser selecionadas como texto no Reader, mas o texto no slide não pode.

O problema desaparece se eu imprimir os slides diretamente (o texto permanece selecionável), mas as anotações do orador são perdidas.

Salvar como PDF tem a opção de incorporar as anotações do orador como anotações, mas elas estão enterradas em uma minúscula pequena nota no canto e as longas notas ficam truncadas.

Salvar como PDF otimizado para a Web reduz o tamanho do arquivo a algo razoável, mas os slides parecem terríveis (jpeg de baixa qualidade com artefatos óbvios).

É possível colar manualmente cada slide em um documento do Word como EMF e digitar o texto abaixo dele. O tamanho do arquivo resultante é totalmente razoável, mas é muito pesado para longas apresentações, especialmente desde que eu edito os slides toda vez que os distribuo.

Existe alguma maneira melhor de imprimir anotações do orador com os slides, mantendo os slides como arte vetorial?

    

Answer 1

Infelizmente, é assim que é projetado para funcionar.

A única alternativa realista que posso imaginar é usar o Office Automation usando scripts VBA para automatizar o fluxo de trabalho de publicação.

Você também pode automatizar o fluxo de trabalho usando a AutoHotKey .

    

Answer 2

(como postado por Ryan )

Graças a uma sugestão do @julian-knight, consegui criar o seguinte script VBA, que cola cada par de slides / notas em uma nova página de um novo documento do Word:

Sub CreateNotesPages()
Dim docx As Word.Document
Dim slide As slide
Dim txt As String
Dim r As Word.Range
Set docx = New Word.Document

For Each slide In ActivePresentation.slides
    slide.Copy
    Set r = docx.Range(docx.Content.End - 1, docx.Content.End)
    r.PasteSpecial Link:=False, _
        DataType:=wdPasteEnhancedMetafile, _
        Placement:=wdInLine, DisplayAsIcon:=False
    txt = slide.NotesPage.Shapes.Placeholders(2) _
        .TextFrame.TextRange.Text
    docx.Content.InsertAfter (vbCrLf & txt)
    Set r = docx.Range(docx.Content.End - 1, docx.Content.End)
    r.InsertBreak Type:=wdPageBreak
Next slide

End Sub

    

Answer 3

O PowerPoint 2016 resolve isso, pelo que vale a pena