It would probably help if you explain what you mean by "
make outline shape 1/4"
But in the meantime try this
Set ONE picture how you want it and make sure it is selected then run
Sub setPicType()
On Error Resume Next
ActiveWindow.Selection.ShapeRange(1).PickUp
If Err <> 0 Then Exit Sub
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If IsPic(oshp) Then oshp.Apply
Next
Next
End Sub
Function IsPic(oshp As Shape) As Boolean
If oshp.Type = msoPicture Then IsPic = True
If oshp.Type = msoPlaceholder Then
If oshp.PlaceholderFormat.ContainedType = msoPicture Then IsPic = True
End If
End Function