'#Reference {A3B5C45B-F842-44fc-A5E5-50CED69BA86E}#2.0#0#C:\Program Files\Mindjet\MindManager 6\Mm5WebExport.dll#Mm5webexport 2.0 Type Library
' Clickable Imagemap EndExport macro

'#Uses "GlobalParameterNames.mmbas"
'#Uses "ParameterNames.mmbas"
'#Uses "GlobalUtilities.mmbas"

Option Explicit

Sub Main

    Dim m_Addin As Mm5WebExportAddIn
    Dim m_Webex As WebExport

    Set m_Addin = WebExportHelper.WebExportAddIn
    Set m_Webex = m_Addin.ActiveWebExport

    Dim styleSheetPath As String

    On Error GoTo ReportError

    m_Webex.Trace("Entering EndExport " + CStr(m_Webex.GetParameter(WeErrorNumber)), 2)

    ' If there's no pending error
    If m_Webex.IsSuccessful Then

       ' Copy our linked documents to the Linked Documents folder
       m_Webex.CopyLinkedDocuments()

    End If

    m_Webex.Trace("Exiting EndExport " + CStr(m_Webex.GetParameter(WeErrorNumber)), 2)

    Exit Sub
   
ReportError:
    ProcessError(m_Webex)
    Exit Sub
   
End Sub
