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
- 이전글[vba] 고급필터(AdvancedFilter)를 이용한 지정한 구간의 날짜검색 20.09.04
- 다음글[vba] Sort(내림차순, 오름차순) 기본 코드 (VBA 매크로) 20.05.02
댓글목록
등록된 댓글이 없습니다.