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

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

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

看到你这个题库，我就想起来了。
假如题目中有图片，那么使用BASE64编码就挺方便，特别是组卷时，写入XML格式【类似生成文本文件的硬写模式】比灌入DOC文档要快得多。

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

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

一楼更新了，添加了附件，里面有我使用的方法，将内存图片转换成了BASE64编码。

不足的地方是，借助了PowerShell 还有写注册表，PowerShell 不是所有的操作系统自带的工具，所以有局限性。

zldccmx · 发表于 2021-9-1 21:58

本帖最后由 zldccmx 于 2021-9-2 07:32 编辑

   '撰写:俺是老朽
   '网址:https://club.excelhome.net/
   '日期:2021/9/2 7:22:33
Sub C2B()
Dim M_Code$, Base64$, Wsh As Object
Sheet1.[a1].CopyPicture xlScreen, xlBitmap
Set Wsh = CreateObject("wscript.Shell")
M_Code = "function Get-ClipImg {"
M_Code = M_Code & Chr(13) & " Add-Type -AssemblyName 'System.Windows.Forms';"
M_Code = M_Code & Chr(13) & "    $s=New-Object System.IO.MemoryStream;"
M_Code = M_Code & Chr(13) & "    [System.Windows.Forms.Clipboard]::GetImage().Save($s,[System.Drawing.Imaging.ImageFormat]::png);"
M_Code = M_Code & Chr(13) & "    [Microsoft.Win32.Registry]::SetValue('HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer','tmp_clipboard',[System.Convert]::ToBase64String($s.ToArray()))"
M_Code = M_Code & Chr(13) & "    }"
M_Code = M_Code & Chr(13) & "Get-ClipImg"
Wsh.Run "powershell -Command " & M_Code, 0, True '后台运行 Powershell ,不显示运行窗口
Base64 = Wsh.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\tmp_clipboard")
If Base64 <> "" Then
   Debug.Print Base64
End If
End Sub

zldccmx · 发表于 2021-9-1 22:04

一楼附件已经更新。
由于XP系统没有PowerShell，所以XP下无法使用。

joforn · 发表于 2021-9-1 22:23

zldccmx 发表于 2021-9-1 22:04
一楼附件已经更新。
由于XP系统没有PowerShell，所以XP下无法使用。

如果你是想要不使用PowerShell来转码，而是自己用代码实现转Base64，那么在你询问我的主题帖中就有现成的代码，但那个代码会生成一个临时文件，如果你连临时文件都不想有，那么就按我的回帖里的保存到流再转码。

小fisher · 发表于 2021-9-2 10:51

本帖最后由小fisher 于 2021-9-2 11:17 编辑

range2base64.rar (28.02 KB, 下载次数: 78)
Range/图形/图表...->剪贴板内bmp对象->GDI+的Image对象->全局内存中的Stream->字节数组->base64字符串对于图形和图表，在复制时excel会转成png, gif, jpg格式存放在剪贴板对应格式中，也可以直接从剪贴板中取出字节数组并转为base64字符串

zldccmx · 发表于 2021-9-2 11:15

小fisher 发表于 2021-9-2 10:51
Range->剪贴板内bmp对象->GDI+的Image对象->全局内存中的Stream->字节数组->base64字符串

大神出手，非同凡响！
谢谢！

zldccmx · 发表于 2021-9-2 11:24

小fisher 发表于 2021-9-2 10:51
Range/图形/图表...->剪贴板内bmp对象->GDI+的Image对象->全局内存中的Stream->字节数组->base64字符串对 ...

衷心感谢小fisher

dongdonggege · 发表于 2023-5-23 12:01

小fisher 发表于 2021-9-2 10:51
Range/图形/图表...->剪贴板内bmp对象->GDI+的Image对象->全局内存中的Stream->字节数组->base64字符串对 ...

老师好，我是ppt，请帮我看看我的这程序能不能得到需要的图片。
我是用ppt做的，RangeToBase64String函数在ppt中Application.hwnd不能得到，所以我用了hwnd = FindWindow("PP11FrameClass", vbNullString)，得到hwnd，然后OpenClipboard hwnd打开剪切板，不知对否？

cyhwy · 发表于 2024-9-8 08:16

小fisher 发表于 2021-9-2 10:51
Range/图形/图表...->剪贴板内bmp对象->GDI+的Image对象->全局内存中的Stream->字节数组->base64字符串对 ...

64位office怎么改呀

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

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

评分

评分