ppt中用vba批量设置图片大小，提示属性的使用无效，高手看看 哪里问题

Question

Sub ImageEdite()
For i = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(i).Select
ActiveWindow.Selection.SlideRange.Shapes ("picture 1")
With ActiveWindow.Selection.ShapeRange
.Height = 380
.Width = 510
.Left = 200
.Top = 80
End With
Next
End Sub

Answer 1

我的就执行了啊，我用的ppt2010，不过就是图片的锁定纵横比怎么关闭啊？

Sub ImageEdite()

For i = 1 To ActivePresentation.Slides.Count

ActivePresentation.Slides(i).Select
ActiveWindow.Selection.SlideRange.Shapes("Picture 1").Select
With ActiveWindow.Selection.ShapeRange
.Height = 381
.Width = 250
.Left = 42
.Top = 114
End With
Next
End Sub

Answer 2

我也看不懂