PowerPoint 2013: como incorporar vídeos vinculados programaticamente ao VBA?

Question

Tenho muitas apresentações de PowerPoint com vídeos vinculados (armazenados em arquivos .wmv ou .avi separados, que estão localizados no mesmo caminho da apresentação).

Para tornar a apresentação "portátil" (por exemplo, compartilhá-los no MS SharePoint), eu preciso incorporar os vídeos para obter um único arquivo para cada apresentação.

Eu encontrei um procedimento que faz isso, é descrito no artigo: Otimize o mídia em sua apresentação para compatibilidade .

Em geral, você precisa:

• quebre os links
• otimize a compatibilidade de mídia
• salve as alterações.

Eu gostaria de automatizar esse processo e fazê-lo no VBA para todos os arquivos abertos de apresentação do PowerPoint, mas não consegui encontrar um exemplo na Internet sobre como fazer isso com o VBA.

Quais são os comandos necessários para:

• quebrando todos os links da apresentação
• otimizando a compatibilidade de mídia?

Answer 1

Tente o código a seguir que resample cada mídia vinculada nas apresentações abertas.

Sub Embed()
Dim l As Slide
Dim s As Shape
Dim oDoc As Presentation

On Error Resume Next
For Each oDoc In Application.Presentations
    For Each l In oDoc.Slides
        For Each s In l.Shapes
            With s.MediaFormat
                If .IsLinked And s.MediaType = ppMediaTypeMovie Then
                    .Resample False, .SampleHeight, .SampleWidth, _
                             .VideoFrameRate, .AudioSamplingRate
                End If
            End With
        Next
    Next
oDoc.Save
Next
End Sub

Para seus primeiros testes " Não use este código em suas apresentações originais "
Este código é fornecido "COMO ESTÁ" sem garantias, eu testei em minhas apresentações e funciona bem.