解决图片导入Excel后变成横向问题

最近有同事遇到图片打开的时候是竖向的，导入Excel后就变成横向了
我在网上搜了一下，没找到直接的答案
我猜大概是用了某些软件做处理（例如压缩分辨率）但是没处理干净
后来经过多次尝试，发现只要用windows自带的画图软件打开图片，然后再保存即可，没错就是这么简单
为此我写了个批处理文件
新建一个txt，把复制下面的代码进去然后把后缀改成bat
再和图片放到同一个文件夹里运行即可
ps：
1、千万不要把这个bat文件放到共享盘里运行，哪怕你是共享盘的管理员也要慎重（血的教训），你可以把图片抽出来处理完再放回去
2、我处理的图片只有十几k，如果是几M的图片的话需要自己微调一下等待图片打开的时间和等待图片保存的时间

@echo off
echo 正在创建 VBScript 文件...
(
echo Set objFSO = CreateObject^("Scripting.FileSystemObject"^)
echo strFolder = "./"
echo Set objFolder = objFSO.GetFolder^(strFolder^)
echo Set colFiles = objFolder.Files
echo For Each strFile in colFiles
echo     If LCase^(objFSO.GetExtensionName^(strFile^)^) = "jpg" Or LCase^(objFSO.GetExtensionName^(strFile^)^) = "jpeg" Then
echo         ' 在此处执行操作，例如打印文件名或打开文件等
echo         WScript.Echo strFile
echo         set wshell = wscript.createobject^("wscript.shell"^)
echo         wshell.run^("mspaint.exe "+strFile^) '用画图打开图片
echo         WScript.Sleep 500 '等待图片打开的时间
echo         wshell.SendKeys "^{s}" '保存相当于ctrl+s
echo         WScript.Sleep 200 '等待图片保存的时间
echo         wshell.SendKeys "%%{F4}" '关闭画图相当alt+F4
echo     End If
echo Next
echo WScript.Echo "所有图片处理完成。"
) > change.vbs
echo 执行图片处理...
cscript //nologo change.vbs
echo 清理临时文件...
del change.vbs
pause