OpenOffice.info

Verfasst: **Sa, 25.12.2004 17:01**

Hallo Allerseits,
ich habe ein kleines aber dennoch für mich unerlässliches Problem...

Ich importiere meine PowerPoint Präsentationen nach open office Impress...was ja funktioniert...;o)

Jetzt möchte ich aber alle meine Folien dieser Präsentation AUF EINMAL in das png-Format wieder exportieren...
Leider wird nur immer eine Folie exportiert wenn ich auf export gehe und das Format wähle...

Gibt es denn keine Möglichkeit ALLE Folien auf einen Schlag zu exportieren?
Ich brauche auch unbedingt das png - Format.
Leider sind die Präsentationen auch so groß (>200 Folien) udn werden auch in Zukunft noch so bleiben. Von daher wäre es sehr sinnvoll einen automatisierten Weg zu finden der das schaffen könnte...
Ich habe auch überlegt ein Makro zu programmieren aber leider reichen meine Programmierkenntnisse nicht so aus um das auf die schnelle so hinzubekommen. Ich müsste jetzt ziemlich viel Zeit investieren um das zu schaffen.
Und zuerst auf jpg rausexportieren udn dann nochmal mittels irfan z.B umzukonvertieren in png ist einfach zu viel Arbeit für die Zukunft....es muss leider schneller gehen...;(

Hat jemand eine blendende Idee wie ich das schaffen könnte? Für jede Hilfe bin ich dankbar!!!

Bis dann
Mat

Verfasst: **Sa, 25.12.2004 22:38**

Es scheint keine direkte Möglichkeit zu geben, deshalb habe ich in Anlehnung an:
http://www.oooforum.org/forum/viewtopic ... ht=impress
folgendes Makro geschrieben:

Code: Alles auswählen

Sub PNG_Export()
'hier Datei mit Pfad eintragen
datei = "D:\xxx\test.sxi"
startzeit = Now
Dim oArgs(0) as New com.sun.star.beans.PropertyValue
oDoc = StarDesktop.LoadComponentFromURL( ConvertToURL(datei), "_blank", 0, Array() )
nNumPages = oDoc.getDrawPages().getCount()
oDoc.dispose()
cImpressDocToSplitNoSuffix = Left( datei, Len( datei ) - 4 )
nHighestPageNumber = nNumPages-1
	For nPageToSave = 0 To nHighestPageNumber
		oDoc = StarDesktop.LoadComponentFromURL( ConvertToURL("D:\xxx\test.sxi" ), "_blank", 0, Array() )
		DeleteAllPagesExcept( oDoc, nPageToSave )
		cNewName = cImpressDocToSplitNoSuffix + "_seite_" + CSTR( nPageToSave + 1 )
		oDoc.storeToURL( ConvertToURL( cNewName + ".sxi" ), Array() )
		cUrl = ConvertToURL( cNewName + ".png" )
		oArgs(0).Name = "FilterName"
		oArgs(0).Value = "impress_png_Export"
		oDoc.storeToUrl(  cUrl , oArgs() )
		oDoc.dispose()
		w = cNewName & ".sxi"
		If FileExists(w) Then
			Kill w 
		End if
	Next
endzeit = Now
msgbox "beginn: " & startzeit & CHR(13) & "ende: " & endzeit
End Sub

Function DeleteAllPagesExcept( oDoc, nPageToKeep )
	nNumPages = oDoc.getDrawPages().getCount()
	nHighestPageNumber = nNumPages-1
	nPageToDelete = nHighestPageNumber
	Do while nPageToDelete > nPageToKeep
		oPage = oDoc.getDrawPages().getByIndex( nPageToDelete )
		oDoc.getDrawPages().remove( oPage )
		nPageToDelete = nPageToDelete - 1
	Loop
	For i = 0 To nPageToKeep - 1
		nPageToDelete = 0
		oPage = oDoc.getDrawPages().getByIndex( nPageToDelete )
		oDoc.getDrawPages().remove( oPage )
	Next
End Function

Ich kann mir jedoch nicht vorstellen das Du den Export mit diesem Makro erledigen willst. Da permanent die Datei geladen werden muß dauert das für 200 Seiten bestimmt 20 Minuten.
Eine Lösung die Präsentation als HTML zu exportieren und dann die vorhandenen Bilder mit einem Grafik-Programm im Batchbetrieb in *.png zu konvertieren würde ich der Einfachheit halber in jedem Fall bevorzugen.

Gruß
Stephan

OpenOffice.info

Export von Folien

Export von Folien