VBA中使用WIA处理本地图像

libin890

学习到了   但是还是看不懂  以后慢慢学吧

remote88888

我把图片导入到文档中，能否使用这个东东，直接进行自动压缩，原图片保持不变？

remote88888

Img.SaveFile "C:\WINDOWS\Web\Wallpaper\BlissCrop.bmp"

这个提示文件已经存在? 没有强制覆盖的参数？
另外，这个对象，如何放到剪切板中直接，即img

shenjianrong163

remote88888 发表于 2021-2-27 09:25
我把图片导入到文档中，能否使用这个东东，直接进行自动压缩，原图片保持不变？

这个图片处理软件就是上面介绍的应用，可以改变大小、旋转、压缩……http://club.excelhome.net/thread-1569955-1-1.html

shenjianrong163

remote88888 发表于 2021-2-27 09:54
Img.SaveFile "C:\WINDOWS\Web\Wallpaper\BlissCrop.bmp"

这个提示文件已经存在? 没有强制覆盖的参数？
...

可以先判断文件是否存在，如果存在就删除，然后再保存。

aman1516

谢谢分享，当当时看不懂，现进稍为懂一点了，继续研究

976190982

用这个做了一个转换格式的。
谢谢指导

ning84

Sub ls()
  Dim Fso As Scripting.FileSystemObject
  Dim oFolder As Folder
  Dim oFile As File
  Dim Img As WIA.ImageFile
     Set Fso = CreateObject("Scripting.FileSystemObject")
     Set oFolder = Fso.GetFolder(ThisWorkbook.Path)
     Debug.Print oFolder.Name, oFolder.Path
     For Each oFile In oFolder.Files
        With oFile
           If InStr(.Type, "JPG") > 0 Then
              Debug.Print .Name, .DateCreated, .DateCreated, .DateLastModified
              Set Img = CreateObject("WIA.ImageFile")
              With Img
                   .LoadFile oFile.Path
                   With .Properties("GpsLatitude").Value
                        Debug.Print .Item(1).Value,
                        Debug.Print .Item(2).Value,
                        Debug.Print .Item(3).Value
                        
                        
                   End With
              End With
           End If
         End With
     Next oFile
End Sub

ning84

shenjianrong163 发表于 2021-1-2 14:17
三、WIA处理图片
      （一）旋转翻转过滤器：旋转图片
      （二）裁剪滤镜：裁剪图片

                   With .Properties("GpsLatitude").Value
                        GpsArr(0) = .Item(1).Value
                        GpsArr(1) = .Item(2).Value
                        GpsArr(2) = .Item(3).Value
                   End With

WiaImageFile的Properties有19个Item，GpsLatitude第11项。

ning84

没有找到Stamp的应用。

      Stamp
      在指定的 Left 和 Top 坐标处标记指定的 ImageFile。
      ImageFile  - 将 ImageFile 属性设置为希望标记的 ImageFile 对象
      Left       - 将 Left 属性设置为希望将 ImageFile 标记到的从左侧开始的偏移(单位为像素)[默认值为 0]
      Top        - 将 Top 属性设置为希望将 ImageFile 标记到的从顶部开始的偏移(单位为像素)[默认值为 0]
      FrameIndex - 如果希望修改除 ActiveFrame 之外的帧，可将 FrameIndex 属性设置为帧的索引，否则设置为0[默认值]