안녕하세요!! 젊은우리입니다^^

​

많은 분들이 임장보고서를 작성하면서

많은 시간을 투여하게 되실 텐데요~

​

저도 최근까지 그래프, 사진 등을

일일이 사진등을 마우스로 옮겨가며 크기 조절하여

기존 사진을 지우는 작업을

무한 반복하게 됐던 것 같습니다.

​

예를 들어

단지 정리하나 하는 데만 해도

그래프와 사진을 일일이 크기 조절하며 기존 사진 지우고,

새로운 사진으로 바꾸는 작업하는 데만 해도

단지 하나 당 상당한 시간을 소모하게 됩니다.

​

그래서 그런 시간들을 줄이는 방법이 없을까

고민하다가 찾아낸 것이

PPT에서 제공하는 매크로를 활용하여

단축키로 손쉽고 빠르게 사진 크기를 조절하고

사진 위치를 바꾸는 방법을 알려드리겠습니다^^

​

이 방법으로 임장보고서 작성시간을

임장보고서 작성 시간 1/10로

줄일 수 있었으니

잘 따라와보세요^^

​

​

​

매크로 코드 파란색 부분을 그대로 드래그하세요^^

​

1번

[사진크기 복사(Get size)하여 붙여넣기(Apply size) 하는 매크로 코드]

​

Public sWidth As Single, sHeight As Single

​

Sub getSize()

​

On Error GoTo MsgErr:

With ActiveWindow.Selection.ShapeRange(1)

sWidth = .Width

sHeight = .Height

End With

MsgBox sWidth & ", " & sHeight & " 사이즈를 저장했습니다."

MsgErr:

If Err Then MsgBox Err.Description

End Sub

​

Sub applySize()

If sWidth = 0 Or sHeight = 0 Then MsgBox "get Size first!": Exit Sub

​

Dim shp As Shape

​

On Error GoTo MsgErr:

For Each shp In ActiveWindow.Selection.ShapeRange

​

shp.LockAspectRatio = False

shp.Width = sWidth

shp.Height = sHeight

​

Next shp

MsgErr:

If Err Then MsgBox Err.Description

End Sub

​

​

​

​

2번

[사진크기를 자동조절하며 위치를 변경하여 기존사진 없애는(SwitchAB) 매크로 코드]

​

Option Explicit

​

Sub SwitchAB()

​

Dim shpRng As ShapeRange

Dim shpA As Shape, shpB As Shape

​

On Error GoTo ErrMSg:

​

Set shpRng = ActiveWindow.Selection.ShapeRange

If shpRng.Count <> 2 Then _

MsgBox "서로 교체할 그림도형 2개를 선택하세요.": Exit Sub

​

Set shpA = shpRng.Item(1)

Set shpB = shpRng.Item(2)

​

​

'핵심 처리 부분

shpB.Left = shpA.Left

shpB.Top = shpA.Top

shpB.LockAspectRatio = msoFalse

shpB.Width = shpA.Width

shpB.Height = shpA.Height

shpB.ZOrder msoBringToFront '맨 앞으로 보내기

shpA.Delete

​

​

ErrMSg:

If Err Then MsgBox Err.Description

End Sub

​

​

​

매크로 코드 삽입하기

​

자 이제 매크로 코드는 준비되었습니다.

이제 저 매크로 코드를 활용하여 PPT에 적용해

사용하는 방법을 알려드리겠습니다!!

​

첫 번째

Alt + F11

누른다

​

이런 창이 나오실 겁니다!!

​

두 번째

삽입 > 모듈

클릭

​

세번째

1번 매크로 코드 드래그하여 복사 후 새롭게 뜬 창에 붙여넣기

[결과 왼쪽 화면에 Module1이라고 생성]

​

같은 방법으로

삽입 > 모듈 클릭 후 새로운 창이 뜨게 되면

2번 매크로 코드 드래그하여 복사 후 새롭게 뜬 창에 붙여넣기

 각각 매크로 코드 붙여넣기 하는 화면

붙여넣기를 하였다면 X를 눌러 창 닫기를 해주세요^^

​

​

정상적으로 매크로가 만들어지면

왼쪽에 이렇게 추가한 2개에 Module 1,2 만들어졌을 겁니다

​

그러면 매크로를 추가한 전체 창을 모두 닫아주시고

PPT 기존 화면으로 돌아가주세요~

​

​

삽입한 매크로 단축키 만들기

​

첫번째

빠른 실행 도구 모음 사용자 지정 > 기타 명령

​​

​

두 번째

빠른 실행 도구 > 매크로 선택

이처럼 빠른 실행 도구 모음에서

매크로를 선택하게 되면은 이처럼

내가 추가한 3가지 매크로를 보시게 될 겁니다.

​

그럼 이제 할 일은 왼쪽에 있는 3가지 매크로를

오른쪽에 추가하여 가장 상위부터

getSize

applySize

SwitchAB

순으로 위치 시키면 됩니다.

이렇게요!! 완성되었다면

확인을 눌러 창을 닫아주세요!!

​

​

세 번째

단축키를 활용한 매크로 사용!

​

alt+1

사진 크기 복사

​

alt+2

복사한 크기 붙여 넣기

​

alt+3

사진 자동 크기 조절 및 위치 이동

​

​

단축키 순서 방법은

PPT 화면에서 alt를 누르시면

이처럼 작은 숫자들이 뜨게 되는데요~

해당 아이콘 위치에 번호 또는 알파벳이

단축키가 됩니다.

​

1번은 alt+1

2번은 alt+2

3번은 alt+3

​

​

​

모든 준비가 끝났습니다 실제 사용하기

​

alt+1

사진 크기 복사

​

alt+2

복사한 크기 붙여 넣기

​

alt+3

사진 자동 크기 조절 및 위치 이동

​

라고 알려드렸는데요!!

​

Alt+1과 Alt+2 1개의 조합

Alt+3 1개

​

총 2가지를 사용하겠습니다

​

​

​

alt+1

사진 크기 복사

​

복사하고 싶은 사진을 선택 후

alt+1을 누르게 되면

사진 크기가 복사되었다고

창이 하나 뜨게 됩니다.

​

​

alt+2

복사한 크기 붙여넣기

복사가 되었다면 내가 변경하고 싶은

사진들을 선택하여 alt+2를 누르게 되면

복사한 사진 크기로 모두 변경됩니다!!

​

​

​

자 이번에는 사진 크기를

자동으로 조절하면서 위치 변경까지 하는

3번째 매크로를 사용해 보겠습니다

SwitchAB

​

변경 전

변경 후

​

설명이 이해가 안 되시는 분들이 계시면

아래 동영상을 참고해 주세요^^

​

[동영상 업로드 중]

[동영상 먼저 보러 가려면 이거 클릭♡]

[매크로가 드래그 안되시면 이거 클릭하여

글 아래 1,2번 댓글 확인♡]

​

아기가 자고 있어 조용한 목소리로 녹음을 한 점과

장비가 좋지 않아 잡음도 상당히 있으니

양해 부탁드립니다♡

​

​

혹시 성공하신 분들이 계시다면,

동료분들에게 알려주세요^^

​

줄어든 임장 보고서 작성 시간에

임장 한 번 더!!

매물 한 개 더!

소중한 분들과의 시간을 가지셨으면 좋겠습니다!!

'팔로우' 하시면 내 집 마련과

실전 투자의 유용한 글들을

빠르게 확인하실 수 있습니다♥