XML: Too Many OLE Visio Objects Kills Performance

I have also had great success with XML and the WMF format saved from Visio, for many years. Since you are using Visio within FM, it seems like you are not leaving the Windows environment, so maybe this is an option. I think that fonts are not saved, so any fonts in an image would need to be on that computer, but the same thing would be true for a Visio OLE object.

It is very simple to write a macro in Visio to automatically save as WMF. Here's one I use to save as both WMF and PNG:

Sub Save_as_PNG_WMF()


    Dim path As String
    Dim newpath As String
    
    Dim length As Integer
    
    ' Get the document path
    path = Application.ActiveWindow.Document.FullName
    
    ' get the length of the path, to be used for truncation
    length = Len(path)
    
    ' change our filename to have a wmf extension
    newpath = Left(path, length - 4)
    newpath = newpath + ".wmf"

    ' save the wmf
    Application.ActiveWindow.Page.Export newpath

    ' do the same for png
    newpath = Left(path, length - 4)
    newpath = newpath + ".png"
    Application.ActiveWindow.Page.Export newpath

End Sub

Russ