x = Range@3
b = (BarChart[{x, x}] )

Export["emfsaga.emf", b]

Export["emfsaga.emf", b, ImageResolution -> 8000]

InkscapeConvert[path_]:=Module[{
    inkpath=""C:\Program Files\Inkscape\inkscape.exe"",
    command
    },
        Run[""" <> inkpath <> " -f=""<>path<>".pdf"" <> " --export-emf=""<>path<>".emf"""]

]