PowerPoint VBA에서 창에있는 현재 모양을 모두 밀어 내리는 방법은 무엇입니까?

는 지금까지 내가 이해,이 코드 활성 창에서 "잡고"첫 번째 모양과 그것을 유도합니다 :PowerPoint VBA에서 창에있는 현재 모양을 모두 밀어 내리는 방법은 무엇입니까?

설정 oShape = oSlide.Shapes (1)

oShape.Left = oShape. 왼쪽 + 5

어떻게하면 창에있는 모든 도형을 "잡아"한꺼번에 바꿀 수 있습니까?

2009-11-10 brilliant

편집 해 주셔서 감사합니다.하지만이 질문을 편집 한 후에 왜 다른 모양으로 보일지 모르겠지만 사실은 다른 질문이 사라 졌는지 이해할 수 없습니까? 그것은 활성 창에서 특정 셰이프 만 이동 (뉘앙스)하는 방법에 대한 질문이었습니다 (모두가 아닌). 예를 들어 모양이 3 개인 경우 모양 1과 모양 3 만 움직일 수는 있지만 모양 2는 사용하지 마십시오.이 질문은 편집 한 후에 신비하게 사라졌습니다. 왜 그런 일이 일어 났는지 생각해? – brilliant

안녕하세요, 저는 편집을 통해 두 가지 질문을 모두 망쳤다는 것을 깨달았습니다. 편집자가 편집하기 전에 이미 답변 한 적이있는이 질문은 "현재 창 (현재 창에있는 모든 현재 모양)을 움직이는 방법"에 관한 것이 었습니다. 바로 여기에 제목이 쓰여 있습니다. 그러나이 질문에서 마지막 단어를 "3 가지 모양이 있다고 가정하고 모양 번호 1과 모양 번호 2 만 사용하고 싶을 때, Power Point VBA에서 어떻게합니까?"라는 내용으로 전체 주제를 변경했습니다. - 내가 여기서 물어 본 건 아니야. 되돌릴 수 있습니까? – brilliant

글쎄, 방금 롤백했다. – brilliant

아마 현재 슬라이드의 Shapes 컬렉션을 반복하여 각각을 설정할 수 있습니다.

Dim oShape As Shape 

For Each oShape In oSlide.Shapes 
    oShape.Left = oShape.Left + 5 
Next

출처

2009-11-10 21:48:44 Buggabill

감사합니다. Buggabill !!! – brilliant

PowerPoint VBA에서 창에있는 현재 모양을 모두 밀어 내리는 방법은 무엇입니까?

답변

관련 문제