none
VBA - вставка изображений в слайды Power Point RRS feed

  • Общие обсуждения

  • Хотел бы сделать так, чтобы изображения из папки вставлялись в создаваемые слайды и их изображения подгонялись бы под размер слайдов. С добавлением слайдов разобрался

    Sub AddAndInsert()
    Dim fco As Scripting.FileSystemObject
    Dim FolderCur As Scripting.Folder
    Dim pptSlide As Slide
    Dim pptLayout As CustomLayout
    Dim nFiles As Integer
    Set fco = New FileSystemObject
    Set FolderCur = fco.GetFolder("c:\VBA\")
    nFiles = FolderCur.Files.Count
    For i = 1 To nFiles
    Set pptLayout = ActivePresentation.Slides(1).CustomLayout
    Set pptSlide = ActivePresentation.Slides.AddSlide(1, pptLayout)
    Next i
    End Sub

    , а вот как сделать вставку изображений из файлов папки в слайды - не знаю. Подскажите, пожалуйста. Изображения и презентацию прикрепляю.


    Alex

    20 декабря 2012 г. 13:42