在代码窗口输入以下程序: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多张照片,而且还眼冒金花。看她打电话的样子,甚是疲惫。
领导和同事,经常会发给你一张图片,然后你想复制图片上的信息,又不好复制。如果只是想复制图片中的信息,通过微信发给你的信息,那你可以点开图片,然后点击【文】按纽,右边会自动识别出所有的文字,然后你就可以自由复制了。