尝试通过Excel VBA宏保存GIF屏幕截图时出错

Question

I am using below link to take screenshot of excel and save as .gif file:

http://dmcritchie.mvps.org/excel/xl2gif.htm

When I try to run the macro, it gives following error at "containerbok.Activate":

Run time error '424': Object Required

May I know why I am getting this error?

I am using Excel 2010

Thanks!

Answer 1

Things are actually a little simpler than the code in the link that you posted. Just select the range of cells you want to image, and then run the following code.

 Sub ExportSelection()

    If TypeName(Selection) = "Range" Then
        'Copy the area that you have selected as a picture.
        Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
        'Create a default bar(column) chart using the selected cells.
        ActiveSheet.Shapes.AddChart.Select
        ActiveChart.ChartType = xlColumnClustered
        'Remove all the data from the chart, leaving a blank chart.
        Dim i As Integer
        For i = ActiveChart.SeriesCollection.Count To 1 Step -1
            ActiveChart.SeriesCollection(i).Delete
        Next
        'Paste the image of the selected cells onto the chart.
        ActiveChart.Paste
        'Export the chart as a gif image.
        ActiveChart.Export Environ("USERPROFILE") & "\Desktop\chart.gif"
        'Delete the existing chart.
        ActiveChart.Parent.Delete
    End If

End Sub

The key piece is ActiveChart.Export

This has been tested in Excel 2010 and works perfectly.