Обратиться к картинке внутри Shape

Sub Format_Child_Pics()
Dim inLineShp As inlineShape
    If Selection.range.InlineShapes.Count > 0 Then
        For Each inLineShp In Selection.range.InlineShapes
            With inLineShp.PictureFormat
               .Brightness = 0.1
               .Contrast = 0.9
           End With
           inLineShp.Fill.ForeColor.RGB = RGB(0, 255, 0)
       Next inLineShp
    End If
End Sub

Sub InlineShapes_Inside_Shapes()
'Форматирует Inline Shapes внутри Shapes во всём документе.
 
Dim Shp As Shape
Dim inLineShp As inlineShape
    
    Application.ScreenUpdating = False
    For Each Shp In ActiveDocument.Shapes
        Shp.Select
 '       Shp.Fill.ForeColor = vbRed 'окрашиваем красным (можно удалить)
 '       Shp.Fill.ForeColor = vbWhite 'убираем окрас (можно удалить)
        If Selection.range.InlineShapes.Count > 0 Then
            For Each inLineShp In Selection.range.InlineShapes
                With inLineShp.PictureFormat
                   .Brightness = 0.1
                   .Contrast = 0.9
               End With
 '              inLineShp.Fill.ForeColor = vbGreen 'окрашиваем зелёным (можно удалить)
 '              inLineShp.Fill.ForeColor = vbWhite 'убираем окрас (можно удалить)
           Next inLineShp
        End If
    Next Shp
    Application.ScreenUpdating = True
End Sub

Sub InlineShapes_Inside_Shapes_2()
    Dim Shp As Shape
    Dim inLineShp As InlineShape
  
    Application.ScreenUpdating = False
    On Error Resume Next
 
    For Each Shp In ActiveDocument.Shapes      
        If Shp.TextFrame.TextRange.InlineShapes.Count > 0 Then
            For Each inLineShp In Shp.TextFrame.TextRange.InlineShapes
                With inLineShp.PictureFormat
                   .Brightness = 0.1
                   .Contrast = 0.9
               End With
           Next inLineShp
        End If       
    Next Shp
    
    If Err.Number <> 0 Then Err.Clear
    On Error GoTo 0
    Application.ScreenUpdating = True
End Sub