☰

마스터 보기의 레이아웃을 PowerPoint의 슬라이드로 복사하는 방법은 무엇입니까?

tag-icon • tag-icon microsoft-powerpoint master
마스터 보기의 레이아웃을 PowerPoint의 슬라이드로 복사하는 방법은 무엇입니까?

나와 함께 일하는 사용자가 실수로 전체 프레젠테이션을 슬라이드 마스터 보기로 만들었습니다. 즉, 슬라이드를 추가하는 대신 레이아웃을 만들었습니다.

각 레이아웃을 사용하여 새 슬라이드를 추가하는 간단한 부분 솔루션이 있습니다. 그 결과 프레젠테이션은 정상적으로 표시될 수 있지만 특정 제한 사항이 있습니다. 특히 우리는 여기에서 많은 공동 작업을 수행하며 이 파일을 다른 사용자와 공유할 때 마스터 보기로 직접 이동하지 않고서는 누구도 슬라이드의 텍스트를 편집할 수 없습니다.

모든 것을 처음부터 다시 만들 수 있지만 너무 커서 시간이 너무 많이 걸립니다.

답변1

한 가지 (결함이 있을 수 있는) 접근 방식:

마스터 보기에서 각 레이아웃으로 이동
Ctrl+A를 눌러 모두 선택
Ctrl+C를 눌러 복사
기본 보기로 돌아가기
BLANK 레이아웃을 기반으로 새 슬라이드 추가
Ctrl+V를 눌러 방금 복사한 레이아웃 내용을 붙여넣기
완료되면 모든 레이아웃이 포함된 경우 마스터 보기로 돌아가서 각 레이아웃의 내용을 선택하고 삭제하세요.

결함? 이렇게 하면 프레젠테이션의 모양을 제어하는 ​​레이아웃에 더 이상 연결되지 않은 여러 슬라이드가 제공됩니다. 광범위한 변경을 수행하려면 슬라이드를 모두 변경해야 합니다. 그러나 이는 상대적으로 빠른 수정이며 최소한 편집 가능한 슬라이드를 남겨줄 것입니다.

프레젠테이션이 여러 번 사용되며 다양한 사람이 편집하는 경우에는 시간이 많이 걸리더라도 더 완전한 수정이 더 적절할 수 있습니다.

여기에는 위의 작업을 수행한 다음 레이아웃을 살펴보고 a) 자리 표시자 또는 b) 레이아웃을 기반으로 모든 슬라이드에서 원하는 콘텐츠를 삭제하는 작업이 포함됩니다.

그런 다음 원래 기반으로 했던 각 슬라이드에 적절한 레이아웃을 적용하고 마지막으로 필요한 경우 임의의 텍스트 상자에서 텍스트를 적절한 자리 표시자로 복사해야 합니다.

해당 경로를 선택하기로 결정한 경우 프레젠테이션의 각 마스터/레이아웃에서 자리 표시자가 아닌 모든 도형을 삭제하는 매크로는 다음과 같습니다. 어떤 방법으로든 전체 작업을 수행하지는 않지만 적어도 다소 지루한 부분을 자동화합니다.

Sub DeleteNonPlaceholderShapes()
' Deletes non-placeholder shapes from
' each slide master and layout in a presentation
' Run this on a COPY of your presentation, never the only original.

Dim oDes As Design
Dim oLay As CustomLayout
Dim oSh As Shape

With ActivePresentation
    For Each oDes In .Designs
        Call HandleOneContainerObject(oDes.SlideMaster)
        For Each oLay In oDes.SlideMaster.CustomLayouts
            Call HandleOneContainerObject(oLay)
        Next
    Next

End With

End Sub

Sub HandleOneContainerObject(oObject As Object)

Dim x As Long

For x = oObject.Shapes.Count To 1 Step -1
    If Not oObject.Shapes(x).Type = 14 Then
        oObject.Shapes(x).Delete
    End If
Next

End Sub

관련 정보