PPT 문서 작업할 때 이미지 위치와 크기를 일일이 설정하는 것은 매우 힘든 일입니다.
이럴 때 PPT 매크로를 사용하면 쉽게 해결할 수 있습니다.
PPT 상단 메뉴 파일 - 옵션 선택합니다.
보안 관리 - 보안 센터 설정 - 매크로 설정 - 모든 매크로 포함 선택합니다.
PPT 상단 메뉴 보기 - 매크로 선택합니다.
매크로 이름은 test로 짓고, 매크로 위치는 열려 있는 프레젠테이션 모두를 선택하고 만들기 버튼을 선택합니다.
(모든 프레젠테이션 적용하기 위해)
매크로 소스를 간단하게 설명드리면
============================================================================
Option Explicit
Dim i As Long
Dim pic As Shape
Dim last_slide As Slide
Sub test()
For i = 1 To ActivePresentation.Slides.Count // 전체 프레젠테이션 루프 반복문
For Each pic In ActivePresentation.Slides(i).Shapes // 한 프레젠테이션 안의 도형 루프 반복문
If pic.Type = msoPicture Then // 이미지인 경우
pic.LockAspectRatio = msoFalse // 가로세로 비율 고정 X
pic.Top = 0 // 위치 상단
pic.Left = 0 // 위치 왼쪽
pic.Height = 200 // 세로길이
pic.Width = 300 // 가로길이
End If
Next pic
Next i
MsgBox "그림이 일괄 변경되었습니다." // 알림창
End Sub
============================================================================
매크로를 위와 같이 작성하고 초록색 실행 버튼을 선택합니다.
(초록색 ▶ 버튼)
그러면 위 화면처럼 이미지 위치와 크기가 변경된 것을 확인할 수 있습니다.
앞으로 PPT 문서 작업할 때 참고하면 시간을 단축할 거 같습니다.
