[파워포인트/매크로] 슬라이드를 이미지로 저장

- 입맛대로 맞춰서 사용하는 매크로 코드

- 슬라이드의 내용을 이미지로 저장

- Alt + F11 로 개발작업창 띄우기

▷ 프로젝트 창 오른쪽 버튼 → 삽입 → 모듈

▷ 해당 모듈에 아래 코드 추가

 

※ 현재 선택된 슬라이드를 이미지로 저장

- 파일 이름 및 저장 경로는 변경할 것

Sub EXPORT_IMAGE_ACT-SLIDE()
	Dim ActSlide As Long
    
    ActSlide = Application.ActiveWindow.View.Slide.SlideIndex
    Application.ActivePresentation.Slides(ActSlide).Export "C:\Temp\test.png", "PNG"
    'PNG, JPEG, GIF, BMP
End Sub

 

※ 특정 위치의 슬라이드를 이미지로 저장

- 파일 이름 및 저장 경로는 변경할 것

- 슬라이드 번호 변경할 것 > Slides(1).Export

Sub EXPORT_IMAGE_SPECIFIC-SLIDE()
    Application.ActivePresentation.Slides(1).Export "C:\Temp\test.png", "PNG"
    'PNG, JPEG, GIF, BMP
End Sub

 

※ 모든 슬라이드를 이미지로 저장

- 파일 이름 및 저장 경로는 변경할 것

Sub EXPORT_IMAGE_ALL-SLIDE()
	Dim SlideNum As Slide
    
    For Each SlideNum In ActivePresentation.Slides
    	ActSlide = Application.ActiveWindow.View.Slide.SlideIndex
    	Application.ActivePresentation.Slides(SlideNum.SlideIndex).Export "C:\Temp\image" & SlideNum.SlideIndex & ".png", "PNG"
        'PNG, JPEG, GIF, BMP
	Next SlideNum
End Sub

---

업데이트) 2023.07.05