求直接把剪切板中的图片生成Base64字符串的VBA代码

zldccmx · 发表于 2021-9-1 09:05

本帖最后由 zldccmx 于 2021-9-2 11:34 编辑

各位大神，有没有办法直接把剪切板中的图片生成Base64字符串？

目前我只能通过注册表或者导出文件后，再来转换成Base64字符串，有点绕，效率不高。

衷心感谢 tspliu joforn 小fisher 等大神的大力支持。问题完美解决。
最终选择了小fisher 的方案。特将附件放在一楼。

zldccmx · 发表于 2021-9-1 14:12

本帖最后由 zldccmx 于 2021-9-1 14:17 编辑

恳请大神抽空赐一段完整的代码！

复制代码

我目前只能通过拐弯（借助注册表）、绕道（先导出图片另存在本地，然后读取图片文件，再转换成Base64），这两种方法，笨且慢，不尽理想。所以特此求教！

谢谢大神。

tspliu · 发表于 2021-9-1 15:24

复制完要把剪切版的内容再转成图片？再转成Base64编码？

zldccmx · 发表于 2021-9-1 15:59

tspliu 发表于 2021-9-1 15:24
复制完要把剪切版的内容再转成图片？再转成Base64编码？

复制工作表中的部分区域，直接生成Base64字符串，赋值给一个变量。

tspliu · 发表于 2021-9-1 16:03

zldccmx 发表于 2021-9-1 15:59
复制工作表中的部分区域，直接生成Base64字符串，赋值给一个变量。

更糊涂了，取工作表部分区域的值的话，那还为什么要复制呢？

zldccmx · 发表于 2021-9-1 16:06

tspliu 发表于 2021-9-1 16:03
更糊涂了，取工作表部分区域的值的话，那还为什么要复制呢？

简单点：就是把内存中的图片，直接转换成Base64编码

zldccmx · 发表于 2021-9-1 16:09

图片可以是EXCEL工作表或WORD文档中的插图，也可以是把选定区域复制成图片，生成BASE64编码。

tspliu · 发表于 2021-9-1 16:17

看来我也不会，我复制完再访问剪切板不会转成图片。

我也只会按你那个绕道的方式用键鼠模拟去做。

zldccmx · 发表于 2021-9-1 16:28

tspliu 发表于 2021-9-1 16:17
看来我也不会，我复制完再访问剪切板不会转成图片。我也只会按你那个绕道的方式用键鼠模拟去做。

[A31:C33].CopyPicture xlScreen ,xlBitmap 这就把指定区域以图片形式复制到剪切板了，

zldccmx · 发表于 2021-9-1 16:28

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

[已解决] 求直接把剪切板中的图片生成Base64字符串的VBA代码