图什么呢，就图个PNG

aman1516

是原罪吗，PNG格式图片在不少编程、控件中不受见地，

问题一：能否将工作表中的透明图片导出成真正的PNG图片？

1. Sub ExpPng() '问题一：能否将工作表中的透明图片导出成真正的PNG图片？
   
2. Dim shp As Shape
   
3. For Each shp In ActiveSheet.Shapes
   
4. shp.Copy
   
5. With ActiveSheet.ChartObjects.Add(0, 0, shp.Width, shp.Height).Chart
   
6. '.Parent.Select
   
7. Application.Wait Now + TimeValue("00:00:02")
   
8. .ChartArea.Select
   
9. .Paste
   
10. .Export ThisWorkbook.Path & "\Test_" & shp.Name & ".png" '并非真正的PNG文件
    
11. .Parent.Delete
    
12. End With
    
13. Next
    
14. End Sub

复制代码

问题二：能否将工作表透明图片读入到WIA数组中？（当然，如果问题一能解决，问题二就解决了，或另有方法）

1. Sub WiaShp()    '问题二：能否将工作表透明图片读入到WIA数组中？
   
2.     Dim Img 'As ImageFile
   
3.     Dim IP 'As ImageProcess
   
4.     Dim v 'As Vector
   
5.     Dim i 'As Long
   
6.     Dim ofile As String, sflie As String
   
7.     Set Img = CreateObject("WIA.ImageFile")
   
8.     Set IP = CreateObject("WIA.ImageProcess")
   
9.     Set shp = ActiveSheet.Shapes("图片 2")
   
10.    
    
11.     'call ExpPng    '上面问题一方法，将Shp导出为本地PNG，再读入到WIA
    
12.    
    
13.     '方法二，直接将Shp生成WIA格式的 Img.ARGBData
    
14.    
    
15.     ofile = ThisWorkbook.Path & "\Bliss.png"
    
16.     Img.LoadFile ofile
    
17.     Set v = Img.ARGBData
    
18.     For i = 1 To v.Count
    
19.         'Debug.Print v(i)          'ARGB  (A=xxxx,R=xxx,G=xxx,B=xxx)
    
20.         '.......
    
21.     Next
    
22.     '......
    
23. End Sub
    

复制代码

详见附件，望各位老师赐教： 生成真正的PNG图片.rar (476.25 KB, 下载次数: 7)

2024-11-23 20:22 上传

点击文件名下载附件

cidanji

1. shp.Copy
   
2. 改成
   
3. shp.CopyPicture xlPrinter, xlPicture
   
4. 
   
5. with里加上去底色边框
   
6. .ChartArea.Fill.Visible = False
   
7. .ChartArea.Border.LineStyle = xlLineStyleNone

复制代码

perfect131

其实这些代码你已经有了
copy 从剪贴板获取图片字节
也可以看看我的帖子里 剪切板获取图片字节 有用的wia

aman1516

cidanji 发表于 2024-11-24 10:38

还以为要调用PPT去处理呢
----复制到PPT中----另存为图片----PNG 可移植网络图形格式
请教一下，能否一步到位：
方法二，直接将工作表透明的Shp生成WIA格式的 Img.ARGBData 数组？
最终目的是要用WIA对工作表透明图形进行处理

lss001

aman1516 发表于 2024-11-24 12:10
还以为要调用PPT去处理呢
----复制到PPT中----另存为图片----PNG 可移植网络图形格式
请教一下，能否一 ...

参考一下附件代码！
原代码为GDI(GDI代码已注释)
现修改为WIA

20241123.zip (348 KB, 下载次数: 10)

2024-11-24 18:43 上传

点击文件名下载附件

cidanji

aman1516 发表于 2024-11-24 12:10
还以为要调用PPT去处理呢
----复制到PPT中----另存为图片----PNG 可移植网络图形格式
请教一下，能否一 ...

只看了下Export代码不透明原因，WIA我不会，你看下5楼lss001老师

aman1516

lss001 发表于 2024-11-24 18:21
参考一下附件代码！
原代码为GDI(GDI代码已注释)
现修改为WIA

非常感谢提供一个从剪切板获取图片数据的方法；
但里面的的格式转成RGB（BMP）了，所以生成的图片并非PNG透明的（ARGB/RGBA），
而如果WIA从本地读入PNG图片的话，它仍是透明度的
shp.Copy 若改成  shp.CopyPicture xlPrinter, xlPicture ，会出错
同样无法形成透明图片