Поиск картинок в документе Word - VBA

Формулировка задачи:

1)Как получить список всех картинок что есть в документе? 2)Как бы перетащить такой найденный объект-картинку в PowerPoint презентацию? Мне говорили что есть какой-то метод для "переприсваивания" чтоли. И по первому и по второму вопросу гуглил, но нужной информации найти не смог, знаю что существует специальный объект или объекты через которые и можно пройтись по всем картинкам в документе, но не помню как к нему добираться

Решение задачи: «Поиск картинок в документе Word»

textual
                            Листинг программы 
                        

                            Sub test1234()
 
    Dim PPAppl As Object
    Dim m As Variant
    
    'создать новый объект
    Set PPAppl = CreateObject("PowerPoint.Application")
    
    'выбрать тип новых создаваемых листов в PowerPoint
    Dim Layout As Integer
    Layout = 2
    
    
    With PPAppl
        .Visible = True 'показать PowerPoint
        .Presentations.Add 'создать в PowerPoint презентацию
        
    'пройтись по всех картинках
    For i = 1 To ActiveDocument.InlineShapes.Count
        .ActivePresentation.Slides.Add i, Layout 'добавить новый лист
        ActiveDocument.InlineShapes(i).Select 'выбрать i-ую картинку
    Next i
    End With
End Sub
                        