[已解决]VBA能否将工作表当前A1至F15区域的内容截图另存至E盘?

我不知道呀

VBA能否将工作表当前A1至F15区域的内容截图另存至E盘?

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2021-12-15 23:08

我不知道呀 发表于 2021-12-15 14:59
是的，图片质量一般，与原图有区别，但大概能看清

Sub test()
Dim w#, h#, flname$
With ActiveSheet
  w = .[a1:f15].Width
  h = .[a1:f15].Height
  flname = "\abc.jpg"  '根据需要修改
  .[a1:f15].CopyPicture
  With .ChartObjects.Add(0, 0, w + 0.75, h + 0.75).Chart
    .Paste
    .Export ThisWorkbook.Path & flname  '根据需要修改
    .Parent.Delete
  End With
End With
End Sub

跳转到最佳答案楼层

hfwufanhf2006

应该不能吧，vba的所有图片都是内置于excel，并不是独立的jpg或者png文件。我觉得与截图文件的意思还是不同的。

大灰狼1976

常见的方法就是将单元格区域复制成图片，建图表粘贴图片，再使用图表对象的导出图片功能来实现，但图片质量一般。

我不知道呀

大灰狼1976 发表于 2021-12-8 17:42
常见的方法就是将单元格区域复制成图片，建图表粘贴图片，再使用图表对象的导出图片功能来实现，但图片质量 ...

是的，图片质量一般，与原图有区别，但大概能看清

大灰狼1976

这个简单的，但你要等，我今天估计没时间做，类似需求论坛上应该很多，你先找找，或者看有没有其他人给你做一下。

林木水

想学一下方法

大灰狼1976

我不知道呀 发表于 2021-12-15 14:59
是的，图片质量一般，与原图有区别，但大概能看清

Sub test()
Dim w#, h#, flname$
With ActiveSheet
  w = .[a1:f15].Width
  h = .[a1:f15].Height
  flname = "\abc.jpg"  '根据需要修改
  .[a1:f15].CopyPicture
  With .ChartObjects.Add(0, 0, w + 0.75, h + 0.75).Chart
    .Paste
    .Export ThisWorkbook.Path & flname  '根据需要修改
    .Parent.Delete
  End With
End With
End Sub