[실준52기 7십7조 훈훈한] 단지분석 할때 매크로 안쓰시는 분 계신가요? 간단하게 사용합시다!

안녕하세요.

자본주의 살아남기 훈훈한입니다.

매크로 쓰시는데, 어려움이 있다는 조원분께 간단히 알려드리려다가

이렇게 나눔글로 이어지네요 ㅋㅋㅋ

저는 매크로 기능 하나만 씁니다.

매크로 텍스트는 첨부파일로 보내드립니다.

파일 첨부매크로 2.txt

여기에 적힌것만 복사 붙여넣기하고 단축아이콘 뺴서 사용하면 됩니다.

저는 맥북이라서 단축키가 안먹는데, 단축키 가능하신분들은 사용하시면 더 빠를거에요^^

1. ppt를 연다.

2. 매크로 창을 연다.

도구- 매크로 - 비주얼스튜디오 클릭.

3. 매크로에서 모듈을 만들어줍니다.

오른쪽 마우스누르고 추가하고 모듈을 눌러주세요.

4. 메모장에 넣어준 파일을 복사해서 붙여넣는다.

---------------------------------------------------

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

----------------------------------------------

여기에서 복사 붙여넣기할때 꼭 마우스 오른쪽을 눌러서 해야합니다.

매크로 화면에서는 ctrl+V가 안먹히더라고요.ㅠㅠ

그럼 끝났고

이젠 바로 가기 튤을 만들어 볼까요?

5. 바로가기 만들기

리본 및 도구모음으로 가야합니다.

저는 맥북이라서 이렇게 들어가는게 빠른데, 윈도우로는 잘 안써서 검색해서 빠른 실행도구 모음이나

리본 및 도구모음 창으로 들어오시면 됩니다.

매크로 선택하고

만든 모듈을 오른쪽으로 보내고 저장하면 끝입니다..

하시다가 모르는거 있으면 말씀해주세요.

모두 임장보고서 잘 마무리하시고

단지분석까지 화이팅해요.

https://cafe.naver.com/wecando7/10574651