Sub Test() Dim s As Shape For Each s In ActivePage.Shapes s.Selected = False If s.Type = cdrBitmapShape Then If s.Bitmap.IsEPS Then s.Selected = True End If Next s End Sub