怎么在excel里批量快速插入图片，并调整好大小-excel批量图片大小,excel批量处理图片大小

选中多个之后，直接在图片工具里面就可以修改了

1、打开excel表格，在插入中点击“图片”，按住“Ctrl”键选择三张图片，点击插入。来

2、即可同时插入源多张图片，下图为插入图片后的效果，三张图片大小不一。知

3、按住“Ctrl”后点击鼠标左键选择图片，可以同时选中三张图片。

4、点击鼠标右键，选择“大小和属性”。

5、在右侧弹出的项目中，将“锁定纵横比”的勾选框去除。

6、然后在“高度道和宽度”分别输入需要的图片大小数值。

7、即可将选中的图片更改为设置的高度和宽度了。

按照Ctrl鼠标多选图片，然后在任一一张图上右击，选择“大小和属性”即可。
全部图片的话我自己用的一个VBA，可供参考，如下：
Sub 调整图片大小快捷键()
Application.OnKey "^j", "a调整图片大小"
End Sub
Sub a调整图片大小()
Dim picture_total%
A = InputBox("固定高度：H" & Chr(10) & "固定宽度：W" & Chr(10) & "比例缩放：S", "调整图片大小", "H")
A = UCase(A)
picture_total = ActiveSheet.Shapes.Count
For i = 1 To picture_total
Select Case A
Case "H"
If i = 1 Then h = InputBox("请输入图片高度：", "提示：e79fa5e98193e59b9ee7ad94361", "200")
ActiveSheet.Shapes(i).Height = h
If i = 1 Then c = MsgBox("是否同一水平高度？", vbOKCancel, "提示：")
' SendKeys "{TAB}"
If c = vbOK Then
If i = 1 Then t = InputBox("请输入图片上端位置：", "提示：", "200")
ActiveSheet.Shapes(i).Top = t
End If
Case "W"
If i = 1 Then w = InputBox("请输入图片宽度：", "提示：", "200")
ActiveSheet.Shapes(i).Width = w
Case "S"
If i = 1 Then s_old = ActiveSheet.Shapes(i).Height
If i = 1 Then s = InputBox("请输入缩放比例(100%)：", "提示：", "100")
ActiveSheet.Shapes(i).Height = s_old * s / 100
Case Else
b = MsgBox("您输入的字符不正确！" & Chr(10) & "即将退出程序！", vbOKOnly, "警告！")
Exit Sub
End Select
Next
End Sub

一、前提：
假设图片名称在A2:A15，不带扩展名，图copy片格式为jpg格式，图片保存在“D:\图片\”文件夹下
二、操作方法：
1、A2：A15输入图片名百称（不带扩展度名）
2、B2输入

1

="<table><img src=""D:\照片\"&A2&".jpg""width=""176""height=""220"">"

3、下拉公式到B15
说明：公式中Width 和height是装入后的图片宽和高，可自行调整。
4、选中B2：B10，复制
5、返回桌面，知新建一个文本文件，并打开，粘贴
6、调整Excel行距，以道确保图片能装下