PPT2000: Slide.Export-Methode verursacht Fehler bei als Grafik exportieren

Wenn Sie die Export -Methode des Slide -Objekts verwenden, erhalten Sie folgende Fehlermeldung:

Diese Fehlermeldung tritt auf, wenn die Folie einen beschädigten oder fehlerhaften-Objekt enthält.

Microsoft bietet Programmierbeispiele für Abbildung nur ohne Gewährleistung oder konkludent. Dies umfasst, ist jedoch nicht beschränkt auf konkludenten Garantien der Handelsüblichkeit oder Eignung für einen bestimmten Zweck. Dieser Artikel setzt voraus, dass Sie mit der Programmiersprache, die Programmierungsbeispiele ist und mit den Tools, die zum Erstellen und Debuggen von Prozeduren verwendet werden vertraut sind. Microsoft Support-Technikern helfen Erläuterung die Funktionalität einer bestimmten Prozedur, Sie werden ändert jedoch nicht diese Beispiele bieten Funktionen hinzugefügt oder Verfahren, um Ihren Anforderungen entsprechend zu erstellen.
Hinweis : die folgenden Makrobeispiele funktionieren nur in PowerPoint. Visual Basic für Applikationen-Makros werden vom Microsoft PowerPoint Viewer nicht unterstützt. Weitere Informationen finden Sie die folgende KB-Artikelnummer:

Beispielcode zum Bild exportieren

Um dieses Problem zu umgehen, verwenden Sie die Export -Methode des Presentation -Objekts. Der folgende Beispielcode können Sie den Dateinamen der Grafiken steuern.

Hinweis : der folgende Beispielcode müssen Sie Windows Scripting Host-Software installieren, bevor Sie diesen Code auszuführen. Weitere Informationen zu Windows Scripting Host und, wo Sie folgendem Artikel der Microsoft Knowledge Base:

1. Erstellen Sie eine leere Präsentation in PowerPoint.
2. Zeigen Sie im Menü Extras auf Makro , und klicken Sie dann auf Visual Basic-Editor .
3. Klicken Sie im Extras auf Verweise .
4. Klicken Sie in der Liste der Verweise auf das Kontrollkästchen Microsoft Scripting Runtime . Klicken Sie auf OK .
5. Klicken Sie im Menü Einfügen auf Modul .
6. Geben Sie den folgenden Code in das Modul:

   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. Schließen Sie Visual Basic-Editor, und speichern Sie die Präsentation.
8. Öffnen Sie die Präsentation, die Sie in einem grafischen Format exportieren können nicht, wenn Sie die Export -Methode des Slide -Objekts verwenden.
9. Im Menü Extras auf Makro , und klicken Sie auf Makros .
10. Klicken Sie in der Liste in Makro auf alle geöffneten Präsentationen .
11. Klicken Sie auf ExportImage in der Makroliste, und klicken Sie dann auf Ausführen .

Microsoft hat bestätigt, dass es sich hierbei um ein Problem bei den in diesem Artikel genannten Microsoft-Produkten handelt. Dieses Problem wurde in Microsoft Office XP behoben.