PPT2000: Método Slide.Export causa erro ao exportar como gráficos

Quando você usa o método Export do objeto slide , você receberá a seguinte mensagem de erro:

Essa mensagem de erro ocorre quando o slide contém um objeto danificado ou corrompido.

Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades.
Observação : os seguintes exemplos de macro funcionam somente no PowerPoint. Visual Basic for Applications macros não são suportadas pelo Visualizador do Microsoft PowerPoint. Para obter informações adicionais, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:

Código de exemplo para exportação de imagem

Para contornar esse problema, use o método Export do objeto Presentation . O seguinte código de exemplo permite que você controle o nome do arquivo de cada elemento gráfico.

Observação : O seguinte código de exemplo requer que você instale o software Microsoft Windows Scripting Host antes de tentar executar este código. Para obter informações adicionais sobre o Windows Scripting Host e onde obtê-lo, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:

1. Crie uma apresentação em branco no PowerPoint.
2. No menu Ferramentas , aponte para macro e, em seguida, clique em Editor do Visual Basic .
3. No menu Ferramentas , clique em referências .
4. Na lista de referências, clique para marcar a caixa de seleção @@@ Microsoft Scripting Runtime . Clique em OK .
5. No menu Inserir , clique em módulo .
6. Digite o seguinte código no módulo:

   Sub ExportImage()
   '
   ' Declare as a string constant which drive path
   ' you want to export the graphics to.
   ' By doing it this way, it is simple to alter the
   ' the location that you will save to.
   '
      Const strDrivePath As String = "C:\your_folder"
      Dim fsoFile As Scripting.FileSystemObject
      Dim oSlidesCount As Long
      Dim i As Long
      Dim strPadZero As String
   '
   ' Set fsoFile to Scripting's FileSystemObject.
   '
      Set fsoFile = CreateObject("Scripting.FileSystemObject")
   '
   ' Get the number of slides in the presentation.
   '
      oSlidesCount = ActivePresentation.Slides.Count
   '
   ' Using Presentation object's Export method, export the
   ' slides to the folder location of your choice.
   '
      ActivePresentation.Export strDrivePath, "JPG"
   '
   ' After the slides have been exported as graphics, use the
   ' FileSystemObject to rename the images to a name of your own
   ' choosing.
   '
      For i = 1 To oSlidesCount
   '
   ' Put leading zeros in front of the current index value if
   ' i is less than 1,000. This ensures that the images will be
   ' sorted in proper numerical order when sorted by name.
   '
         If i < 1000 Then
            strPadZero = Format(i, "000")
         Else
            strPadZero = i
         End If
   '
   ' Using the MoveFile method, rename the slide JPEGs to a name of
   ' your own choosing. In this example, they are being named:
   '    myslide_00#.jpg
   '
         fsoFile.MoveFile strDrivePath & "\SLIDE" & i & ".JPG", _
               strDrivePath & "\myslide_" & strPadZero & ".jpg"
      Next i
   
   End Sub
   					

7. Feche o Editor do Visual Basic e salve a apresentação.
8. Abra a apresentação que você não pode exportar em um formato gráfico quando você usar o método Exportar do objeto slide .
9. No menu Ferramentas , aponte para macro e, em seguida, clique em macros .
10. Na lista macros em , clique em All abrir apresentações .
11. Clique em ExportImage na lista de macro e, em seguida, clique em Executar .

A Microsoft confirmou que este é um problema nos produtos da Microsoft listados no começo deste artigo. Esse problema foi corrigido no Microsoft Office XP.