截屏后保存为图片的VBA语句

ebkzxcel · 发表于 2017-7-10 11:37

厉害了,,,收藏先,不过不知道为什么我复制出来的格子是黑色的

ycbfwl · 发表于 2018-8-22 15:17

不失真，太棒了

lion21369 · 发表于 2018-12-5 21:16

不错,神奇!!!!!!!!!!

1588078/37 · 发表于 2019-7-9 08:10

wcymiss 发表于 2015-4-1 15:45
下面这段代码不太精确：如果要精确的图片，需要用到API：

use***** 提示这个未找到

1588078/37 · 发表于 2019-7-9 09:09

本帖最后由 1588078/37 于 2019-7-9 09:25 编辑

wcymiss 发表于 2015-4-1 15:45
下面这段代码不太精确：如果要精确的图片，需要用到API：

如何改成不用复制的，直接取得某区域的单元格的值
比如A1：B30
或是设置最后一个非空行列的区域呢？

zuo8250 · 发表于 2019-8-19 18:06

这是什么原因啊？

LOSERKING · 发表于 2019-12-19 16:00

wcymiss 发表于 2015-4-7 11:49
楼主要求的是jpg，所以我只写了jpg图片的保存。事实上，BMP、GIF、PNG图片的保存比JGP要简单，TIFF格式 ...

大神如何能实现BMP格式的呢，
我想然后转为二进制，判断像素点，实现图像识别。
JPG二进制网上找不到教程

bj917 · 发表于 2019-12-21 22:46

刘雄军发表于 2015-4-22 07:54
我的要求简单些，就是把整个屏幕截图，导出为D:\2.jpg即可。
截图的语言我已经写好了，就差导出的语言了。

      Sheets("sheet2").Range("A1:C21").Select
      Selection.CopyPicture 1  '选区复制为图片
      With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart  '通过在当前工作表添加相同大小的图表的方式转存成图片
            .Paste  '粘贴复制后的图片
            .export "D:\2.png", "png" '导出到当前工作表目录下,以当前区域首行单元格的值命名图片
            .Parent.Delete  '删除该图表
      End With

phanphan · 发表于 2020-2-4 18:08

ebkzxcel 发表于 2017-7-10 11:37
厉害了,,,收藏先,不过不知道为什么我复制出来的格子是黑色的

win7：excel 2007，我也是遇到同样问题

zip1900 · 发表于 2021-8-16 11:20

膜拜大神！

		自动登录	找回密码
密码			免费注册

[求助] 截屏后保存为图片的VBA语句

评分