You might create your own Save As HTML option, where you present the dialog
and any options. Then you will know where the file(s) are. You can control
the Visio SaveAsWeb process via automation.
There is info on automating the Visio SaveAsWeb component in the Visio 2003
SDK.
I have messed with this, basically using automation to direct SaveAsWeb,
then deleting everything but the image that I care about, and extracting the
hyperlink polygons that Visio generates. It works fine!
Below is an extract from the help file about automating SaveAsWeb.
--
Hope this helps,
Chris Roth
Visio MVP
-------------------------------------
Using the Save as Web Page Object Model from Visual Basic: An Example
To use the Save as Web Page API in your Microsoft Visual Basic project, set
a reference in your project to Microsoft Visio 11.0 Save As Web Type
Library.
Note In the Microsoft Visual Basic Editor included with Microsoft Office
Visio, you can find the list of available references by clicking References
on the Tools menu. In Microsoft Visual Basic 6.0, you can find this list by
clicking References on the Project menu.
The Save as Web Page model contains two classes: VisSaveAsWeb and
VisWebPageSettings, which implement the IVisSaveAsWeb and
IVisWebPageSettings interfaces, respectively.
a.. A VisSaveAsWeb object implements the methods that perform the Web page
creation process.
b.. A VisWebPageSettings object contains the properties of your Web page
project.
When you create a Web page and its supporting files (also called a Web page
project), you'll typically follow these steps.
1.. Use the SaveAsWebObject property of the Visio Application object to
get an instance of a VisSaveAsWeb object.
2.. Use the WebPageSettings property of the VisSaveAsWeb object to get a
reference to a VisWebPageSettings object, which you can use to get or set
the Web page settings for your project.
3.. Set the properties of the VisWebPageSettings object.
Note You must always provide a target path for your files.
4.. Call the AttachToVisioDoc method to identify the document to save as a
Web page. If you don't specify which document to save, the active drawing is
saved.
5.. Call the CreatePages method to begin the Save as Web Page operation.
The following procedure shows how to open a new Web page project, set
selected properties, and create the Web page files.
Public Sub SaveAsWeb ()
Dim vsoSaveAsWeb As VisSaveAsWeb
Dim vsoWebSettings As VisWebPageSettings
' Get a VisSaveAsWeb object that
' represents a new Web page project.
Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject
' Get a VisWebPageSettings object.
Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings
' Configure preferences.
With vsoWebSettings
.StartPage = 1
.EndPage = 2
.QuietMode = True
.TargetPath = "c:\your_folder_name\your_filename.htm"
End With
' Create the pages. Because no particular document
' is specified, the active drawing is saved.
vsoSaveAsWeb.CreatePages
End Sub-------------------------------------
