• 쇼핑몰
  • 커뮤니티
  • 북마크

vb6.0/vba




[vba] [vba] PowerPoint 슬라이드 복사후 복사한 슬라이드에 이미지 삽입하기

하나를하더라도최선을
2020.07.23 17:20 104 0

본문



Sub main()
    Dim objPresentaion As Presentation
    Dim objSlide As Slide
    Dim objImageBox As Shape
    
    Set objPresentaion = ActivePresentation
    Dim fPath As String, fName As String
    fPath = "G:\Gallery\수업\"
    fName = Dir(fPath & "*.jpg")
    Do While Len(fName) > 0
        ActivePresentation.Slides(ActivePresentation.Slides.Count).Duplicate
        Set objSlide = objPresentaion.Slides.Item(ActivePresentation.Slides.Count - 1)
        Set objImageBox = objSlide.Shapes.AddPicture(fPath & fName, msoCTrue, msoCTrue, 00)
        fName = Dir()
    Loop
End Sub
 


댓글목록 0

등록된 댓글이 없습니다.