Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Creates web page with interactivity from an embedded chart

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