excel高手帮帮忙啊！

来源：百度知道 编辑：UC知道 时间：2024/05/05 15:06:20
我的每一张工作表都要插入很多图片，而且都要把大小调整为6CM X 5CM
但是已有的工作表内就有几百张图片要我调整，这样要搞到什么时候 啊？
谁能教教我一次性把所有图片的大小都调整为6 X 5啊？
用VBA应该可以，但我不知道怎么做！

Dim n As Integer
For n = 1 To 100

ActiveSheet.Pictures.Insert("d:\My Pictures\"& n & ".jpg").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 141.75 '此为象素单位，5cm。
Selection.ShapeRange.Width = 170.25

Next n

你试着在属性里面设置一下