Followup : does anyone have an example of how to properly use the
DefaultWebOptions.OrganizeInFolder = False property? I may be able to do
what I need if I can get it to work, but so far I haven't.

Neither the simple "Application.DefaultWebOptions.OrganizeInFolde r = False"
or

Set objExcel = CreateObject("Excel.Application")

objExcel.DefaultWebOptions.OrganizeInFolder = False

objExcel.quit

has any impact, am still getting the subfolder created....

"Mark" wrote:

I have a problem. When using the publish method to produce output, as below,
the resulting file references a subfolder with the image itself. While this
is elegant and all, I unfortunately need my user to, after this creation,
upload ONE file into a collaboration app.

So the question is, can there not be a way to produce one (and only one)
html file?

ActiveWorkbook.PublishObjects.Add(xlSourceChart, strFilename, "Chart1",
"", _
xlHtmlStatic, "", strTitle).Publish (True)