Forum OpenOffice LibreOffice NeoOffice

Code : Tout sélectionner

Sub exporterPNG()
	Dim monDocument As Object
	Dim props(2)    As New com.sun.star.beans.PropertyValue
	Dim opts(1)     As New com.sun.star.beans.PropertyValue
	Dim serv        As Object, typeMime As String, resultat As Boolean
	
	monDocument = ThisComponent
	maForme     = monDocument.CurrentSelection(0)
	serv = CreateUnoService("com.sun.star.drawing.GraphicExportFilter")
	serv.setSourceDocument(maForme)
	props(0).Name  = "URL"
	props(0).Value = ConvertToURL("C:\Temp\test.png")
	props(1).Name  = "MediaType"
	props(1).Value = "image/png"
	props(2).Name  = "FilterData"
'	props(2).Value = opts()
	resultat       = serv.filter(props())
	
	if resultat then
		msgbox("Exportation terminée")
	else
		msgbox("Exportation échouée", 16)
	End if

End Sub

Code : Tout sélectionner

Sub Main
	doc = ThisComponent
	urlExport = convertToUrl("C:\le_chemin_vers\monfichier.png")
	image = doc.GraphicObjects(0).Graphic
	dim props(1) as new com.sun.star.beans.PropertyValue
	props(0).name = "URL"
	props(0).value = urlExport
	props(1).name = "MimeType"
	props(1).value = "image/png"
	s = createUnoService("com.sun.star.graphic.GraphicProvider")
	s.storeGraphic(image, props())
End Sub