Sub adjust()
Dim mySlide As Slide
Dim myShape As Shape, i_Temp As Integer
On Error Resume Next
For Each mySlide In ActivePresentation.Slides
For Each myShape In mySlide.Shapes
If myShape.Type = msoPicture Then
With myShape
.Left = 20
.Top = 20
.Height = 400
.Width = 400
End With
End If
Next
Next
End Sub