VBA/Excel/Access/Word/Excel/Chart Export — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:47, 26 мая 2010
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>