자료실

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

vb6.0/vba

IT HUB를 찾아주셔서 감사합니다.

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

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 7,064회 작성일 20-07-23 17:20

본문

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
 

댓글목록

등록된 댓글이 없습니다.