关于图表导出成图片的问题

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"的文件名一次性导出至任意选定的目录中？

winland

Sub mmm()
    Dim iTotal As Integer
    Dim nFilename As String
    Dim i As Integer

    iTotal = ActiveSheet.ChartObjects.Count
    For i = 1 To iTotal
        ActiveSheet.ChartObjects(i).Select
        nFilename = "C:\" & Format(i, "000") & ActiveChart.ChartTitle.Caption & ".gif"
        ActiveChart.Export Filename:=nFilename, filtername:="gif"
        ActiveWorkbook.Activate
    Next i
End Sub

EXCEL_CLZ1

老大，你真太了不起了，解决大问题了，

再请教一下，能否把上述代码放在一个commandbotten里，我想任意选中一个图以后，点击一下按钮将该图转成图片。（也就是只转化当前激活的图）

请老大再不吝赐教才是。

EXCEL_CLZ1

另外还有一个问题一直很迷惑，就是一个按钮能不能随着屏幕而上下或者左右滚动呢？就像一个浮动按钮一样，那就太酷了，能否实现，请老大告之一二。

winland

前面那个用按钮的还真不会做。后面的这个浮动按钮论坛里有介绍，你用"浮动按钮"关键字搜搜。