Dim Obj As Shape
Dim Resultat As String
 
For i = 1 To ActivePresentation.Slides.Count
 
For Each Obj In ActivePresentation.Slides(i).Shapes
  If Obj.Type = msoOLEControlObject Then
     If Obj.OLEFormat.ProgID = "Forms.CheckBox.1" Then
        Resultat = Resultat & ActivePresentation.Slides(i).Name _
        & " / " & Obj.Name & " / " & Obj.OLEFormat.Object.Value & vbCrLf
     End If
  End If
Next Obj
 
Next i
 
MsgBox Resultat