복사 세제곱에 파워 포인트 마스터 슬라이드 레이아웃에서 도형 파워 포인트 2010 년

Question

:

내가 마스터 슬라이드의 레이아웃 슬라이드 하나 만든 모양을 복사하는 매크로를 만들 싶습니다 그리고 활 성화 된 슬라이드에 붙일 것입니다. 그 슬라이드는 내가 그 매크로를 실행할 때 붙어 있습니다. (슬라이드 복제품 등에 활용할 수 있도록 필요함)

어떻게하면됩니까?

감사합니다, 당신은 당신이있을거야 미리 알고있는 경우 두 번째 사용자 지정 레이아웃에, 예를 들어, 여섯 번째 모양을 복사 할 모양을 식별 싶지만 방법을 정확하게 언급하지 않은

Answer 1

프리젠 테이션에서 첫 번째 마스터의 사진을 복사하여 슬라이드 3에 복사/붙여 넣으려고합니다.

Sub Thing() 

    Dim oSh As Shape 

    ' This copies the sixth shape on the second layout of the first master 
    ' Change as needed 
    Set oSh = ActivePresentation.Designs(1).SlideMaster.CustomLayouts(2).Shapes(6) 

    oSh.Copy 

    Set oSh = ActivePresentation.Slides(3).Shapes.Paste(1) 

    With oSh 
     ' do any formatting/sizing/etc. you like here 
    End With 

End Sub