作者:乔山办公网日期:
返回目录:excel表格制作
按照Ctrl鼠标多选图片,然后在任一一张图上右击,选择“大小和属性”即可。
全部图片的话我自己用的一个VBA,可供参考,如下:
Sub 调整图片大小快捷键()
Application.OnKey "^j", "a调整图片大小"
End Sub
Sub a调整图片大小()
Dim picture_total%
A = InputBox("固定e69da5e887aa7a686964616f361高度: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
execl里设置可以让图片复统一大小的具体操作步骤如下:
所需工具:电脑、Excel软件。
1、新建一个Excel表格,把需要的所有图片复制到表格的任意位置。
2、然后全选所有图片内容。
3、选中图片之后移动制鼠标到工具栏,选择【开始】,此时可以看到工具栏上方出现【图片工具】字样百,单击选中。
4、选中之后移动鼠标到工具栏的右上方找到【大小】按钮,然后单击后面的下拉框调出设置窗口。
5、此时可以看到有【高度、宽度】选项,输入自己所需尺寸,然后将【锁定纵横比】前的勾去除,度设置完成之后点击【关闭】即可。
1、将需要改变的图片放在一个统一百的文件夹之下,记住名字。打开PS,选择“文件‘’-”脚度本“-”图像处理器“。
2、在文件夹选择中,问选择我们存储的文件夹位置。
3、选择完毕后,在同界答面下,有存储文件位置,以及版图像大小,然后,点击右侧的运行。
4、完成后,会出现一个JEPG的新文件夹,即为更改后的权图片。
选中多个之后,直接在图片工具里面就可以修改了