Oscar Sun

                  Sub selectShpae()
Dim sld As Slide
Dim sp As Shape
Dim dw As DocumentWindow
Dim sw As SlideShowWindow
'On Error GoTo eH
For Each sld In ActivePresentation.Slides
    For Each sp In sld.Shapes
'        Select Case sp.Type
'            Case 1, 17
'            Case Else
'                Stop
'        End Select
        If sp.Type = msoPicture Then 'https://docs.microsoft.com/zh-tw/office/vba/api/office.msoshapetype
            sld.Select
            sp.Select
            Stop
        End If
    Next sp
Next sld
Exit Sub
eH:
Select Case Err.Number
    Case 4198
        sld.Select
        Resume Next
    Case Else
        MsgBox Err.Number & Err.Description
End Select
End Sub