1、第一步，先录制宏，制作一个自己的喜欢的快捷键。如下图注：在快捷键的空格输入你想要的Q,W,E等就可以创建好快捷键了。
2、第二步，写代码，这是最重要的一部，请大家注意了！Sub 自动生成图片()''挢旗扦渌; 自动生成图片 宏'媪青怍牙' 快捷键: Ctrl+Shift+W''从以下部分开始复制Dim x, p$, f$ Set x = Selection ' 保存图片的路径，可根据自己的需要修改路径 p = "D:\设计方案-图片\" ' 保存图片的文件名，可根据自己的需要修改路径' 比如我门公司的主要是订单号，订单号在N2单元格 f = Range("N2") & ".jpg" ' 选择需要转化为图片的单元格 Range("A1:N26").Select If TypeName(x) <> "Range" Or p <> "\" Then '1）Range.CopyPicture 方法: 将所选对象作为图片复制到剪贴板 Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap '2）ChartObjects.Add 方法:创建新的嵌入式图表' 下面的 x.Width 和 x.Height代表了图片的大小，可根据自己的需要，随便输入，自己要测试多几次，看看需要多大的尺寸合适 With ActiveSheet.ChartObjects.Add(0, 0, x.Width, x.Height).Chart 'Chart.Paste 方法:将剪贴板中的图表数据粘贴到指定的图表中 .Paste 'Export 方法:以图形格式导出图表 .Export Filename:=p & f, FilterName:="jpg" 'Chart.Parent 属性:返回指定对象的父对象 .Parent.Delete '即删除chart对象 End With '3）http://www.excelpx.com/thread-206224-1-1.html' MsgBox p & f, , "图片路径"' Shell "explorer /select," & p & f, vbNormalFocus End If'复制到这里End Sub代码应该来说写的非常详细了，自己复制下去看看，试试，很简单的。
3、第三步，这部分要将我们的程序包装一下，可以再任意一台电脑，任意一个表格都能用。从excel选择另存为后，如下图选择加磙沏损旷载宏最后，点击保存。第四步，这一步将刚才另存好的程序，放到其他的电脑中。如下图点击浏览后，将刚才的图片复制粘贴到这里然后，点击确定-确定。大功告成，可以开始使用！希望能对你有所帮助！
