这段关于图表导出成*.gif文件的VBA代码有什么问题？

EXCEL_CLZ1

请问诸位高手： 

    我想将EXCEL中的已经制好的图表导出成*.gif文件，请问以下语句有如何问题，为什么执行后没反应，另外，如果我将该段语句放置在CommandButton按钮中是否应该修改某些代码？

Sub 图片输出()
   If Not ActiveChart Is Nothing Then
   nfilename = "F:\2007\" & ActiveChart.ChartTitle.Caption & ".gif"
   ActiveChart.Export Filename:=nfilename, filtername:="gif"
   End If
End Sub

       最后， 能不能有一个遍历语句，遍历所有当前表格中的图表文件，并依次以“序号”+”图表表头“+”*gif"的文件名一次性导出至任意选定的目录中？

snood

是不是选中图表了？

EXCEL_CLZ1

肯定选中了，我上个月用时好象还成功了，不知怎么这个月不行了，但我记不清上月是不是用的这段代码了。

EXCEL_CLZ1

老大，不会是走开了吧

EXCEL_CLZ1

哇，拜托，不要不理我，我只有两天的时间却要绘制几百张图表，还指望它能导出呢，老大们呀，救命！

snood

以下是引用EXCEL_CLZ1在2007-6-6 17:41:17的发言：

肯定选中了，我上个月用时好象还成功了，不知怎么这个月不行了，但我记不清上月是不是用的这段代码了。

不要ＩＦ试试

willin2000

For Each Cht In ActiveSheet.ChartObjects
   nfilename = "F:\2007\" & Cht.Chart.ChartTitle.Characters.Text & ".gif"
   Cht.Chart.Export Filename:=nfilename, filtername:="gif"
Next

[此贴子已经被作者于2007-6-7 16:25:31编辑过]

EXCEL_CLZ1

老大，去掉IF还是不行，我想既然我上个月成功过，是否是因为重装系统有哪个选项没选中，或者该加载的没载？能不能给予指点迷津一二。

xmodem

  Dim cht As ChartObject
  For Each cht In Sheet7.ChartObjects
    nfilename = "d:\" & cht.Chart.ChartTitle.Caption & ".gif"
    cht.Activate
    ActiveChart.Export Filename:=nfilename, filtername:="gif"
  Next

xiaoya

使用willin2000 的代码 F8 调一下，把错误抛出来看看