Sub fix_Pic_all()
Dim opic As Shape
Dim osld As Slide
For Each osld In ActivePresentation.Slides
For Each opic In osld.Shapes
If opic.Type = msoPicture Then
With opic
.Left = cm2Points(9)
.Top = cm2Points(3.46)
.LockAspectRatio = False
.Width = cm2Points(16.09)
.Height = cm2Points(15.5)
.Line.ForeColor.RGB = vbBlack
.Line.Weight = 2
End With
End If
Next opic
Next osld
End Sub
Function cm2Points(inVal As Single)
cm2Points = inVal * 28.346
End Function