파워포인트 VBA로 그림위치지정 하기

Question

익명

1번 슬라이드 처럼 여기저기 흩어져 있는 그림을

2번 슬라이드 처럼 일정한 위치로 옮기고 싶습니다

현재

Sub top1()

ActiveWindow.Selection.ShapeRange.Top = 115.0772

End Sub

Sub top2()

ActiveWindow.Selection.ShapeRange.Top = 330.6589

End Sub

Sub left1()

ActiveWindow.Selection.ShapeRange.Left = 93.05803

End Sub

Sub left2()

ActiveWindow.Selection.ShapeRange.Left = 212.1264

End Sub

Sub left3()

ActiveWindow.Selection.ShapeRange.Left = 331.1947

End Sub

Sub left4()

ActiveWindow.Selection.ShapeRange.Left = 450.2757

End Sub

Sub left5()

ActiveWindow.Selection.ShapeRange.Left = 569.3444

End Sub

이런식으로 vba를 짜서 위에5개, 아래5개, 제일왼쪽2개, 그다음 2개, 그다음 2개, 그다음2개, 그다음2개 를 묶어서 매크로 돌리는 방식으로 총 7번의 작업을 하고 있는데

더 쉬운방법이 있을거 같습니다

예를 들어 각 슬라이드 일정범위안에 있는 객체를 선택에서 a위치로이동, 다른 범위안에 있는 객체를 선택애서 b 위치로 이동 등

더 쉽고 간편한 방법을 알려주세요

추가) 또한 이매크로를 단축키로 지정해서 사용 하는 방법도 알려주세요(리본메뉴에 넣어서 alt+1~9로 쓰는 방법 말고 다른방법이 있다면..)

잠긴 질문. 이 질문은 Microsoft 지원 커뮤니티에서 마이그레이션되었습니다. 질문이 도움이 되었는지 여부에 대해 응답할 수는 있지만, 메모나 회신을 추가하거나 질문을 따를 수는 없습니다.

댓글 0개

답변 1개

Answer 1

안녕하세요. 홍종진님.

VBA 관련 문의는 Microsoft Community의 답변 범위 밖입니다.

MSDN포럼에서 문의하시는 것을 추천해 드립니다.

현직 개발자 및 관리자분들도 많이 이용하시기 때문입니다.

상단메뉴의 "커뮤니티 => 포럼"으로 이동하셔서 이용하실 수 있습니다.

MSDN 포럼에서 좋은 답변 얻으시기를 바랍니다.

2017년 활기찬 새해가 되세요~

Microsoft Community 사이트를 방문해 주셔서 감사합니다.