PPT 파워포인트 파일에 있는 그림파일을 모두 저장하는 방법
MS 오피스
파워포인트 슬라이드에 있는 모든 그림 파일, 한 번에 저장하는 매크로 사용법
파워포인트 작업을 하다 보면, 슬라이드에 삽입된 여러 그림 파일을 개별적으로 저장해야 할 때가 있습니다.
하나하나 손으로 저장하려면 시간이 많이 걸리는데요.
이럴 때, VBA 매크로를 활용하면 슬라이드에 있는 모든 그림을 한 번에 저장할 수 있습니다.
아래는 그런 상황에서 유용하게 사용할 수 있는 그림 파일 일괄 저장 매크로 코드와 사용 방법이에요.
Sub SaveAllImages()
Dim slideIndex As Integer
Dim shapeIndex As Integer
Dim savePath As String
Dim shapeItem As Shape
' 저장할 폴더 선택
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "저장할 폴더를 선택하세요"
If .Show = -1 Then
savePath = .SelectedItems(1) & "\"
Else
Exit Sub ' 사용자가 취소를 누르면 종료
End If
End With
' 슬라이드 순회하며 그림 저장
For slideIndex = 1 To ActivePresentation.Slides.Count
For shapeIndex = 1 To ActivePresentation.Slides(slideIndex).Shapes.Count
Set shapeItem = ActivePresentation.Slides(slideIndex).Shapes(shapeIndex)
' 그림인 경우 저장
If shapeItem.Type = msoPicture Then
shapeItem.Export savePath & "Slide" & slideIndex & "_Shape" & shapeIndex & ".png", ppShapeFormatPNG
End If
Next shapeIndex
Next slideIndex
MsgBox "모든 그림이 저장되었습니다!", vbInformation
End Sub
아래는 PPT내 그림파일 일괄저장 VAB매크로 입니다. 다운로드 해서 바로 쓰셔도 됩니다.
PPT 그림파일 일괄저장(PNG) [사용 방법]
- 파워포인트에서 VBA 편집기 열기
- Alt + F11 키를 눌러 VBA 편집기를 오픈
- 모듈 추가
- 상단 메뉴에서 삽입 → 모듈을 선택해 새 모듈을 추가
- 코드 붙여넣기
- 위에 있는 매크로 코드를 복사해서 새 모듈에 붙여넣어 주시거나, 오른쪽 마우스 불러오기로 다운받은 매크로 불러오기
- 매크로 실행
- 플레이 버튼 처럼 생긴 ▶ <<요걸 누르면 실행창이 나옵니다.
- SaveAllImages를 선택한 후 [실행]을 눌러 주면
- 저장할 폴더 선택
- 그림 파일이 저장될 폴더를 선택하면, 슬라이드 안에 있는 모든 그림이 지정한 폴더에 PNG 파일로 저장
혹시 모르니 사진도 같이 넣어 드릴께요 참고하세요~
'MS 오피스' 카테고리의 다른 글
| 엑셀 파일 최적화 꿀팁! XLStyles Tool 활용 가이드 (0) | 2025.03.05 |
|---|---|
| 윈도우에서 파일 확장자가 안 보인다고? 1분 만에 해결하는 방법! (0) | 2025.03.02 |
| 엑셀 순환참조 경고창 오류 수식 해결법 및 문제점 (2) | 2015.12.04 |
| 엑셀 수식이 있는 셀을 값(숫자나 문자)으로 복사하여 붙이기- 엑셀 선택하여 붙여넣기 (0) | 2015.10.26 |
| 엑셀2010 셀에 01, 001 등 숫자 앞에 0입력 표시하는 방법(엑셀 숫자 입력한 대로 표시하는 방법 2가지) (0) | 2015.10.05 |