Bug 157049

Created attachment 189302 [details]
ODT, example of shifted SVG, and printscreen for bug

1) open source.odg 
2) set args(0).Value="..." in macro to your url for exported SVG 
3) run macro 
4) open exported SVG in Draw -> and object will be shifted a little bit beyond page (as in printscreen.png) 


Sub export2SVG
	dim oDoc as object, oFilter as object,oSel as object
	oDoc=ThisComponent
	createUnoService("com.sun.star.frame.DispatchHelper").executeDispatch(oDoc.CurrentController.Frame , ".uno:SelectAll", "", 0, array()) 'select curve
	oSel=oDoc.CurrentController.Selection
	dim args(1) as new com.sun.star.beans.PropertyValue
		args(0).Name="URL"
		args(0).Value="file:///d:/bug.svg"
		args(1).Name="MediaType"
		args(1).Value="image/svg+xml"
	oFilter=CreateUnoService("com.sun.star.drawing.GraphicExportFilter")
	with oFilter
		.setSourceDocument(oSel) 'only Selection
		.filter(args())
	end with
End Sub


Version: 7.6.1.1 (X86_64) / LibreOffice Community
Build ID: c7cda394c5de06de37d8109c310df89a4d4c3a98
CPU threads: 8; OS: Windows 10.0 Build 17763; UI render: Skia/Raster; VCL: win
Locale: cs-CZ (cs_CZ); UI: cs-CZ
Calc: CL threaded