以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教一个复制到剪切板的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178938)
--  作者：ljh29206
--  发布时间：2022/7/29 8:57:00
--  请教一个复制到剪切板的问题


    Dim image As Bitmap = New Bitmap(50, 50)
    Dim g As Graphics = Graphics.FromImage(image)
    g.Clear(Color.Transparent)

        g.DrawRectangle(Pens.red, New Rectangle(10, 10, 30, 30))

    image.Save("d:\\123.png", System.Drawing.Imaging.ImageFormat.Png)
Dim img As Image = GetImage("C:\\Users\\pcliujianhua\\Desktop\\123.PNG")
ClipBoard.SetImage(img)

各位老大

以上代码能生成  透明底的 图片,

但 复制到 剪切板 在 excel   ctrl +v 粘贴的时候  就会变成有 底色的 图片.

请问这个 有什么解决的办法呢
--  作者：有点蓝
--  发布时间：2022/7/29 9:13:00
--  
没有办法。保存为png图片，然后使用execl里的插入图片功能插入图片，不要使用复制粘贴的方式