PPT2000: Slide.Export metodo causa l'errore durante l'esportazione come grafica

Quando si utilizza il metodo Export dell'oggetto Slide , è potrebbe essere visualizzato il seguente messaggio di errore:

Questo messaggio di errore si verifica quando la diapositiva contiene un oggetto danneggiati.

Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia espressa o implicita. Questo include, ma non è limitato a, le garanzie implicite di commerciabilità o idoneità per uno scopo specifico. Questo articolo si presuppone che conosca il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire il debug di procedure. Tecnici del supporto Microsoft possono spiegare la funzionalità di una particolare procedura, ma in nessun sono caso a modificare questi esempi per fornire funzionalità aggiuntive o creare procedure per soddisfare specifiche esigenze.
Nota : gli esempi di macro seguenti funzionano solo in PowerPoint. Le macro di Visual Basic, Applications Edition non sono supportate dal Visualizzatore di Microsoft PowerPoint. Per ulteriori informazioni, fare clic sul numero dell'articolo della Microsoft Knowledge Base riportato di seguito riportato:

Codice di esempio per l'esportazione di immagini

Per risolvere questo problema, utilizzare il metodo di esportazione messaggi dell'oggetto Presentation . Nell'esempio di codice riportato di seguito consente di controllare il nome file di ciascun elemento grafico.

Nota : il seguente codice di esempio è necessario installare il software di Microsoft Windows Scripting Host prima di tentare di eseguire questo codice. Per ulteriori informazioni su Windows Scripting Host e dove ottenerlo, fare clic sul numero dell'articolo della Microsoft Knowledge Base riportato di seguito:

1. Creare una presentazione vuota in PowerPoint.
2. Scegliere macro dal menu Strumenti , quindi Visual Basic Editor .
3. Nel menu Strumenti , fare clic su riferimenti .
4. Nell'elenco dei riferimenti, fare clic per selezionare la casella Microsoft Scripting Runtime . Fare clic su OK .
5. Scegliere modulo dal menu Inserisci .
6. Digitare il seguente codice nel modulo:

   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. Chiudere Visual Basic Editor e quindi salvare la presentazione.
8. Aprire la presentazione che non è possibile esportare in un formato grafico quando si utilizza il metodo Export dell'oggetto Slide .
9. Scegliere macro dal menu Strumenti , quindi macro .
10. Nell'elenco Macro in , fare clic su tutto aprire le presentazioni .
11. Fare clic su ExportImage nell'elenco di macro e quindi fare clic su Esegui .

Microsoft ha confermato che questo problema riguarda i prodotti Microsoft elencati all'inizio di questo articolo. Questo problema è stato corretto in Microsoft Office XP.