vba [vba] PowerPoint 슬라이드 복사후 복사한 슬라이드에 이미지 삽입하기
페이지 정보
본문
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
- 이전글[vb6.0/vba] JsonParser 20.08.21
- 다음글[vb6.0/vba] vba를 이용한 네이버 블로그 공감하기 20.07.20
댓글목록
등록된 댓글이 없습니다.