PPT2000: Slide.Export método faz com que erro ao exportar como gráficos

Quando utiliza o método Export do objecto diapositivos , poderá receber a seguinte mensagem de erro:

Esta mensagem de erro ocorre quando o diapositivo contém um objecto danificado ou corrompido.

A Microsoft fornece exemplos de programação apenas, para fins sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, as garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação apresentada e as ferramentas que são utilizadas para criar e depurar procedimentos. Os técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador.
Nota : os exemplos de macro seguinte trabalhar apenas no PowerPoint. Visual Basic for Applications macros não suportadas pelo Microsoft PowerPoint Viewer. Para obter informações adicionais, clique no número de artigo que se segue para visualizar o artigo na Microsoft Knowledge Base:

Código de exemplo para exportar imagens

Para contornar este problema, utilize o método Export do objecto de apresentação . O seguinte código de exemplo permite-lhe controlar o nome do ficheiro de cada gráfico.

Nota : O seguinte código de exemplo requer a instalação de 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 de artigo existente abaixo para visualizar 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 References .
4. Na lista de referências, clique para seleccionar a caixa de verificação Microsoft Scripting Runtime . Clique em OK .
5. No menu Inserir , clique em módulo .
6. Escreva 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, em seguida, guarde a apresentação.
8. Abra a apresentação não pode exportar para um formato gráfico quando utiliza o método Export do objecto diapositivos .
9. No menu Ferramentas , aponte para macro e, em seguida, clique em macros .
10. Na lista macros em , clique em abrir todas as 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 início deste artigo. Este problema foi corrigido no Microsoft Office XP.