当用 OLEObjects 的 add 方法添加一个图片对象后，再调整图片大小，这里，我调用 shapes 属性，其中的名称怎么填写呢？

[chenzhenghui_hw]

当用 OLEObjects 的 add 方法添加一个图片对象后，再调整图片大小，这里，我调用 shapes 属性，其中的名称怎么填写呢？
事情的始末如下：
我用录制宏的方法，在excel 单元格中插入一个图片对象，生成代码如下：
ActiveSheet.OLEObjects.Add(Filename:= _
“C:\Users\lenovo\Desktop\贴大图自动化\093226353_K1661937_98_1_32.jpg”, Link:=False, _
DisplayAsIcon:=True, IconFileName:="C:\WINDOWS\system32\packager.dll", _
IconIndex:=0, IconLabel:= _
“C:\Users\lenovo\Desktop\贴大图自动化\093226353_K1661937_98_1_32.jpg”,).Select

然后，调整了图片的大小，使之长宽在单元格内，也是用录制宏的方法，生成代码如下：
ActiveSheet.Shapes("Object 1").ScaleWidth 0.6, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Object 1").ScaleHeight 0.4, msoFalse, _
msoScaleFromTopLeft"

然后，我想把这两步串起来，并且重复这两步操作，但在循环体中，ActiveSheet.Shapes() 中的参数，我不知道用什么。如果用 "Object n" 会报错，错误提示是“未找到以指定名称命名的项目"
ActiveSheet.OLEObjects.Add(Filename:= _
“C:\Users\lenovo\Desktop\贴大图自动化\093226353_K1661937_98_1_32.jpg”, Link:=False, _
DisplayAsIcon:=True, IconFileName:="C:\WINDOWS\system32\packager.dll", _
IconIndex:=0, IconLabel:= _
“C:\Users\lenovo\Desktop\贴大图自动化\093226353_K1661937_98_1_32.jpg”,).Select

ActiveSheet.Shapes("Object 1").ScaleWidth 0.6, msoFalse, _ '程序执行到这里出错
msoScaleFromTopLeft
ActiveSheet.Shapes("Object 1").ScaleHeight 0.4, msoFalse, _
msoScaleFromTopLeft