Картинку из Word в PowerPoint

[Gepar]

Нужно перетащить картинки из документа word в PowerPoint, например по 1 картинке на лист презентации. Как это сделать ?
Конкретно мне не понятно как перетащить найденную картинку в word в powerpoint:

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

Заранее спасибо.

[Пименов Александр]

Sub test1234()
 
    Dim PPAppl As PowerPoint.Application
    Dim Sld As Slide, Pres As Presentation
    
    Set PPAppl = New PowerPoint.Application
    With PPAppl
        .Visible = True 
        Set Pres = .Presentations.Add
        
    For i = 1 To ActiveDocument.InlineShapes.Count
        Set Layout = Pres.SlideMaster.CustomLayouts(2)
        Set Sld = Pres.Slides.AddSlide(i, Layout)
        ActiveDocument.InlineShapes(i).Select
        Selection.Copy
        Sld.Shapes.Paste
    Next i
    End With
End Sub

Вроде фурычит.........

[Gepar]

Пименов Александр, ну я вот тоже к таким выводам в итоге пришёл, хотя не знаю понравиться ли такая реализация преподавателю, в четверг ему покажу.

[Пименов Александр]

Сообщение от Gepar

ну я вот тоже к таким выводам в итоге пришёл, хотя не знаю понравиться ли такая реализация преподавателю, в четверг ему покажу.

Рад, что мы сошлись во мнении, но макрос этот надо улучшать однозначно. Данный макрос это рыба.
Во-первых надо написать функцию для объекта InlineShape определяющую, что он является картинкой.
Во-вторых картинкой может быть и объект Shape, для этого также надо пройти циклом по ActiveDocument.Shapes, тут тоже нужна функция для определения картинки, также Shape может быть фигурой или группой фигур составляющих картинку.
В-третьих объект Chart (диаграмма) ее тоже можно экспортировать.
Итог:
Надо создавать Диалоговую форму дающую возможность пользователю выбирать параметры экспорта

[Gepar]

Пименов Александр, ну насчёт того что форму надо делать и дописывать то это само собой, это я уже почти сделал, теперь вот воюю с диалоговыми окнами "открыть файл" и "сохранить файл" (хочу получать из них строки с путями и названиями файлов которые там выбрал пользователь), а вот насчёт того что нужно определять для InlineShape что это картинка то тут не понял, я не знаю как это сделать не подскажите?

[Пименов Александр]

Sub test1234()
 
    Dim PPAppl As PowerPoint.Application
    Dim Sld As Slide, Pres As Presentation
    
    Set PPAppl = New PowerPoint.Application
    With PPAppl
        .Visible = True 
        Set Pres = .Presentations.Add
        
    For i = 1 To ActiveDocument.InlineShapes.Count
        Select Case InlineShapes(i).Type ' Вставка в PowerPoint если InlineShapes рисунок
            Case 3, 4, 7, 8, 9
                Set Layout = Pres.SlideMaster.CustomLayouts(2)
                Set Sld = Pres.Slides.AddSlide(i, Layout)
                ActiveDocument.InlineShapes(i).Select
                Selection.Copy
                Sld.Shapes.Paste
        End Select
    Next i
    End With
End Sub

Вот модернизированный макрос с проверкой InlineShape

[Gepar]

Пименов Александр, вот спасибо, а я и не заметил как-то поле Type когда перебирал все свойства и методы для InlineShapes. Теперь какраз и определил что для формул InlineShapes.Type =1, спасибо за подсказку.