Apache OpenOffice (AOO) Bugzilla – Full Text Issue Listing |
Summary: | exporting entire presentations to jpeg | ||
---|---|---|---|
Product: | Impress | Reporter: | Unknown <non-migrated> |
Component: | code | Assignee: | bettina.haberer |
Status: | CLOSED DUPLICATE | QA Contact: | issues@graphics <issues> |
Severity: | Trivial | ||
Priority: | P3 | CC: | issues |
Version: | OOo 1.0.1 | ||
Target Milestone: | --- | ||
Hardware: | PC | ||
OS: | Windows XP | ||
Issue Type: | ENHANCEMENT | Latest Confirmation in: | --- |
Developer Difficulty: | --- |
Description
Unknown
2003-01-17 21:43:57 UTC
Set to new. Reassigned to Bettina. SJ: This feature can already be realized with a basic macro, you just need to put the following two macro statements into the standard OpenOffice macro module. Then you can assign a key to the ExportDocument macro. The macro saves each page to c:\ and is naming the files as follow: “test0.jpg”, “test1.jpg”. The macro was made for testing purposes, so it is not perfect. Feel free to improve the macro that it fulfils your requirements. I am not sure if the macro is already working with OOo 1.0, but it is surely working with OOo 1.0.1 Sub ExportDocument Dim sFileUrl As String xDoc = thiscomponent nCount = xDoc.DrawPages.Count() for n = 0 to nCount - 1 sFileUrl = "file:///c:/test" + n + ".jpg" xPage = xDoc.DrawPages( n ) ExportPage( xPage, sFileUrl ) next n End Sub Sub ExportPage( XPage, sFileUrl As String ) xExporter = createUnoService ( "com.sun.star.drawing.GraphicExportFilter" ) xExporter.SetSourceDocument( xPage ) Dim aArgs (3) as new com.sun.star.beans.PropertyValue Dim aURL as new com.sun.star.util.URL aURL.complete = sFileUrl aArgs(0).Name = "MediaType" aArgs(0).Value = "image/jpeg" aArgs(1).Name = "URL" aArgs(1).Value = aURL aArgs(2).Name = "Width" aArgs(2).Value = 1280 aArgs(3).Name = "Height" aArgs(3).Value = 1024 xExporter.filter( aArgs() ) End Sub This seems to be a duplicate of bug 5580 Save all slides of a presentation into numbered graphics files in one step http://www.openoffice.org/project/www/issues/show_bug.cgi?id=5580 Set duplicate to 5580. *** This issue has been marked as a duplicate of 5580 *** Closed as duplicate to 5580. |