本文主要是介绍解决图片导入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
这篇关于解决图片导入Excel后变成横向问题的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
