《Excel应用实例——轻松套打带照片的准考证》实例的延伸技术

韩国峰

根据这个实例我做出了批量打印，请问能不能不打印，批量直接生成图片格式的文件保存，jpg和pdf的都可以。需要怎么修改程序，请大家帮帮忙！

考试加油站

可以批量生成PDF，再根据PDF批量生成图片。

LangQueS

以下代码仅供参考：

1. Sub 另存已使用区域为图片文件()
   
2. Application.ScreenUpdating = False    '关闭屏幕刷新
   
3. ActiveSheet.UsedRange.Copy    '复制已使用区域
   
4. ActiveSheet.Pictures.Paste.Select    '粘贴图片
   
5. Application.CutCopyMode = False    '忘掉复制内容
   
6.     ActiveSheet.Shapes(Selection.Name).Copy
   
7.     With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
   
8.         .Paste
   
9.         .Export "D:\1.jpg"    '另存图片文件到指定路径
   
10.         .Parent.Delete
    
11.     End With
    
12. Selection.Delete    '删除图片
    
13. Application.ScreenUpdating = True    '打开屏幕刷新
    
14. End Sub

复制代码