图片像素宽和高，批量导入EXCEL表格，大约有50W张图片，怎么用VBA写代码

excel 中用VBA, 不插入图片, 如何批量调整本地图片的大小[按比例或者按宽高像素(可选_保持原图宽高比例)]~

你这可不是简单的事情，估计没人免费帮你的。在 淘.宝 上下单找人做，估计也要二百大洋左右

Private Sub Del_msoPicture()
Const msoPicture = 13
Dim aryGroup() As String, i As Integer
Dim Sh As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = 13 Then
ReDim Preserve aryGroup(i)
aryGroup(i) = shp.Name
i = i + 1
End If
Next shp
ActiveSheet.DrawingObjects(aryGroup).ShapeRange.LockAspectRatio = msoFalse
ActiveSheet.DrawingObjects(aryGroup).ShapeRange.Height = 95.25
ActiveSheet.DrawingObjects(aryGroup).ShapeRange.Width = 255#
End Sub

老兄，这分也太少了吧

有软件可以实现

批量获取图片信息windows系统版本

首先导出csv然后另存一下就可以了，excel 读取写入速度太慢

50万行数据，估计得要点时间，用这个csv几秒钟，到时候另存一下也很快

刚看到题目的时候，确实被吓了一跳，不过仔细一看，莫非是想从图片文件夹里边获取图片信息填入Excel表格，下面提供一下VBA程序的代码截图。（Excel 2010，Windows 7）

（一）VBA程序代码如下图所示：

（二）VBA程序执行的结果：（至于50万张图片，就不知道能否顺利执行、获取了，同时也需要耐心等待程序执行）

对于DPI及其他的一些图片信息，暂时没法使用VBA获取。（DPI是相对于印刷而言，在电脑系统上面显示基本上都是比较固定的）。

【附】摘自百度经验：《使用VBA获取图片信息》

需要的话，私信我！Excel 2007以上版本一张表可以容纳100万，肯定可以！单纯的VBA代码实现不了的！

不知道

估计装不下哦
假设图片太多
考虑用数组的方式根据图片名称批量导入

---

华宁县19841359819： 图片像素宽和高,批量导入EXCEL表格,大约有50W张图片,怎么用VBA写代码 - ？
笪匡劳麦： 建议借助ACDsee的批量重命名功能,把各图片文件以“原文件名+图片分辨率信息”的形式重命名,再获取文件名列表成txt文件,复制到excel中执行分列操作.即可得出你要的信息,根本用不着VBA,也就两三步就完成了.

华宁县19841359819： excel如何批量导入图片 - ？
笪匡劳麦： excel批量导入图片的步骤:1、点插入菜单——图片;2、如果是连续的文件,选择第一张图片,然后按住SHIFT键选择最后一张图片,点插入;如果不是连续的文件,按CTRL键分别选择每一张图片,点插入.

华宁县19841359819： 人事管理中怎么用Excel批量导入员工照片 - ？
笪匡劳麦： 1、首先提取所有照片名称 1)定义名称 文件名=files(＂F:\lxf\wl\*.*＂)F:\lxf\wl:需提取文件路径; \*.*:提取文件的文件格式,如tex,doc或全部 2)=index(文件名,row(a1)),向下拖拽,则显示文件夹中所有文件名称含后缀; 2、批量导入员工照片 ...

华宁县19841359819： excel表格里单元格插入图片,有什么方法能让图片自动适应单元格大小呢? - ？
笪匡劳麦： 打开Excel,点击“图像工具”,然后点击“导入图像”(这里的导入图像是批量插入图像的含义),点击右边的“添加”按钮,并添加图像以插入Excel. 导入模式,选择第一个,并将每行中的图片数量设置为1.如果您想在图片中插入两列,...

华宁县19841359819： excel怎么批量插入图片,一张一单元格,且自动调整固定大小...教教菜鸟小女子我吧...哎..？
笪匡劳麦： 楼主说得好清楚啊.给你整一个步骤吧,你不需要懂那些宏代码什么意思,按以下步骤操作就可以了: STEP1:把你要插入的图片文件检查一下是否都是同一种格式.(例如BMP格式,或JPG格式,或PNG格式等,只放一种) STEP2:把这些图片文件放在'E:\PIC\下面. STEP3:打开EXCEL,然后按下ALT+F11,点菜单中的'插入',然后点'模块'.这时把下面那段宏代码提现到代码框. STEP4:按F5,会跳出一个输入框,默认的是JPG格式的图片文件,如果你的图片不是JPG格式,请输入其他的格式,注意是文件名的后缀,三个字母.最后点确定,大功告成. 呵呵,如果代码有错,就要找楼主了.

华宁县19841359819： 如何在excel批量插入图片,自动设置照片格式、大小和命名. - ？
笪匡劳麦： 使用插入然后选择多个图片不行吗?设置的话没法自动吧.但应该可以都选上然后批量修改.命名没法批量,又不是文件夹

华宁县19841359819： 在excel中,把图片批量插入到对应工作表的对应单元格. - ？
笪匡劳麦： @echo off chcp 65001 @echo off echo ^^^名称^^图片^^^ > lit.html for %%i in (*) do (echo ^^%%~ni^.%%~xi^^^^^ >> lit.html)把上述的代码复制到TXT另存为＂图片批量生成html.BAT＂ 双击运行＂图片批量生成html.BAT＂生成“lit.html” 打开“lit.html”,复制内容到Excel即可,(注意行高事先调成22个像素)

华宁县19841359819： 怎样将数码相机照的照片批量导进EXCEL中 - ？
笪匡劳麦： 因为数码相机的原照文件比较大,一半在5MB左右,建议将所有照片用图片处理软件批量压缩,EXCEL中一半不需要大图片,那么还可将图片分辨率降低,这样一个EXCEL中放多些图片都无所谓了,

华宁县19841359819： 如何批量修改批注里的图片大小(批注里插入了图片)？
笪匡劳麦： 首先将批注显示出来,然后双击批注的边框,可以打开“设置批注格式”对话框,选择“颜色和线条”选项卡,从“填充”栏的“颜色”项的下拉列表中选择“填充效果”项,随后可以打开“填充效果”对话框,选择“图片”选项卡,单击其中的“选择图片”按钮,选择要放在批注中的图片,然后连续单击“确定”按钮,回到Excel编辑状态,就可以看到选择的图片已经添加到批注中了. 要同样大小的话,必须是要图片的像素大小一样.

华宁县19841359819： excel怎么批量导入照片 - ？
笪匡劳麦： 将记事本中的文本全选进行复制,在Excel工作表中,右击“照片”列第一行,从弹出的右键菜单中选择“选择性粘贴”项.在弹出的“选择性粘贴”窗口中,选中“Unicode文本”项,直接点击“确定”按钮.最后就会发现相关的照片自动插入到“照片”所在单元格啦.