publish one (and only one) html file?

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)

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.OrganizeInFolder = 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)
>

'ActiveWorkbook.WebOptions.OrganizeInFolder = False' worked, but didn't solve
my need.

I can't beleive there's not a way to produce ONE output file, with the image
embedded.


"Mark" wrote:

> 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.OrganizeInFolder = 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)
> >