为什么这个命令不能把Excel内某一列单元格输出成有内容的图片

[Cheung Ching]

Sub exportPic()
For K = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Sheets(1).Cells(K, 1).CopyPicture
Set CHT = ActiveSheet.ChartObjects.Add(0, 0, Cells(K, 1).Width, Cells(K, 1).Height).Chart
With CHT
.Paste
.Export "d:\" & Cells(K, 1) & ".JPG"
.Parent.Delete
End With
Next K
set CHT=NOTHING
End Sub


用这个代码输出的图片是空白的，没有单元格内的文字

[笨狗先飞]

Excel不存在这样的功能啊，不是想另存成什么就都能存的

[无·法]

引用 4 楼 milaoshu1020 的回复:

paste之后加一句DoEvents:

Sub exportPic()
    Dim K As Long
    For K = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        Sheets(1).Cells(K, 1).CopyPicture
        Dim CHT As Chart
        Set CHT = ActiveSheet.ChartObjects.Add(0, 0, Cells(K, 1).Width, Cells(K, 1).Height).Chart
        With CHT
            .Paste
            DoEvents
            .Export "d:\" & Cells(K, 1) & ".JPG"
            .Parent.Delete
        End With
    Next K
    Set CHT = Nothing
End Sub

运行示例:

学到新知识了。尽管目前没啥用处，但是厚积在平时薄发在关键。

[脆皮大雪糕]

图片是图片，文字是文字。excel里面看上去图片上有字也是文字叠加在图片上显示的结果。你的命令仅仅是保存了图片。 如果你要把文字输出到图片上，你必须使用Picture对象来处理这张图片，打印上文字以后再保存。

[脆皮大雪糕]

一到毕业季，这种毫无实际用途的功能需求问题就冒出来了。 觉得吧，中学老师无所谓，大学工科老师应该至少要有三年的企业工作经验才能执教。

[milaoshu1020]

paste之后加一句DoEvents:

Sub exportPic()
    Dim K As Long
    For K = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        Sheets(1).Cells(K, 1).CopyPicture
        Dim CHT As Chart
        Set CHT = ActiveSheet.ChartObjects.Add(0, 0, Cells(K, 1).Width, Cells(K, 1).Height).Chart
        With CHT
            .Paste
            DoEvents
            .Export "d:\" & Cells(K, 1) & ".JPG"
            .Parent.Delete
        End With
    Next K
    Set CHT = Nothing
End Sub

运行示例: