230问答网 > 我Excel里插入了很多自选图片。我现在想把里面的图片统一设定尺寸。怎样可以全选。或者可以一起设置？

我Excel里插入了很多自选图片。我现在想把里面的图片统一设定尺寸。怎样可以全选。或者可以一起设置？

2024-12-19 14:11:12

推荐回答（1个）

回答1：

用宏吧
在菜单－工具－宏－录制新宏
开始录制宏后，不做任何操作，点停止按钮，退出录制状态。
然后运行宏，选择刚录制的宏，一般是Macro1，点编辑，进行VBA编辑器，手动编写代码如下：

Sub Macro1()
'
' Macro1 Macro
' 宏由 walkinnet 录制，时间: 2011-12-12
'
Dim i as integer,W as Double,H as Double
Dim sp as Shape
W=100 '输入你要设置的图片的宽度尺寸
H=100 '输入你要设置的图片的高度尺寸
for each sp in ActiveSheet.Shapes
with sp.ShapeRange
.Width=W
.Height=H
end with
next
msgbox "全部图片已设置为统一尺寸！"
End Sub
然后在编辑器中点那个绿三角运行此宏，或通过Excel的菜单－工具－宏－运行宏，选择此宏运行即可。