麻烦高手帮我看下那里出了问题,Excel宏不能用
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