如何用程序批量给图片加LOGO

ivccav

各位大佬：
在附件图片p01、p02（仅示例，现实中会很多图片）中间插入logo图片（能指定插入位置）


用VBA代码如何实现？


求助.zip (121.31 KB, 下载次数: 67)

2021-3-10 21:00 上传

点击文件名下载附件

已写示例如下，需要的朋友可下载：

示例.zip (62.88 KB, 下载次数: 135)

2021-3-12 21:16 上传

点击文件名下载附件

fxl447098457

没那么麻烦。windows image acquisition(wia)库使用蛮方便的。
Sub addlogo()
Dim logo As Object 'As ImageFile
Dim Img As Object 'As ImageFile
Dim IP  As Object 'As ImageProcess
Dim path As String
Set Img = CreateObject("WIA.ImageFile")
Set logo = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
path = ThisWorkbook.path & Application.PathSeparator
Img.LoadFile path & "p01.jpg"
logo.LoadFile path & "logo.jpg"
IP.Filters.Add IP.FilterInfos("Stamp").FilterID
Set IP.Filters(1).Properties("ImageFile") = logo
IP.Filters(1).Properties("Left") = (Img.Width - logo.Width) / 2
IP.Filters(1).Properties("Top") = (Img.Height - logo.Height) / 2
Set Img = IP.Apply(Img)
Img.SaveFile path & "result.jpg"
End Sub

shenjianrong163

1. Sub test() '本实例在图片“p01.jpg”的中间添加图片“logo.jpg”
   
2.     Dim Thumb
   
3.     Dim Img
   
4.     Dim IP
   
5.     Set Img = CreateObject("WIA.ImageFile")
   
6.     Set Thumb = CreateObject("WIA.ImageFile")
   
7.     Set IP = CreateObject("WIA.ImageProcess")
   
8.     Img.LoadFile ThisWorkbook.Path & "\p01.jpg"
   
9.     Thumb.LoadFile ThisWorkbook.Path & "\logo.jpg"
   
10.     IP.Filters.Add IP.FilterInfos("Stamp").FilterID
    
11.     Set IP.Filters(1).Properties("ImageFile") = Thumb
    
12.     IP.Filters(1).Properties("Left") = (Img.Width - Thumb.Width) / 2
    
13.     IP.Filters(1).Properties("Top") = (Img.Height - Thumb.Height) / 2
    
14.     Set Img = IP.Apply(Img)
    
15.     If Dir(ThisWorkbook.Path & "\p01.jpg") <> "" Then Kill ThisWorkbook.Path & "\p01.jpg"
    
16.     Img.SaveFile ThisWorkbook.Path & "\p01.jpg"
    
17. End Sub

复制代码

aman1516

能想到也只能是叠加组合再输出了

ivccav

fxl447098457 发表于 2021-3-10 21:47
没那么麻烦。windows image acquisition(wia)库使用蛮方便的。
Sub addlogo()
Dim logo As Object 'As Im ...

这个方法简单强大，有空看看怎么使用。

因为基本没有处理图片的需求，对这些知识简直一窍不通。

都是现学现用，搜索不到就没法参考了。

ivccav

shenjianrong163 发表于 2021-3-10 21:48

感谢帮助，你和2楼的方法英雄所见略同。

是我想复杂了，没有这方面的知识，只想要API了

fxl447098457

ivccav 发表于 2021-3-11 13:10
这个方法简单强大，有空看看怎么使用。

因为基本没有处理图片的需求，对这些知识简直一窍不通。

以前为了给单元格插入图片，先要获取图片的宽高比来调整单元格的行高列宽方便插入图片不变形做了下研究。可以看下msdn，里面有vb的例子。
https://docs.microsoft.com/zh-cn ... aaut-shared-samples

opiona

留个记号  WIA.ImageFile

aman1516

fxl447098457 发表于 2021-3-11 13:22
以前为了给单元格插入图片，先要获取图片的宽高比来调整单元格的行高列宽方便插入图片不变形做了下研究。 ...

学习了，慢慢研究，谢谢分享

powerremain

学习学习