파워포인트 그림 서식 자동설정

파워포인트 그림 서식 자동설정

파워포인트를 사용하여 자료를 만들다보면

마스터 슬라이드를 사용하지 않는 그림, 도형들의 크기 및 위치를 페이지 마다 동일하게 맞춰주어야 할 때가 있다.

한 두 페이지 정도는 그냥 하고 말겠지만 수십페이지라면..?

이를 해결하기 위한 방법이 있다.

VBA 매크로를 사용하여 그림 또는 도형의 크기 및 위치를 알아내고

그 크기와 위치를 선택만 도형에 적용하는 코드이다.

먼저 메뉴 - 보기 - 매크로를 클릭하여 매크로 이름을 아무거나 입력 후 만들기를 눌러준다.

또는

Alt + F11을 눌러 VBA에 들어가 좌측의 VBAProject을 우클릭 후 삽입 - 모듈을 눌러 추가해준 다음

sub 아무거나 엔터 를 입력해 준다.

웬만하면 "아무거나"는 한글이 아닌 영문으로 하시길

이후 Sub 안에 아래 코드를 입력해 준다. (필자는 함수(매크로)명을 viewsize로 했음)

Sub viewsize()

    MsgBox (ActiveWindow.Selection.ShapeRange.Height)

    MsgBox (ActiveWindow.Selection.ShapeRange.Width)

    MsgBox (ActiveWindow.Selection.ShapeRange.Left)

    MsgBox (ActiveWindow.Selection.ShapeRange.Top)

End Sub

그 다음 파워포인트에 도형 또는 그림을 클릭 후 메뉴 - 보기 - 매크로를 클릭하여 만든 매크로를 실행한다.

그럼 메세지 박스로 세로길이, 가로길이, 왼쪽으로부터의 위치, 위로부터의 위치가 차례대로 표시된다.

값을 잘 적어두고 위와 같이 매크로를 하 나 더 생성해 아래 코드를 입력한다.

Sub resize()

    ActiveWindow.Selection.ShapeRange.LockAspectRatio = msoFalse

    ActiveWindow.Selection.ShapeRange.Height = 211.748

    ActiveWindow.Selection.ShapeRange.Width = 310.6772

    ActiveWindow.Selection.ShapeRange.Left = 48.75591

    ActiveWindow.Selection.ShapeRange.Top = 145.4173

End Sub

적어 둔 값을 위에 순서대로 적은 후

파워포인트로 돌아가 적용할 도형을 클릭 후 새로운 매크로를 실행한다.

위치만 적용하고 싶으면 Height와 Width 시작에 '를 붙여 주석처리를 해준다.

초록색은 주석처리 되었다는 것을 의미한다.

이후 빠른 실행 도구 모음 사용자지정에 등록하여 불필요한 시간을 줄이도록하자.