Trabalhar com documentos parciais

Quando abre uma apresentação com conteúdo de tamanho grande, o PowerPoint pode servir o documento em partes como documentos parciais. Isto permite-lhe abrir, editar e colaborar em documentos rapidamente, enquanto as partes de multimédia maiores (por exemplo, vídeos) continuam a ser carregadas em segundo plano. Da mesma forma, uma vez que os suportes de dados são processados separadamente do resto do documento, a colaboração é mais suave quando os suportes de dados são inseridos durante uma sessão de colaboração.

Uma vez que determinado conteúdo pode ser diferido inicialmente, algumas ações só podem ser tomadas depois de o conteúdo diferido ser carregado. Além disso, existem determinadas ações, como Guardar Como, Exportar para Vídeo, etc. que não funcionarão até que todos os conteúdos diferidos sejam transferidos. Se iniciar uma destas operações, o PowerPoint apresentará a IU a informá-lo sobre o progresso da transferência, mas isso não é possível para operações programáticas. Se tentar chamar programaticamente uma API para executar uma ação enquanto o conteúdo ainda está a ser transferido, este 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

Compreender o estado de transferência total

Para compreender se uma apresentação é totalmente transferida programaticamente, pode consultar a propriedade Apresentação.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

Também pode adicionar algum processamento de erros para capturar a falha e repetir a operação assim que a apresentação for totalmente transferida. Se o valor de erro for -2147188128 ou 0x80048260, a operação falhou porque a apresentação não foi totalmente transferida. Utilize Err.Number como chave para identificar estas falhas, conforme mostrado no exemplo seguinte.

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

Segue-se uma lista de chamadas à API OM afetadas que podem devolver 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.