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

zldccmx

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

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

zldccmx

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

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

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

zldccmx

      '撰写:俺是老朽
       '网址: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

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

joforn

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

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

小fisher

range2base64.rar (28.02 KB, 下载次数: 54)

2021-9-2 11:14 上传

点击文件名下载附件

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

zldccmx

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

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

zldccmx

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

衷心感谢 小fisher

dongdonggege

小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打开剪切板，不知对否？