作者：绿色风
分类：
时间：2022-08-17
浏览：174
楼主
kevinchengcw |
Q:我们都知道，Excel可以将文件打印成图片，但是如何批量的将文件打印成图片呢？
A:在VBA编辑器中插入模块，并复制下述代码，并运行PicExport宏即可将当前活动工作表批量打印成jpg图片，并以序列形式存于当前工作表目录下(前提：活动工作表有可打印内容)
- Sub PicExport()
- Dim M, N, I, PgTotal As Integer
- ActiveWindow.View = xlPageBreakPreview
- I = 1
- For N = ActiveSheet.VPageBreaks(ActiveSheet.VPageBreaks.Count).Location.Column To Cells.SpecialCells(xlCellTypeLastCell).Column
- If Cells(65536, N).End(3).Row > I Then I = N
- Next N
- For M = 1 To ActiveSheet.HPageBreaks.Count
- If ActiveSheet.HPageBreaks(M).Location.Row > Cells(I, Cells.SpecialCells(xlCellTypeLastCell).Column) Then Exit For
- Next M
- PgTotal = (ActiveSheet.VPageBreaks.Count + 1) * ActiveSheet.VPageBreaks.Count + M + 1
- For N = 1 To PgTotal
- ActiveSheet.PrintOut from:=N, to:=N, PrintToFile:=True, PrToFileName:=ThisWorkbook.Path & "\" & Split(ThisWorkbook.Name, ".")(0) & "-" & Format(N, "000") & ".jpg"
- Next N
- ActiveWindow.View = xlNormalView
- End Sub
以上代码稍加调整即可打印整个工作簿
附示例文件
 活动工作表打印成jpg图片-03版.rar
活动工作表打印成jpg图片-07版.rar
|
2楼
xpm130 |
试着运行了2次,都死机了
可能我的机老旧了 |
3楼
kevinchengcw |
选择Microsoft Office Document Image Writer试一下，不是要真的打印出来，只是借用打印功能 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一