Ppt2000: Grafik verme sýrasýnda Slide.Export yöntemi nedenler hatasý

Slayt nesnesinin <a2>Export</a2> yöntemi kullandýðýnýzda, aþaðýdaki hata iletisini alabilirsiniz:

Zarar görmüþ veya bozuk bir nesneyi slayt içeriyorsa, bu hata iletisi oluþur.

Microsoft, programlama örneklerini yalnýzca gösterim amacýyla saðlar; örtülü veya açýk garanti vermez. Buna satýlabilirlik veya belirli bir amaca uygunluk zýmni garantileri de dahildir, ancak bunlarla sýnýrlý deðildir. Bu makale, gösterilen programlama dilini ve yordamlarý oluþturmak ve hata ayýklamak amacýyla kullanýlan araçlarý kullanmayý bildiðinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamýn iþlevselliðinin açýklanmasýna yardýmcý olabilir, ancak gereksinimlerinizi karþýlamaya yönelik olarak ek iþlevsellik saðlamak veya yordamlar geliþtirmek amacýyla bu örnekleri deðiþtirmezler.
Not: aþaðýdaki makro örnekleri yalnýzca PowerPoint'te çalýþýr. Visual Basic for Applications makrolarýný, Microsoft PowerPoint Görüntüleyici tarafýndan desteklenmez. Ek bilgi için, Microsoft Bilgi Bankasý'ndaki makaleyi görüntülemek üzere aþaðýdaki makale numarasýný týklatýn:

Örnek kod resim verme

Bu soruna geçici bir çözüm bulmak için <a0></a0>, Sunu</a0> nesnesinin <a2>Ver</a2> yöntemini kullanýn. Aþaðýdaki örnek kodu her grafiðin dosya adýný denetlemenize olanak verir.

Not: Aþaðýdaki örnek kod, bu kodu çalýþtýrmayý denemeden önce Microsoft Windows Scripting Host yazýlým yüklemenizi gerektirir. Windows Scripting Host ve onu nereden hakkýnda ek bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aþaðýdaki makale numarasýný týklatýn:

1. Boþ bir sunuyu PowerPoint'te oluþturun.
2. Araçlar menüsünden, makro ' nun üzerine gelin ve sonra Visual Basic Düzenleyicisi ' ni týklatýn.
3. Araçlar menüsünde, Baþvurular ' ý týklatýn.
4. <a0>Microsoft Scripting çalýþma zamaný</a0> onay kutusunu seçmek için baþvurularý listesinde týklatýn. Tamam ' ý týklatýn.
5. Ekle menüsünden modülü ' nü týklatýn.
6. Aþaðýdaki kodu modüle yazýn:

   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. Visual Basic Düzenleyicisi'ni kapatýn ve sunuyu kaydedin.
8. Slayt nesnesinin <a2>Ver</a2> yöntemini kullandýðýnýzda bir grafik biçimi için verme iþlemi yapýlamýyor sunuyu açýn.
9. Araçlar menüsünden, makro ' nun üzerine gelin ve makrolar ' ý týklatýn.
10. Makro, listede tüm açýk sunular'i týklatýn.
11. Makro listede ExportImage ' ý týklatýn ve sonra da <a2>Çalýþtýr</a2>'ý týklatýn.

Microsoft, bu makalenin baþýnda listelenen Microsoft ürünlerinde bir sorun olduðunu onaylamýþtýr. Bu sorun, Microsoft Office XP'de giderilmiþtir.