如何用VBA代码用画图批处理打开某文件夹所有图片并保存

Function OpenFileList(FolderName As String,Pname as String)
  '功能:打开文件夹中的所以文件
  '参数：FolderName--源文件夹名,Pname -- 程序文件名
  Dim myFSO As New FileSystemObject
  Dim myFolder As Folder
  Dim myfile As File
  If myFSO.FolderExists(FolderName) = True Then
      Set myFolder = myFSO.GetFolder(FolderName)
      For Each myfile In myFolder.Files
          Call Shell(Pname & " " & myFile.FullName)
      Next myfile
  End If
End Function

call OpenFileList("阁下的图片文件夹地址","C:\WINDOWS\system32\mspaint.exe")