изображения в листе excel

Dim pic As Picture
For Each pic In ActiveSheet.Pictures
    MsgBox pic.Name
Next pic

Sub test()
    On Error Resume Next
    Dim sha As Shape, sha2 As Shape, sh As Worksheet: Set sh = ActiveSheet
    For Each sha In sh.Shapes
        txt = txt & vbNewLine & "Группа """ & sha.Name & _
              """ из " & sha.GroupItems.Count & " рисунков:" & vbNewLine
        Err.Clear: x = sha.GroupItems.Count
        If Err = 0 Then
            For Each sha2 In sha.GroupItems
                txt = txt & vbTab & sha2.Name & " на листе """ & _
                      sha2.Parent.Name & """" & vbNewLine
            Next sha2
            txt = txt & "Конец группы" & vbNewLine & vbNewLine
        Else
            txt = txt & vbTab & sha.Name & " на листе """ & sha.Parent.Name & """" & vbNewLine
        End If
    Next sha
    MsgBox txt, vbInformation, "Список рисунков в группах"
End Sub

For Each shp In ActiveSheet.Shapes
    Select Case shp.Type
        Case 6
            For Each shpG In shp.GroupItems
                If shpG.Type = 13 Then Debug.Print shpG.Name
            Next shpG
        Case 13
            Debug.Print shp.Name
    End Select
Next shp