OpenOffice.info

Code: Alles auswählen

aWidth(  6) = 1600
aWidthID(6) = 16
aHeight( 6) = 1200

oFilter = CreateUnoService("com.sun.star.drawing.GraphicExportFilter")

Code: Alles auswählen

REM ####################################################################################
REM 2006_05_17 14Uhr16
REM 
REM PNG Export Script
REM Grosse Teile des Codes von IndeView übernommen (http://www.indeview.org)
REM ####################################################################################

Sub PNGExport

    DIM oDoc As Object
    oDoc = ThisComponent
	
	DIM oDir As Object
	oDir = createunoservice("com.sun.star.ui.dialogs.FolderPicker")
	With oDir
		.setDisplayDirectory( "file:///" )
		.setTitle("IndeView Export - select target directory")
		.setDescription("Select target directory")
	End With
	
	If oDir.execute() Then
		DIM sDir As String
		DIM expDir As String
		DIM sName As String
		DIM nNumPages As Integer
		DIM nPage As Integer
		DIM oPage As Object
		DIM oFilter As Object
		DIM aFilterData( 2 ) As new com.sun.star.beans.PropertyValue
		DIM aDescriptor( 2 ) As new com.sun.star.beans.PropertyValue
		DIM sFileNameExt As String
		DIM sFileName As String

        DIM nFile As Integer
        DIM sPageID As String
        DIM sSep As String

        DIM aWidth As Integer
        DIM aHeight As Integer

		REM Groessere Werte scheinen nicht zu gehen und machen Probleme
		REM Bei Tests hat es noch bis 4020x3015 geklappt
        
        aWidth	= 4000
        aHeight	= 3000


        sDir = oDir.directory
		sSep = GetPathSeparator()

		aFilterData(0).Name = "Width"
		aFilterData(1).Name = "Height"
		aFilterData(2).Name = "Translucent"
		aFilterData(2).Value = false

		aDescriptor(0).Name = "FilterName"
		aDescriptor(0).Value = "PNG"
		sFileNameExt     =    ".PNG"
		aDescriptor(1).Name = "URL"
		aDescriptor(2).Name = "FilterData"

		oFilter = CreateUnoService("com.sun.star.drawing.GraphicExportFilter")
		nNumPages = oDoc.DrawPages.getCount()
		For nPage = 0 To nNumPages-1

			oPage = oDoc.DrawPages( nPage )
			sName = oPage.getName()
			sPageID = "Page" + LTrim(Str( nPage ))

			expDir = ConvertFromUrl( sDir )

			On Error GOTO mkdata_error
			MkDir expDir
			GOTO mkdata_ok

mkdata_error:
			MsgBox( chr$(13) + "ERROR: Directory" + chr$(13) + chr$(13) + expDir + chr$(13) + chr$(13) + "could not be created!" + chr(13) , 0+48 , "IndeView export" )
			Exit Sub
mkdata_ok:

			oFilter.setSourceDocument( oPage )

			If  10 > nPage Then
				sFileName = "P00"
			Else
				If  100 > nPage Then
					sFileName = "P0"
				Else
					sFileName = "P"
				End If
			End If

			sFileName = sFileName + LTrim(Str( nPage )) + "W" + sFileNameExt

			aDescriptor(1).Value = sDir + "/" + sFileName

			aFilterData(0).Value = aWidth
			aFilterData(1).Value = aHeight
			aDescriptor(2).Value = aFilterData()

			oFilter.filter( aDescriptor() )

		Next
		MsgBox ( chr$(13) + "Der Export wurde erfolgreich durchgeführt" + chr$(13) + "Die Bilder sind unter folgendem Verzeichnis zu finden:" + chr$(13) + chr$(34)+ sDir + chr$(34),0 ,"Export erfolgreich" )
	End If
End Sub

REM ####################################################################################