史上最详细的Excel单元格内容转化为图片

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选择另存为后，如下图选择加载宏

最后，点击保存。

第四步，这一步将刚才另存好的程序，放到其他的电脑中。如下图

点击浏览后，将刚才的图片复制粘贴到这里

然后，点击确定-确定。

大功告成，可以开始使用！希望能对你有所帮助！