首页 / 软件开发 / VB / VBA在Excel中的应用（三）

VBA在Excel中的应用（三）2010-01-29 博客园 Jaxu目录

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