[vba] [vba] PowerPoint 슬라이드 복사후 복사한 슬라이드에 이미지 삽입하기
하나를하더라도최선을
2020-07-23 17:20
4,630
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, 0, 0)
fName = Dir()
Loop
End Sub
댓글목록0