在代码窗口输入以下程序:Sub RenameOn Error Resume NextMkDir ThisWorkbook.Path & “\图片”For Each pic In ShapesIf pic.Type = msoPicture ThenRN = pic.TopLeftCell.Offset.Valuepic.CopyWith ActiveSheet.ChartObjects.Add.Chart '创建图片.Parent.Select.Paste.Export ThisWorkbook.Path & “\图片\” & RN & “.jpg”.Parent.DeleteEnd WithEnd IfNextMsgBox “导出图片完成!”
上个星期，我的一个同学向我求助。她是公司的HR，老板让她把员工信息表中的照片导出到文件夹中，然后打包发送给行政部的文员打印出来。她公司有5000多人，她复制粘贴了整整一个上午，才导出了200多张照片，而且还眼冒金花。看她打电话的样子，甚是疲惫。
今天跟大家分享下我们如何在Excel中实现分部门打印，这也是一个粉丝问到的问题，他表示自己公司有十几个部门，每次都需要一个部门一个部门的拆分打印，非常的耗费时间，其实方法非常简单，利用分类汇总这个功能就能快速搞定，下面我们就来看下具体的操作方法想要从零学习Excel，这里↑↑↑↑
