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