Creates web page with interactivity from an embedded chart : Chart Export « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. Chart Export

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

 

Related examples in the same category