请教各位大神，有没有批量把每一行单元格的内容转换成一张jpg或者png图片的方法

aecn

我测试没有问题，很强大

jy06259602

aecn 发表于 2019-5-19 22:45
我测试没有问题，很强大

是我用的Excel 2016 所以图片是空白的

changhong8

jy06259602 发表于 2019-5-19 23:01
是我用的Excel 2016 所以图片是空白的

图片空白的问题加一句代码就行了，我发的那个链接里面，发帖子碰到的也是2003导出没问题，2010和2013的导出空白，加一句代码就解决了，小问题

kikeien

changhong8 发表于 2019-5-20 05:48
图片空白的问题加一句代码就行了，我发的那个链接里面，发帖子碰到的也是2003导出没问题，2010和2013的导 ...

怎样修改代码保存在当前文件夹下，或在当前文件夹中新建文件夹保存？

network416

复制，选择性粘贴为图片

考试加油站

做个通用的

Sub 导出所有单元格内容为图片()

    Dim i&, Myr&, Arr
    Dim d, k, t
    filename = Application.GetOpenFilename("Excel 文件 (*.xls*),*.xls*", , "请选择作表！", , 0)
    If filename = False Then Exit Sub
    Set sjwk = Workbooks.Open(filename)    '要分表的数据所在表
    shname = sjwk.ActiveSheet.Name
    sjwk.Sheets(shname).Activate
    Set rng1 = Application.InputBox("请选择工作表完整区域,不要选择整列整行，只选择绝对区域", "选取提示", , , , , , 8)
    If rng1 Is Nothing Then MsgBox "您没有选择区域": Exit Sub
    On Error Resume Next
    myPath = sjwk.path
    With sjwk.ActiveSheet
    Arr = rng1
    For k = 1 To UBound(Arr)
        For y = 1 To UBound(Arr, 2)
            On Error Resume Next
            .Cells(k, y).CopyPicture
            Set CHT = ActiveSheet.ChartObjects.add(0, 0, Cells(k, y).Width, Cells(k, y).Height).Chart
            With CHT
                .Paste
                If .Cells(k, y).Value <> "" Then
                    .Export sjwk.path & "\" & Cells(k, y).Value & i & y & ".JPG"
                Else
                    .Export sjwk.path & "\" & Cells(k, y).Address & i & y & ".JPG"
                End If
                .Parent.Delete
            End With
        Next y
    Next k
    Set CHT = Nothing
    End With
End Sub