目录

　　Chart Export　

　　Chart Format　

　　Chart Lengend　

　　Chart Protect　

　　Chart Title　

　　Chart

　　Chart Export

　　1. 将Excel中的图表导出成gif格式的图片保存到硬盘上

Sub ExportChart()
　　　 Dim myChart As Chart
　　　 Set myChart = ActiveChart
　　　 myChart.Export Filename:="C:Chart.gif", Filtername:="GIF"
End Sub

　　理论上图表可以被保存成任何类型的图片文件，读者可以自己去尝试。

　　2. 将Excel中的图表导出成可交互的页面保存到硬盘上

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

　　Chart Format

　　1. 操作Chart对象。给几个用VBA操作Excel Chart对象的例子，读者可以自己去尝试一下。

Public　Sub ChartInterior()
　　　 Dim myChart As Chart
　　　 'Reference embedded chart
　　　 Set myChart = ActiveSheet.ChartObjects(1).Chart
　　　 With myChart　　 'Alter interior colors of chart components
　　　　　　　 .ChartArea.Interior.Color =　RGB(1, 2, 3)
　　　　　　　 .PlotArea.Interior.Color =　RGB(11, 12, 1)
　　　　　　　 .Legend.Interior.Color =　RGB(31, 32, 33)
　　　　　　　 If .HasTitle Then
　　　　　　　　　　　 .ChartTitle.Interior.Color =　RGB(41, 42, 43)
　　　　　　　 End　If
　　　 End　With
End Sub