请教各位老师，如何逐一将单元格的文字批量保存为高清图片

lin20201115

问题如下：请教下各位老师，如何逐一将单元格的文字批量保存为高清图片

具体情况如下: 将B2往下含有文字的单元格分别导出为图片到图片导出文件夹，图片名称对应为A2往下

其中B2往下的有字体，颜色等变化

导出效果如下

导出效果如下

导出效果如下

nicleyuan

https://club.excelhome.net/thread-1565669-1-1.html

lin20201115

nicleyuan 发表于 2022-12-25 15:07
https://club.excelhome.net/thread-1565669-1-1.html

大神操作行云流水，
找了个简易版的将就下了。
Sub exportPic()
      For k = 2 To Cells(Rows.Count, 1).End(xlUp).Row
          Sheets(1).Cells(k, 2).CopyPicture
           Set CHT = ActiveSheet.ChartObjects.Add(0, 0, Cells(k, 2).Width, Cells(k, 2).Height).Chart
             With CHT
               .Parent.Select
               .Paste
               .Export "D:\图片导出\" & Cells(k, 1) & "-1.JPG"
               .Parent.Delete
           End With
        Next k
     Set CHT = Nothing
     End Sub

lin20201115

nicleyuan 发表于 2022-12-25 15:07
https://club.excelhome.net/thread-1565669-1-1.html

不过老是跳 类range的copypicture方法无效的 提示，是哪里出问题了么

nicleyuan

lin20201115 发表于 2022-12-25 18:13
大神操作行云流水，
找了个简易版的将就下了。
Sub exportPic()

这代码我跑了一下，没有问题啊，是不是和你的Excel版本有关系？