Missing Text Boxes in XL2003 Html Publish

C

CochranRB

I used code

Sub AddHTMLCharts()
Dim chtobj As ChartObject
Dim strChartName As String
Dim vaDate As Variant
vaDate = Format(Date - 1, "yyyy-mm-dd")
Application.DisplayAlerts = False
Worksheets("Charts").Activate
For Each chtobj In ActiveSheet.ChartObjects
strChartName = chtobj.Name
ActiveSheet.ChartObjects(strChartName).Activate
ActiveWorkbook.PublishObjects.Add(xlSourceChart, _
"\\edc-netstor1a\data$\System Performance Plots\DailyFiles\" _
& vaDate & "CBP" & strChartName & ".htm", _
"Charts", strChartName, xlHtmlStatic, strChartName, "").Publish
(True)
Next chtobj
Application.DisplayAlerts = True

to publish multiple charts in worksheet Charts in XL2000. Each chart
contains text boxes modified daily. When I upgraded to XL2003, the
text boxes no longer consistently display in the htm file. Suggestions?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Missing Chart Text Boxes in XL2003 Html Publish 0
I need to give index number to charts 3
delink all charts in worksheet 3
ChartAdd event for embedded charts 10
Determining if ChartObject is in PrintArea on Worksheet 5
Chart "Name" Property 2
Update charts 0
ShowWindow and reposition/resize after selecting an embedded chart 3

Top