Here you go
Sub chex()
Dim oSld As Slide
Dim oShp As Shape
Dim opic As Shape
Dim b_found As Boolean
Set oSld = ActivePresentation.Slides(1)
For Each oShp In oSld.Shapes
If oShp.HasTextFrame Then
If InStr(oShp.TextFrame.TextRange, "Name") = 0 Then
'Nothing found
Else
b_found = True
Exit For
End If
End If
Next oShp
'Found text
If b_found = True Then
For Each opic In ActivePresentation.Slides(4).Shapes
If opic.Type = msoPicture Then
With opic
.LockAspectRatio = msoFalse
.Height = 306.72
.Width = 195.12
.Left = 409.68
.Top = 40.32
.ZOrder (msoSendBackward)
.Line.Weight = 1
.Line.ForeColor.RGB = RGB(99, 102, 106)
End With
Else
End If
Next opic
End If
End Sub