Trabalhar com documentos parciais

Quando você abre uma apresentação com conteúdo de tamanho grande, o PowerPoint pode servir o documento em partes como documentos parciais. Isso permite que você abra, edite e colabore em documentos rapidamente, enquanto as partes de mídia maiores (por exemplo, vídeos) continuam sendo carregadas em segundo plano. Da mesma forma, como a mídia é tratada separadamente do restante do documento, a colaboração é mais suave quando a mídia é inserida durante uma sessão de colaboração.

Como determinado conteúdo pode ser adiado inicialmente, algumas ações não podem ser tomadas até que o conteúdo adiado seja carregado. Além disso, há determinadas ações, como Salvar como, Exportar para vídeo etc., que não funcionarão até que todo o conteúdo adiado seja baixado. Se você iniciar uma dessas operações, o PowerPoint exibirá a interface do usuário informando sobre o progresso do download, mas isso não é possível para operações programáticas. Se você tentar chamar programaticamente uma API para executar uma ação enquanto o conteúdo ainda está sendo baixado, ela falhará.

Run-time error '-2147188128 (80048260)':
<object> (unknown member) : This method isn't supported until the presentation is fully downloaded. Visit this URL for more information: https://go.microsoft.com/fwlink/?linkid=2172228

Entender o estado totalmente baixado

Para entender se uma apresentação foi totalmente baixada programaticamente, você pode consultar a propriedade Presentation.IsFullyDownloaded antes de chamar qualquer uma das APIs afetadas.

If ActivePresentation.IsFullyDownloaded Then
    MsgBox "Presentation download is complete."
Else
    MsgBox "PowerPoint is still downloading the presentation."
End If

Tratamento de erros

Você também pode adicionar algum tratamento de erros para capturar a falha e repetir a operação depois que a apresentação for totalmente baixada. Se o valor de erro for -2147188128 ou 0x80048260, a operação falhou porque a apresentação não foi totalmente baixada. Use Err.Number como uma chave para identificar essas falhas, conforme mostrado no exemplo a seguir.

Sub TestCopySlide()
    On Error GoTo eh    
    ActivePresentation.Slides(1).Copy    
    Exit Sub
eh:
    If Err.Number = -2147188128 Then
        MsgBox "Cannot copy because the presentation is not fully downloaded."
    Else
        MsgBox "Failure is due to a reason other than incomplete download: " & Err.Description.
    End If
    Debug.Print Err.Number, Err.Description
End Sub

APIs afetadas

Veja a seguir uma lista de chamadas à API do OM afetadas que podem retornar o código de erro:

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.