VBA/Excel/Access/Word/Excel/Chart Export

Creates web page with interactivity from an embedded chart

   <source lang="vb">

Sub SaveChartWeb()

   ActiveWorkbook.PublishObjects.Add _
       SourceType:=xlSourceChart, _
       Filename:=ActiveWorkbook.Path & "\Sample2.htm", _
       Sheet:=ActiveSheet.name, _
       Source:=" Chart 1", _
       HtmlType:=xlHtmlChart
   ActiveWorkbook.PublishObjects(1).Publish (True)

End Sub

</source>
   
  

exports the active chart as a GIF file:

   <source lang="vb">

Sub ExportChart()

   Dim myChart As Chart
   Set myChart = ActiveChart
   myChart.Export Filename:="C:\Chart.gif", Filtername:="GIF"

End Sub

</source>