안녕하세요.
자본주의 살아남기 훈훈한입니다.
매크로 쓰시는데, 어려움이 있다는 조원분께 간단히 알려드리려다가
이렇게 나눔글로 이어지네요 ㅋㅋㅋ
저는 매크로 기능 하나만 씁니다.
매크로 텍스트는 첨부파일로 보내드립니다.
파일 첨부매크로 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. 바로가기 만들기
리본 및 도구모음으로 가야합니다.
저는 맥북이라서 이렇게 들어가는게 빠른데, 윈도우로는 잘 안써서 검색해서 빠른 실행도구 모음이나
리본 및 도구모음 창으로 들어오시면 됩니다.
매크로 선택하고
