SaveAsPNGMBS funktioniert nicht

[Stefan Mettenbrink]

Folgende Routine sichert als JPEG problemlos, PBG aber nicht.
Hat jemand den entscheidenden Tip?

   elseif ExportArt="JPEG" then
     f=GetSaveFolderItem("alle","bild.jpg")
     if f<>nil then
       if f.saveasjpegMBS(Ausschnitt.Bild,100) then
         hinweis("Das Bild wurde als JPEG-Datei gesichert.")
       else
         hinweis("Das Bild konnte nicht gesichert werden.")
       end
     end
     Ausschnitt.Close
     'Bemerkungen.Close
   elseif ExportArt="PNG" then
     f=GetSaveFolderItem("alle","bild.png")
     if f<>nil then
       if f.SaveAsPNGMBS(Bild,0) then
         hinweis("Das Bild wurde als PNG-Datei gesichert.")
       else
         hinweis("Das Bild konnte nicht gesichert werden.")
       end
     end


MfG, Metti.