VBA调试 ImageMagick外部程序调用

wangfeiyu0022

Sub AddWatermarkAndOverwriteImages()     Dim folderPath As String     Dim fileName As String     Dim watermarkText As String     Dim command As String     Dim shellResult As Long     folderPath = "d:\Desktop\shiyan\"     watermarkText = "WANGFEIYU"     ChDir "D:\Program Files\ImageMagick-7.1.1-Q16-HDRI"     fileName = Dir(folderPath & "*.jpg")     Do While fileName <> ""         command = "D:\Program Files\ImageMagick-7.1.1-Q16-HDRI\magick """ & folderPath & fileName & """ -gravity SouthEast -pointsize 36 -fill white -annotate 0 """ & watermarkText & """ -overwrite """ & folderPath & fileName & """"         shellResult = Shell(command, vbHide) ' 使用vbHide来隐藏命令行窗口                         fileName = Dir     Loop     MsgBox "水印添加完成，并覆盖了原文件！" End Sub ImageMagick安装了，路径没有错 黄色的这段提示错误编号53，，，，，，哪里有问题呢，大神们帮帮我

wangfeiyu0022

Sub AddWatermarkAndOverwriteImages()
    Dim folderPath As String
    Dim fileName As String
    Dim watermarkText As String
    Dim command As String
    Dim shellResult As Long
    Dim vv As String
   
   
    folderPath = "d:\Desktop\shiyan\"
   
    watermarkText = "WANGFEIYU"
   
    vv = """"
   
    ChDir "D:\Program Files\ImageMagick-7.1.1-Q16-HDRI"
   
    fileName = Dir(folderPath & "*.jpg")
   
    Do While fileName <> ""

        command = "magick " & folderPath & fileName & " -gravity northEast -pointsize 100 -fill black -annotate 0 " & vv & watermarkText & vv & " " & vv & folderPath & fileName & vv
        
        shellResult = Shell(command, vbHide) ' 使用vbHide来隐藏命令行窗口
               
        fileName = Dir
    Loop
   
    MsgBox "水印添加完成，并覆盖了原文件！"
End Sub
哈哈哈自己搞定了，就是个分号的问题。

wangfeiyu0022

Sub AddWatermarkAndOverwriteImages()
    Dim folderPath As String
    Dim fileName As String
    Dim watermarkText As String
    Dim command As String
    Dim shellResult As Long
    Dim vv As String
   
   
    folderPath = "d:\Desktop\shiyan\"
   
    watermarkText = "WANGFEIYU"
   
    vv = """"
   
    ChDir "D:\Program Files\ImageMagick-7.1.1-Q16-HDRI"
   
    fileName = Dir(folderPath & "*.jpg")
   
    Do While fileName <> ""

        command = "magick " & folderPath & fileName & " -gravity northEast -pointsize 100 -fill black -annotate 0 " & vv & watermarkText & vv & " " & vv & folderPath & fileName & vv
        
        shellResult = Shell(command, vbHide) ' 使用vbHide来隐藏命令行窗口
               
        fileName = Dir
    Loop
   
    MsgBox "水印添加完成，并覆盖了原文件！"
End Sub

自己解决的，就是分号的问题，多一个少一个都不行

大灰狼1976

感谢自己解决后能够分享解决方法！