https://bugs.documentfoundation.org/show_bug.cgi?id=157049

            Bug ID: 157049
           Summary: Draw: macro: Export filter sets bad coordinates in
                    exported SVG
           Product: LibreOffice
           Version: unspecified
          Hardware: x86-64 (AMD64)
                OS: Windows (All)
            Status: UNCONFIRMED
          Severity: normal
          Priority: medium
         Component: Draw
          Assignee: [email protected]
          Reporter: [email protected]

Created attachment 189302
  --> https://bugs.documentfoundation.org/attachment.cgi?id=189302&action=edit
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

-- 
You are receiving this mail because:
You are the assignee for the bug.

Reply via email to