第1个回答 2020-02-17
所有图片插入后,同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:
Sub
test()
Dim
xPic
As
Shape
For
Each
xPic
In
ActiveSheet.Shapes
If
xPic.Type
=
13
Then
xPic.LockAspectRatio
=
True
xPic.Width
=
xPic.Width
/
4
End
If
Next
End
Sub
粗体字你也可以自己试个合适的数字(如果不改的话,长宽都变为原来的1/4,即大小为原来的1/16),然后直接按F5运行此宏,完成。