Excel怎么批量调整多个图片的尺寸大小?

发布网友发布时间：2023-08-13 22:13

我来回答

共1个回答

热心网友时间：2023-08-24 03:02

多个图片的尺寸调整包含两个步骤：选择图片和调整大小。

一、选择图片包含如下三种方式：

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