电子表格怎样在EXCEL里批量处理图片大小
1.怎样在EXCEL里批量处理图片大小
按照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("请输入图片高度:", "提示:", "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
2.EXCEL中插入的多个图片怎么一起改变大小
EXCEL中插入的多个图片一起改变大小的步骤:
第一种方法:
选中多个图片,点图片工具下的格式菜单,在高度或者宽度里输入数值。
第二种方法:
1、选中多个图片,鼠标右键选择大小和属性;
2、在【尺寸和旋转】下的高度或者宽度里输入数值,点关闭。
第三种方法:
1、选中多个图片,鼠标右键选择大小和属性;
2、在缩放比例下的高度或者宽度里输入百分比,点关闭。
