Sub 图片生成()
'生成图片程序
    Const 日报路径 = "F:\彩信日报\pp\"
    For i = 1 To 4
        图形文件名 = 日报路径 & "第" & i & "张.gif"
        Set 当前工作表 = Sheets("第" & i & "帧")
        当前工作表.Select
        行数 = ActiveSheet.UsedRange.Rows.Count
        列数 = ActiveSheet.UsedRange.Columns.Count
        当前工作表.Range(Cells(1, 1), Cells(行数, 列数)).CopyPicture Appearance:=xlScreen, Format:=xlBitmap
        Charts.Add
        ActiveChart.Location Where:=xlLocationAsObject, Name:=当前工作表.Name
        ActiveChart.Paste
        ActiveChart.Shapes("Picture 1").Top = -4: ActiveChart.Shapes("Picture 1").Left = -4
        ActiveSheet.Shapes(1).Width = ActiveChart.Shapes("Picture 1").Width: ActiveSheet.Shapes(1).Height = ActiveChart.Shapes("Picture 1").Height
        ActiveChart.ChartArea.Border.LineStyle = 0
        ActiveChart.ChartArea.Interior.ColorIndex = xlNone
        ActiveChart.Export 图形文件名, "GIF"
        Application.DisplayAlerts = False: ActiveSheet.Shapes(1).Delete: Application.DisplayAlerts = True
    Next
End Sub