如何缩小excel里面照片大小
3个回答
2016-07-24 · 知道合伙人互联网行家
关注
展开全部
多个图片的尺寸调整包含两个步骤:选择图片和调整大小。
一、选择图片包含如下三种方式:
Ctrl+鼠标左键分别选中
开始>查找和选择>选择对象>钩选或者全选(Ctrl+A)
Ctrl+G快捷键,定位>定位条件>选择对象
二、调整大小包含如下二种方式:
直接鼠标拖拽:
左右或者上下拖拽分别调整图片宽度和高度;如果拖拽右下角,则为按比例缩放图片。
属性设置:
右键>大小和属性>高度和宽度为绝对值设定,缩放高度和缩放宽度是按照比例缩放。
其中的锁定纵横比如果钩选是保持原来的纵横比。
以上组合起来有六种方法,不过整体操作大同小异。
VBA方法:
VBA方法操作自动化程度高,并且便于各参数的设定。
如下代码对该工作表中的所有图片的高度设置为2cm。
Sub AllPicZoom()
On Error Resume Next
Dim i As Single
For i = 1 To ActiveSheet.Shapes.Count
ActiveSheet.Shapes(i).Height = 2*28.6
ActiveSheet.Shapes(i).Width = 2*28.6
Next
End Sub
一、选择图片包含如下三种方式:
Ctrl+鼠标左键分别选中
开始>查找和选择>选择对象>钩选或者全选(Ctrl+A)
Ctrl+G快捷键,定位>定位条件>选择对象
二、调整大小包含如下二种方式:
直接鼠标拖拽:
左右或者上下拖拽分别调整图片宽度和高度;如果拖拽右下角,则为按比例缩放图片。
属性设置:
右键>大小和属性>高度和宽度为绝对值设定,缩放高度和缩放宽度是按照比例缩放。
其中的锁定纵横比如果钩选是保持原来的纵横比。
以上组合起来有六种方法,不过整体操作大同小异。
VBA方法:
VBA方法操作自动化程度高,并且便于各参数的设定。
如下代码对该工作表中的所有图片的高度设置为2cm。
Sub AllPicZoom()
On Error Resume Next
Dim i As Single
For i = 1 To ActiveSheet.Shapes.Count
ActiveSheet.Shapes(i).Height = 2*28.6
ActiveSheet.Shapes(i).Width = 2*28.6
Next
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |